|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2528 (0x9e0)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »KONV«
└─⟦755e43167⟧ Bits:30008640 DDMQ1-0079_MSAB_BALANS_KONV_KPLANB
└─⟦this⟧ »KONV«
└─⟦ecd18d2d3⟧ Bits:30008638 DDMQ1-0077_KOPIA_KPLANB_BALANS_KONV
└─⟦this⟧ »KONV«
└─⟦fe1114201⟧ Bits:30008639 DDMQ1-0078_BALANS_HUVUD_RES
└─⟦this⟧ »KONV«
DCL 1 SALREG,
2 KNT CHAR(6),
2 BELD(12) FIXED(10,2),
2 BELK(12) FIXED(10,2);
DCL 1 KPL,
2 KONTO CHAR(6),
2 KTEXT CHAR(34),
2 SALDO FIXED(10,2);
DCL 1 KPLNY,
2 KONTONY CHAR(4),
2 STK CHAR(1) INIT(' '),
2 BEN CHAR(34),
2 BED(12) FIXED(10,2),
2 BEK(12) FIXED(10,2),
2 IB FIXED(11,2);
DCL KPLAN FILE; DCL KPLANNY FILE; DCL SALDOB FILE;
OPEN KPLAN;OPEN KPLANNY;OPEN SALDOB;
NY: DO I=1 TO 12;BED(I)=0;BEK(I)=0;END;
ON ENDFILE GO TO SLUT;READ FILE(KPLAN) INTO(KPL);
KONTONY=SUBSTR(KONTO,1,4);
BEN=KTEXT;
IB=0;
ON ERROR GO TO BAD;
READ KEY(KONTONY) FILE(SALDOB) INTO(SALREG);
DO I=1 TO 12;BED(I)=BELD(I);BEK(I)=BELK(I);END;
TOM: WRITE FILE(KPLANNY) FROM(KPLNY);
GO TO NY;
BAD: IF (ONCODE=4) THEN GO TO TOM;
SLUT: CLOSE KPLANNY; END;