|
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: 4108 (0x100c)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »VERLIST«
└─⟦b4c020431⟧ Bits:30008687 DDMQ1-0127_VERFIL
└─⟦this⟧ »VERLIST«
DCL 1 VER,
2 VENR CHAR(6),
2 DATUM CHAR(6),
2 KOSTST CHAR(4)INITIAL(' '),
2 DEBET CHAR(4) INITIAL(' '),
2 KREDIT CHAR(4) INITIAL(' '),
2 BELOPP FIXED(11,2),
2 VTEXT CHAR(20),
2 KOD CHAR(2)INITIAL(' ');
SID = 1;
DCL VERIFILE FILE;
DCL RUB1 CHAR(50)INITIAL('M S T E N H A R D T A B');
DCL RUB1A CHAR(20) INIT('PROGR: A102');
DCL DAT CHAR(8);
PUT FILE(DISP)SKIP LIST('ANGE DAGENS DATUM (ÅÅ.MM.DD.) '); GET LIST(DAT);
DCL M CHAR(2); PUT FILE(DISP) SKIP LIST('ANGE MÅNAD '); GET LIST(M);
DCL RUB2 CHAR(52)INITIAL('V E R I F I K A T I O N S L I S T A MÅNAD ');
DCL RUB3 CHAR(50)INITIAL(' DATUM VER.NR TEXT');
DCL RUB4 CHAR(55)INIT('KONTO KOD DEBET KREDIT DIFFERENS');
PUT SKIP(3) EDIT(RUB1) (A(35))(RUB1A)(A(15)) (RUB2) (A(50))(M) (A(4));
PUT LIST(' DATUM ');PUT EDIT(DAT)(A(12));PUT LIST(' SIDA 1');
PUT SKIP(2)EDIT(RUB3)(A(50))(RUB4)(A(55)); PUT SKIP LIST('');
OPEN VERIFILE;
YY = 1;R= 6; SUM1 = 0;SUM2 = 0; S1 = 0; S2 = 0;
START: ON ENDFILE GO TO SLUT;
READ FILE(VERIFILE) INTO(VER);
IF(SUBSTR(DATUM,3,2) ¬= M) THEN GO TO START;
IF(DEBET = ' ') THEN GO TO KRED; IF(YY = 1) THEN KONT = DEBET; YY=0;
SUM1 = SUM1 + BELOPP; S1 = S1 + BELOPP;
PUT SKIP EDIT(DATUM)(A(10))(VENR)(A(10))(VTEXT)(A(30))(DEBET)(A(8));
IF(KOD ¬=' ') THEN DO;PUT EDIT(KOD)(A(4));PUT EDIT(BELOPP)(P'--------9V.99');
BELOPP = 0; END;
IF(KOD=' ')THEN PUT EDIT(BELOPP) (X(4),P'--------9V.99',X(10)); BELOPP = 0;
R = R + 1; KOD = ' '; IF(R = 40) THEN GO TO PRI;
GO TO START;
KRED: IF(YY = 1)THEN KONT = KREDIT; YY = 0;
SUM2 = SUM2 + BELOPP; S2 = S2 + BELOPP;
PUT SKIP EDIT(DATUM)(A(10)) (VENR)(A(10))(VTEXT)(A(30)) (KREDIT)(A(8));
IF(KOD ¬=' ')THEN DO;PUT EDIT(KOD)(A(19));PUT EDIT(BELOPP)(P'--------9V.99');
BELOPP = 0; END;
IF(KOD=' ')THEN PUT EDIT(BELOPP) (X(19),P'--------9V.99');
R = R + 1; IF(R = 40) THEN GO TO PRI;
KOD = ' '; GO TO START;
PRI: SID = SID + 1;
PUT SKIP(11) EDIT(RUB1) (A(35))(RUB1A)(A(15)) (RUB2) (A(50))(M)(A(4));
PUT LIST(' DATUM '); PUT EDIT(DAT)(A(12));PUT LIST(' SIDA ');
PUT EDIT(SID)(P'ZZZ'); PUT SKIP LIST(''); R = 6; GO TO START;
SLUT:
PUT SKIP(2)EDIT(S1)(X(62),P'ZZZZZZZZ9V.99')(S2)(P'ZZZZZZZZZZZ9V.99');
S3= (S1 - S2);
PUT EDIT(S3) (X(2),P'------9V.99'); END;