KOFU3 G YZ ;MODULE OMVORMEN VAR U3 [ 10/10/97  11:23 AM ]
 ;
4 S U3=$P("NED\FRA\DTS\ENG",D,$F("NFDE",K)-1)_$J($S(KYW=0:KYW,KYW?.N:"HAN-"_KYW,1:"IND-"_KYW),8)_"  "_$J($S($D(KVX):KVX,1:KV),3)_"  "_$S(KX="":"CONTANT",1:$J(KX,7))_"  "_$J($S(KSA:KSA,1:""),16) G YZ
11 S U3=$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",KPL)-1)_KUIT,U3=U3_$J("",12-$L(U3))
 S U3=U3_$J($E(KVA,1,7),7)_"  "_$J(ODF,8) G YZ
 ;
YZ Q
 ;