SKL ;SELEKTEER KLANTEN IN VOLGORDE ;SKL;
 G 1
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
 ;Initialisatie
1 S Q0="^"_Q_"KL(KL)"
 ;
 ;Ophalen klanten
2 S KL=$N(@Q0) I KL=-1!(KL]KLX) S KL=-1 G YZ
21 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1 Q:'$D(^(I))  S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) I I'=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 2:'OK,31
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 07.06.91 - 13 u 37