cI5 ;TERUGSTEEKPROGRAMMA ;%I5 [ 02/21/00  5:56 PM ]
 G 1
 ;
1 W !!,$P($T(+1),";",2),?40,"VERSIE :",$P($T(ZZ),";",2) G 9:'$D(Q),9:Q="",9:$L(Q)>3,9:Q'?1U.U
15 I '$D(@("^"_Q_"BA(99,1)")) W $C(7),"   KLANT ONBEKEND !" G 9
17 W ! F K=1:1:3 W !,^(K)
 ;
2 W !!,"Global : ^",Q R Q1 G YZ:"-^"[Q1
21 W !,"Aantal indexen <2> : " R N G 2:N="^"!(N="-") S:'N N=2 S K=1
23 W !,"Index ",K," : " R I(K) I "-^"[I(K) S K=K-1 G 23:K,21
25 S K=K+1 G 23:K'>N S X="^"_Q_Q1_"(" F K=1:1:N S X=X_""""_I(K)_"""" I K<N S X=X_","
27 S X=X_")" G 3:'$D(@X) W !!,X," = ",@X,!!,"deze node bestaat reeds",!!
29 W ".[] = INFORMATIE OVERSCHRIJVEN   -[] = ANDERE INDEX   : .",$C(8) R A W ! G 3:A=".",29:A'="-" S K=N G 23
 ;
3 W !,"Aantal velden : " R V S K=1 I "-^"[V!'V S K=N G 23
31 W !,"Veld ",K," : " R A(K) I A(K)="-"!(A(K)="^") S K=K-1 G 31:K,3
33 S K=K+1 G 31:K'>V S Y="" F K=1:1:V S Y=Y_A(K) I K<V S Y=Y_D
35 W !!,X," = ",Y,!
37 W "[] = OK   \[] = OK MET \   : .",$C(8) R A W ! I D'[A S K=V G 31:"-^"[A,37
39 S @X=Y_A S K=N G 23
 ;
9 W !!,"Q-WAARDE = ...",$C(8),$C(8),$C(8),$C(7) R Q G YZ:"-^"[Q
91 I $L(Q)>3 W "   MAXIMUM 3 KARAKTERS !" G 9
93 I Q'?1U.U W "   ENKEL HOOFDLETTERS !" G 9
95 W "   OGENBLIKJE ... " D ^cA604 G 15
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3