DEL(WQ) ;Verwijderen Q-waardes ; COPY [ 06/27/00  2:24 PM ]
 ; WQ = Q-waardes te verwijderen
 ; WQ = Q1_" "_Q2_" "_Q3...
 ;
 ;
1 N Q
 S D="\"
10 W !!,"Verwijderen ",WQ_" ? (J/N) " R K I K'="J"&(K'="j") G YZ
 W !,"Ok ? (J/N) " R K I K'="J"&(K'="j") G 10
 ;
2 S (OQ,Q)=$P(WQ," "),WQ=$P(WQ," ",2,99) I '$L(Q) G YZ
 I $ZV'["MSM" s ge="^"_OQ
 I $ZV["MSM" S ge=OQ
 F  s ge=$$NEXT^COPY(ge) q:ge=""
 . K @ge
 . W !,ge
 ; overhalen ^DATA....
3 f i="DMS","DATA","DATB","INDEX","DIN","DLOG","DPAR","DKODE" d
 . k @("^"_i_"(OQ)")
 . W !,i
 ;
 G 2
 ;
YZ Q
 ;
ZZ ; 30.06.00 - 15 u 23 * V7.4