cA240 ;WOONPLAATS ;%A240 ;do uit %A2xx ;do naar %A341 ;
 ;
T0 ;Woonplaats ;
 ;
T0F ;Localité ;
 ;
T0E ;Woonplaats ;
 G 1
 ;
S1 S K="-",U1=U1+1
S1Z Q  ; binnen rubriek blijven
 ;
S2 S R6=$P(@("^"_Q_"BA(39)"),D,3) I R3?1.3U1"-"1E.E S R6=$P(R3,"-"),R3=$P(R3,"-",2,99)
S2A S R5=$P($P(R3,"-")," ")
S2Z Q  ; bepaling landcode en postnummer
 ;
 ; gewoon
1 S R3=$P(B(1),D,6) I R3="" D S1 G YZ
11 D S2 G Y
 ;
 ; werknemers
2 S R3=$P(B(1),D,4) I R3="" D S1 G YZ
21 D S2 G Y
 ;
 ; prospecten
3 S R3=$P(B(1),D,16) I R3="" D S1 G YZ
31 D S2 G Y
 ;
 ; factoring
5 S R3=$P(B(2),D,13) I R3="" D S1 G YZ
51 D S2 G Y
 ;
 ; alle gemeentes per postnummer
Y S R="K\2000\"_R6_D_R5 D ^cA341 I "-"[K D S1
YZ K R1,R2,R3,R4,R5,R6 Q
 ;
 ; manueel faktuuradres
S9 S R3=$P(B(2),D,6) I R3="" S K="-",X=X+1 G YZ
S9A S:'$D(U1) U1=0 D S2 G Y
S9Z Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84