|
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: 3555 (0xde3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »LITHUV«
└─⟦bcdd51fb7⟧ Bits:30008685 DDMQ1-0125_Denna_diskette
└─⟦this⟧ »LITHUV«
DCL 1 HUV,
2 VENR CHAR(6),
2 DATUM CHAR(6),
2 KOSTST CHAR(4)INIT(' '),
2 DEBET CHAR(4)INIT(' '),
2 KREDIT CHAR(4)INIT(' '),
2 BELOPP FIXED(11,2),
2 VTEXT CHAR(20),
2 KOD CHAR(2)INIT(' ');
DCL VERIFILE FILE;
OPEN VERIFILE;
SSUM=0; SSSU=0; SUM1=0; SUM2=0;
DCL KOST CHAR(4)INIT('100 ');
START:
ON ENDFILE GO TO SLUT;
READ FILE(VERIFILE) INTO (HUV);
IF(KOSTST¬= KOST) THEN GO TO PRNT;
IF(DEBET¬= ' ') THEN DO;
PUT EDIT(VENR)(A(10)) (DEBET)(A(7)) (BELOPP)(P'-----9.99'); END;
SUM1=SUM1+BELOPP;
PUT SKIP LIST(' ');
IF(KREDIT¬=' ') THEN DO;
PUT EDIT(VENR)(A(10)) (KREDIT)(A(16))(BELOPP)(P'-------9V.99');
SUM2=SUM2+BELOPP; PUT SKIP LIST(' '); END;
GO TO START;
PRNT: IF(SUM1=0 & SUM2=0) THEN GO TO SS;
PUT SKIP LIST('TOTAL');
PUT EDIT(SUM1)(X(14), P'ZZZZZ9V.99')(SUM2)(P'ZZZZZZZ9V.99');
DIFF = SUM1 - SUM2; IF(DIFF¬=0) THEN PUT EDIT(DIFF)(P'-------9V.99');
SSUM = SSUM+SUM1; SSSU=SSSU+SUM2;
SUM1=0; SUM2=0;
SS: KOST= KOSTST; GO TO START;
SLUT: DDIFF= SSUM - SSSU;
PUT SKIP(2) LIST('SLUTTOTAL');
PUT EDIT(SSUM)(X(20),P'ZZZZZ9V.99')(SSSU)(P'ZZZZZZZ9V.99');
PUT EDIT(DDIFF)(P'ZZZZZZZZZ9V.99'); END;
END;