|
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: »VERLISTA«
└─⟦755e43167⟧ Bits:30008640 DDMQ1-0079_MSAB_BALANS_KONV_KPLANB
└─⟦this⟧ »VERLISTA«
└─⟦7d57c527f⟧ Bits:30008641 DDMQ1-0080_LMC_RESULTAT_for_MSAB
└─⟦this⟧ »VERLISTA«
└─⟦ecd18d2d3⟧ Bits:30008638 DDMQ1-0077_KOPIA_KPLANB_BALANS_KONV
└─⟦this⟧ »VERLISTA«
DCL 1 VER, 2 KTO CHAR(6),
2 DAT CHAR(4), 2 VNR FIXED(5), 2 TEXT CHAR(20), 2 BEL FIXED(11,2),
2 KOD CHAR(1);
DCL UTS FIXED(10,2), UTB FIXED(10,2), UTG FIXED(10,2), UTK FIXED(10,2);
UTS= 0; UTB = 0; UTG = 0; UTK = 0;
DCL DATUM CHAR(4), XX CHAR(1) INIT(' '), DATA CHAR(5);
DCL VR CHAR(5); DCL R1 CHAR(50) INIT('VERIFIKATIONSLISTA ');
DCL R2 CHAR(59)INIT('VERNR TEXT DATUM');
DCL R3 CHAR(50)INIT(' KONTO DEBET KREDIT');
DCL R4 CHAR(50)INIT(' ');
PUT SKIP(3) EDIT(XX) (A(10)) (R1) (A(50));
PUT SKIP(2) EDIT(XX) (A(10)); PUT LIST(R2,R3,R4);
DCL M CHAR(2); S1 = 0; S2 = 0; SX = 0; SY = 0;
PUT SKIP(2)LIST('');DCL VERFIL FILE; OPEN VERFIL;
ST: ON ENDFILE GO TO SLUT;
; READ FILE(VERFIL) INTO(VER); XA= 0;
IF(KOD = 'D') THEN DO;S1= S1 + BEL; SX = SX + BEL; END;
IF(KOD = 'K') THEN DO; S2 = S2 + BEL; SY = SY + BEL; END;
DATA = SUBSTR(DAT,1,2) CAT '.' CAT SUBSTR(DAT,3,2);
IF(DATUM¬=DAT)THEN DO; PUT EDIT(XX)(A(10))(VNR)(P'ZZZZZ',X(3))(TEXT)(A(24));
PUT EDIT(DATA)(A(7))(KTO)(A(10)); END;
ELSE PUT EDIT(XX)(A(10))(VNR)(P'ZZZZZ',X(3)) (TEXT)(A(31))(KTO)(A(10));
DATUM = DAT;
IF(KOD = 'D') THEN PUT EDIT(BEL)(P'ZZZZZZ9V.99');
IF( KOD = 'K') THEN PUT EDIT(XX) (A(10)) (BEL) (P'ZZZZZZZ9V.99');
PUT SKIP LIST(''); GO TO ST;
SLUT:
SS = SX - SY;
PUT SKIP(2)EDIT(XX)(A(59))(SX)(P'ZZZZZZ9V.99')(SY)(P'ZZZZZZZ9V.99');
PUT EDIT(SS)(P'ZZZZZZZZZ9V.99');
END;