cAB20 ; Controle indexen ;%AB20 ; [ 03/20/00  3:04 PM ]
 ;
T1 ; 1. Controle indexbestanden op integriteit (enkel rapportering);
T2 ; 2. Controle indexbestanden (zoals op de menu = kill + heropbouwen);
T3 ; 3. Idem als punt 2, maar automatisch alle bestanden (één Q-waarde);
T4 ; 4. Idem als punt 3, maar voor alle Q-waardes in DMS;
T5 ; 5. Conversie controlekarakters in indexen (overgang naar Caché);
 ;
T99 ;Nummer element\;
 ;
 ; Titel
1 D B^cA612
11 D T^cA612($P($T(+1),U,2)_"["""_$ZU($ZV'["MSM"*5)_"""]",1,0,7,0,0)
13 D T^cA612("Q="_Q,1,2,7,0,0)
15 F I=1:1 S J=$T(@("T"_I)) Q:J=""  W /CUP(I+2,2),$P(J,U,2)
 ;
 ; Keuze
2 S R="KEU\22\3\"_$P($T(T99),U,2)_"\2\\$L(K)" D R0 I "-,^"[K G YZ
21 I K=1 D ^cAN009 G 2
22 I K=2 D ^cAN002 G 2
23 I K=3 D ^cAB201 G 2
24 I K=4 D ^cAB202 G 2
25 I K=5 D ^cAB203 G 2
29 G 2
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3