|
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: 2844 (0xb1c)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »FELLISTA«
└─⟦3e550eca6⟧ Bits:30008695 DDMQ1-0135_DUBBEL
└─⟦this⟧ »FELLISTA«
└─⟦b4c020431⟧ Bits:30008687 DDMQ1-0127_VERFIL
└─⟦this⟧ »FELLISTA«
└─⟦bcdd51fb7⟧ Bits:30008685 DDMQ1-0125_Denna_diskette
└─⟦this⟧ »FELLISTA«
└─⟦be28637e3⟧ Bits:30008686 DDMQ1-0126
└─⟦this⟧ »FELLISTA«
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: A104 ');
DCL RUB2 CHAR(50)INIT('V E R I F I K A T I O N S F E L L I S T A');
DCL RUB3 CHAR(40)INIT('ANMÄRKNING');
DCL RUB4 CHAR(40)INIT('VERIFIKATIONSNUMMER');
DCL RUB5 CHAR(40)INIT('MÅNADENS LÄGSTA VER.NR');
DCL RUB6 CHAR(40)INIT('SAKNADE VER.NR');
DCL RUB8 CHAR(40)INIT('MÅNADENS HÖGSTA VER.NR');
PUT FILE(DISP)SKIP LIST('HAR DU SORTERAT FILEN PÅ VER.NR ? ANNARS BÖRJA OM');
GET LIST(A); IF(A ¬= 1) THEN GO TO SL;
DCL P CHAR(2);
PUT FILE(DISP)SKIP LIST('ANGE PERIOD (=MÅNAD) ');
GET LIST(P);
PUT SKIP(3)EDIT(RUB1) (A(55)) (RUB2) (A(50)); PUT LIST(' MÅNAD ');
PUT EDIT(P)(A(10)); PUT SKIP(2)EDIT(RUB3) (A(40)) (RUB4) (A(20));
DCL VERIFILE FILE; OPEN VERIFILE;
V = 0;
START: X = 0; ON ENDFILE GO TO SLUT;
READ FILE(VERIFILE) INTO(BOK);
IF(SUBSTR(DATUM,3,2) ¬= P)THEN GO TO START;
V = V +1;
VER = VENR;
IF(V = 1)THEN DO; PUT SKIP(2)EDIT(RUB5)(A(40))(VENR)(A(10)); V=VER;X=1;END;
IF(X = 1) THEN GO TO START;
IF((V+1) = VER)THEN PUT SKIP EDIT(RUB6)(A(40))(V)(A(10)); V=VER;
GO TO START;
SLUT: PUT SKIP EDIT(RUB8)(A(40))(VENR)(A(10)); SL: END;