cA328 ;RAADPLEGEN OFFICIELE MUNTKODES ;%A328 ; [ 10/19/98  12:19 PM ]
 ;
T0 ;Raadplegen officiele muntcodes ;
 ;
T0F ;Consulter codes monétaires officiels ;
 ;
T0E ;Raadplegen officiele muntcodes ;
 ;
 ; input  : R="outputvar\beginlijn*100\taalkode"
 ; output : outputvar.
 ;
1 S K=$$^cANSYN("ISO.MUNT") I K S K=$$SIG^cAFA1("ISO.MUNT",K,101)
 ;
YZ S @$P(R,D)=K Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84