|
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: 4424 (0x1148)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »REVISION«
└─⟦3e550eca6⟧ Bits:30008695 DDMQ1-0135_DUBBEL
└─⟦this⟧ »REVISION«
└─⟦be28637e3⟧ Bits:30008686 DDMQ1-0126
└─⟦this⟧ »REVISION«
DCL 1 BOK,
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 RUB1 CHAR(50)INIT('M S T E N H A R D T A B PROGR: A105 ');
DCL RUB2 CHAR(50)INIT('R E V I S I O N S L I S T A PERIOD ');
DCL RUB3 CHAR(50)INIT(' DATUM VERIFIKAT KONTO DEBET KREDIT');
DCL RUB3A CHAR(30)INIT(' DIFFERENS');
DCL VERIFILE FILE; OPEN VERIFILE;
DCL DAT CHAR(8);
DCL P CHAR(2);
PUT FILE(DISP) SKIP LIST('HAR DU SORTERAT VERIFILE PÅ DATUM ! OM INTE BÖRJA');
PUT FILE(DISP)LIST(' FRÅN BÖRJAN ANNARS SLÅ IN EN ETTA ');GET LIST(A);
PUT FILE(DISP) SKIP LIST('ANGE PERIOD (=MÅNAD) ');
GET LIST(P);
PUT FILE(DISP) SKIP LIST('ANGE DAGENS DATUM ');
GET LIST(DAT);
SUM = 0.;
PUT SKIP(3)EDIT(RUB1)(A(50));PUT LIST(RUB2); PUT EDIT(P)(A(10));
PUT LIST('DATUM '); PUT EDIT(DAT)(A(10)); PUT SKIP(2)LIST(RUB3,RUB3A);
SSUM = 0; SSSU = 0; SUM1 = 0; SUM2 = 0; DCL B CHAR(2)INIT('01'); X= 1;
DCL DD CHAR(2)INIT('01'); R = 5; X = 0;
START:
ON ENDFILE GO TO SLUT;
READ FILE(VERIFILE)INTO (BOK);
IF(SUBSTR(DATUM,3,2) ¬= P) THEN GO TO START;
OM: IF(X = 1)THEN PUT SKIP(2)EDIT(DATUM)(A(12));
IF(SUBSTR(DATUM,5,2) ¬= DD) THEN GO TO PRNT;
IF(DEBET ¬= ' ') THEN DO;
PUT EDIT(VENR)(A(10)) (DEBET)(A(7)) (BELOPP)(P'-----9V.99');
SUM1 = SUM1 + BELOPP; X = 0; PUT SKIP LIST(' '); END;
IF(KREDIT ¬= ' ') THEN DO;
PUT EDIT(VENR) (A(10)) (KREDIT) (A(16))(BELOPP) (P'-------9V.99');
X = 0; SUM2 = SUM2 + BELOPP; PUT SKIP LIST(' '); END;
R = R + 1; IF(R = 43) THEN GO TO PRI; GO TO START;
PRNT: IF(SUM=0 & SUM2 = 0) THEN GO TO SS;
PUT SKIP(2) LIST('TOTAL PER DATUM');
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; R = R + 4;
SS: DD = SUBSTR(DATUM,5,2);
X=1; IF(R = 43) THEN GO TO PRI;
GO TO OM;
PRI:PUT SKIP(9) EDIT(RUB1)(A(50)); PUT LIST(RUB2);PUT SKIP(2)LIST(RUB3,RUB3A);
IF(X¬=1) THEN PUT SKIP LIST(' '); R = 5; GO TO START;
SLUT: DDIFF = SSUM - SSSU;
PUT SKIP(2) LIST('SLUTTOTAL');
PUT EDIT(SSUM)(X(20),P'ZZZZZPV.99')(SSSU) (P'ZZZZZZZ9V.99');
PUT EDIT(DDIFF) (P'ZZZZZZZZZ9V.99'); END;