KP28 G 1 ;SEQUENTIEEL WIJZIGEN PRODUKTEN VOLGENS HG-GR-SG-MK-PR (hersch. prod. best.) ; Quit naar KP22 [ 11/17/93  1:32 PM ]
 ;
1 S K=1,FP=401 W @F,@F1
2 L (@("^"_Q_"PWSPC"),@("^"_Q_"PR")):2 E  S FP=2403+F60 W @F,@F4,"PRODUKENBESTAND IN GEBRUIK   [] = OK ",@F5 R K S K="" G YZ
BREACK1 B 1
3 K @("^"_Q_"PWSPC"),@("^"_Q_"PWSVN") S HG="",VNR=0,Q0="^"_Q_"PWSPC(PCC)",Q1="^"_Q_"PWSVN(VNR)",@("^"_Q_"PWSPC(0)")=DT_D_TD
4 S FP=2403+F60 W @F,@F4,"HERSCHIKKEN BESTAND WIJZIGEN PRODUKTEN ",@F5
5 S HG=$N(@("^"_Q_"PH(HG)")) G BREACK0:HG=-1 S GR=""
7 S GR=$N(@("^"_Q_"PH(HG,GR)")) G 5:GR=-1 S SG=""
9 S SG=$N(@("^"_Q_"PH(HG,GR,SG)")) G 7:SG=-1 S MK=""
11 S MK=$N(@("^"_Q_"PH(HG,GR,SG,MK)")) G 9:MK=-1 S PCC=""
13 S PCC=$N(@("^"_Q_"PH(HG,GR,SG,MK,PCC)")) G 11:PCC=-1 S PR=+^(PCC),PC=$P(@("^"_Q_"PR(PR,0)"),D,1),VNR=VNR+1,@Q0=PR_D_PC_D_VNR,@Q1=PR G 13
 ;
BREACK0 B 0
 ;
YZ L  K HG,GR,SG,MK,PR,PC,PCC,PRC,VNR Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32