|
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: 4898 (0x1322)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »VERA«
└─⟦755e43167⟧ Bits:30008640 DDMQ1-0079_MSAB_BALANS_KONV_KPLANB
└─⟦this⟧ »VERA«
└─⟦7d57c527f⟧ Bits:30008641 DDMQ1-0080_LMC_RESULTAT_for_MSAB
└─⟦this⟧ »VERA«
└─⟦ecd18d2d3⟧ Bits:30008638 DDMQ1-0077_KOPIA_KPLANB_BALANS_KONV
└─⟦this⟧ »VERA«
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 1 KPL,
2 KONTO CHAR(4),
2 STK CHAR(1),
2 BEN CHAR(34),
2 ACD(12) FIXED(10,2),
2 ACK(12) FIXED(10,2),
2 IB FIXED(11,2);
DCL TX CHAR(20); DCL DIF FIXED(10,2)INIT(0.0), D1 CHAR(12)INIT('REST ');
DCL DATUM CHAR(6), XSL CHAR(4), KO CHAR(6), AX CHAR(1) INIT(' ');
PUT FILE(DISP) SKIP LIST('DATUM(ÅÅMMDD) '); GET LIST(DATUM);
DCL VR CHAR(6); DCL R1 CHAR(50) INIT('VERIFIKATIONSREGISTRERING');
DCL R2 CHAR(59)INIT('VERNR TEXT KONTO DEBET KRED');
DCL R2A CHAR(10)INIT('IT');
PUT SKIP(3) EDIT(AX) (A(10)) (R1) (A(50)) (DATUM) (A(10));
PUT SKIP(2) EDIT(AX) (A(10)); PUT LIST(R2,R2A);
DCL KK FIXED(10,2), KA FIXED(8,2), B FIXED(8,2), BB FIXED(8,2);
KK = 0; BB = 0; KA= 0; B = 0;
DCL VERFIL FILE; DCL KPLAN FILE; OPEN VERFIL; OPEN KPLAN; CALL SEOF(VERFIL);
PUT SKIP(2);
NY: PUT FILE(DISP) SKIP LIST('VERNR. ');
VN: GET SKIP LIST(VR); IF(VR = ' ') THEN VR = VXR + 1; VNR = VR;
IF(SUBSTR(VR,1,4) = 'SLUT') THEN GO TO SLUT;
B = 0; KA= 0; PUT EDIT(AX)(A(10)) (VNR) (A(7));
PUT FILE(DISP) SKIP LIST('TEXT FÖR VER '); GET SKIP LIST(TX);
PUT EDIT(TX) (A(23));
FF: UU=0;DIF=B-KA;PUT FILE(DISP)SKIP EDIT(D1)(A(12))(DIF)(P'------V.99',X(16));
PUT FILE(DISP)LIST('KONTO ');
KT: GET SKIP LIST(KTO);
STT:KO=' ';XSL=SUBSTR(KTO,1,4); PUT FILE(DISP) SKIP; ON ERROR GO TO BAD;
READ KEY(XSL)FILE(KPLAN) INTO(KPL); GO TO GG;
BAD: IF(ONCODE = 4)THEN;
PUT FILE(DISP)SKIP LIST('KONTO ',XSL,' FINNS EJ. OM NYTT ');
PUT FILE(D) LIST('KONTONR SKRIV "J". OM FEL NR SKRIV DET RÄTTA. ');
PUT FILE(D) LIST(' ');
GET SKIP LIST(KO);IF (SUBSTR(KO,1,1)¬='J') THEN GO TO ST;
PUT FILE(D) SKIP LIST('KONTOTEXT: ');GET SKIP LIST(BEN);CALL SEOF(KPLAN);
KONTO=XSL;DO I=1 TO 12;ACD(I)=0;ACK(I)=0;END;IB=0;STK=' ';
WRITE FILE(KPLAN) FROM(KPL);CLOSE KPLAN;OPEN KPLAN;
ST:IF (SUBSTR(KO,1,1)¬='J')THEN KTO=KO;
IF (SUBSTR(KO,1,1)¬='J') THEN GO TO STT;
GG: PUT EDIT(KTO)(A(7));
PUT FILE(DISP) SKIP LIST('BELOPP DEB...K7 ALT. KRE...K6 ');
XY: GET LIST(BEL); CALL KEYFUN(I);
IF(I = 139) THEN GO TO DEB;
IF(I = 138) THEN GO TO KRE;
GO TO XY;
DEB: KOD = 'D'; B = B + BEL; BB = BB + BEL; GO TO GOON;
KRE: KOD = 'K'; KA= KA+ BEL; KK = KK + BEL;
GOON: VNR= VR; VXR = VR; DAT = SUBSTR(DATUM,3,4); TEXT = TX;
IF(KOD = 'D') THEN PUT EDIT(BEL)(P'-------V.99');
IF(KOD = 'K') THEN PUT EDIT(AX)(A(10))(BEL) (P'-------V.99');
I = 0;WRITE FILE(VERFIL) FROM(VER); PUT SKIP;
BEL = 0; KTO = ' '; K = ' '; D = ' '; IF(B-KA) ¬= 0 THEN DO;
PUT EDIT (AX) (A(40)); UU = 1; END;
IF(UU = 1) THEN GO TO FF; GO TO NY;
SLUT: PUT SKIP(3)LIST('DAGSSALDO');PUT EDIT(AX)(A(38));
PUT EDIT(BB)(P'-------V.99') (KK)(P'-------V.99'); CLOSE VERFIL; END;