cA327 ;VOLGENDE INDEX ;%A327 ;Do %AN004 ;zie %A306 ; [ 09/14/00  4:43 PM ]
 N RRR G 1
 ;
T0 ;Volgende index ;
 ;
T0F ;Determiner index suivant ;
 ;
T0E ;Volgende index ;
 ;
 ; input : R='variabele voor index\letters hoofdbestand'
 ; output: @$P(R,D)
 ;
1 I '$D(KEU($P(R,D,2))) S KEU($P(R,D,2))=$S(LIM1=""&(LIM2=""):"",LIM2=" ":"U",1:1),LIM1($P(R,D,2))=LIM1,LIM2($P(R,D,2))=LIM2
11 S RRR=R D ^cAN004($P(R,D),$P(R,D,2)) S R=RRR ; VJ-14.09.00
13 I $L(@$P(R,D)),'$D(@$ZR@(0)) G 1
15 I @$P(R,D)="" K KEU($P(R,D,2))
 ;
YZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84