|
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: 7347 (0x1cb3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »KUNDFORD«
└─⟦0847907a2⟧ Bits:30008694 DDMQ1-0134_KUNDFORD_med_FAKFILE_197_PL1_LMC
└─⟦this⟧ »KUNDFORD«
DCL 1 FAK,
2 FAKT CHAR(10),
2 DATUM CHAR(8),
2 DEBET CHAR(10),
2 KREDIT CHAR(10),
2 MOMSD CHAR(8),
2 MOMSK CHAR(8),
2 BELOPP CHAR(10),
2 TEXT CHAR(20);
DCL FAKFILE FILE;
DCL DEBSUM FIXED(11,2) INIT(0),
KRESUM FIXED(11,2) INIT(0),
MDEBSUM FIXED(11,2) INIT(0),
MKRESUM FIXED(11,2) INIT(0),
C CHAR(13) INIT('--------9V.99');
DCL RUB1 CHAR(30) INIT('M S T E N H A R D T A B');
DCL RUB2 CHAR(10) INIT (' ');
DCL RUB3 CHAR(40) INIT ('K U N D F O R D R I N G A R PER');
DCL RUB4 CHAR(45) INIT ('FAKTURANR DATUM DEBET KREDIT');
DCL RUB5 CHAR(31) INIT ('MOMSD MOMSK TEXT');
PUT SKIP EDIT(RUB1)(A(36));
PUT EDIT(RUB2)(A(23))(RUB3)(A(40));
PUT SKIP(2) EDIT(RUB4)(A(53))(RUB5)(A);
OPEN FAKFILE;
LOOP1:
PUT FILE(DISP) SKIP EDIT ('FAKTURANUMMER, OM SLUT "S"')(A(27));
GET LIST (FAKT);
IF FAKT ='S ' THEN GO TO SLUT;
PUT FILE(DISP) EDIT(FAKT)(A(10))('DATUM')(A(31));
GET LIST(DATUM);
PUT FILE(DISP) EDIT(DATUM)(A(6))('TEXT')(A(17));
GET LIST (TEXT);
PUT FILE(DISP) EDIT(TEXT)(A(20))('OM DEBET=K7, OM KREDIT=K6')(A(37));
PUT FILE(DISP) EDIT('BELOPP')(A(27));
XX: GET LIST (BELOPP);
CALL KEYFUN(I);
IF I = 138 THEN DO;
KREDIT = BELOPP;
DEBET = ' ';
GO TO LOPPA;
END;
IF I = 139 THEN DO;
KREDIT =' ';
DEBET = BELOPP;
GO TO LOPPA;
END;
GO TO XX;
LOPPA:
PUT FILE(D) EDIT(BELOPP)(A(10))('MOMS')(A(29));
YY: GET LIST(MOMSD);
CALL KEYFUN(I);
IF I = 139 THEN DO; MOMSK =' ';
GO TO LOOPB;
END;
IF I = 138 THEN DO;
MOMSK = MOMSD;
MOMSD = ' ';
GO TO LOOPB;
END;
GO TO YY;
LOOPB:
PUT SKIP EDIT(FAKT)(A(13)) (DATUM)(A(8));
PUT EDIT(DEBET)(PC) (KREDIT) (PC,X(3));
PUT EDIT(MOMSD)(PC)(MOMSK)(PC,X(5));
PUT EDIT(TEXT)(A(20));
CALL SEOF(FAKFILE);
IF UNSPEC(FAKFILE) =0 THEN DO;
CLOSE FAKFILE;
OPEN FAKFILE;
END;
WRITE FILE(FAKFILE) FROM (FAK);
CLOSE FAKFILE;
OPEN FAKFILE;
DEBSUM = DEBSUM + DEBET;
KRESUM = KRESUM + KREDIT;
MDEBSUM = MDEBSUM + MOMSD;
MKRESUM = MKRESUM + MOMSK;
GO TO LOOP1;
SLUT: PUT SKIP(2) EDIT(' ')(A(21))(DEBSUM)(PC)(KRESUM)(PC,X(3))(MDEBSUM)(PC);
PUT EDIT(MKRESUM)(PC);
END;