|
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: 4187 (0x105b)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »KUNDORDR«
└─⟦95b7b493b⟧ Bits:30008570 DDMQ1-0005_Vers_3_2_BUDGET
└─⟦this⟧ »KUNDORDR«
DCL 1 BEST,
2 BESTNRP CHAR(6),
2 KUNDBES CHAR(15),
2 KUNDNR CHAR(4),
2 FAKTNR CHAR(4),
2 BARTNR CHAR(5),
2 BANT FIXED(3),
2 BVECK FIXED(3),
2 BANTLEV FIXED(3),
2 BFAKT FIXED(3),
2 PRIS FIXED(9,2),
2 BDAT CHAR(6);
DCL 1 KUNDER,
2 KUND CHAR(4),
2 FIRMA CHAR(24),
2 TEL CHAR(12);
DCL DATUM CHAR(8);
PUT FILE(DISPLAY) SKIP LIST('ANGE DATUM ');
DCL FMA CHAR(24);
DCL RUB1 CHAR(30)INITIAL('M S T E N H A R D T A B');
DCL RUB2 CHAR(30) INITIAL('FÖRSÄLJNINGSSTATISTIK ');
DCL RUB3 CHAR(50) INITIAL('FIRMA ');
DCL RUB4 CHAR(50) INITIAL('ARTIKEL ANTAL APRIS BELOPP DATUM');
DCL RUB5 CHAR(15) INITIAL(' FAKTURANR');
DCL BESTREG FILE;
DCL KUNDREG FILE;
OPEN BESTREG;
OPEN KUNDREG;
PUT SKIP(3) LIST(RUB1);
PUT SKIP(2) LIST(RUB2);
PUT SKIP(2) LIST(RUB3);
DCL SUMMA FIXED(10,2) INITIAL(0.0);
START:
PUT FILE(DISPLAY) SKIP LIST('AMGE KUNDENS NUMMER ');
GET LIST(KUND);
READ KEY(KUND) FILE(KUNDREG) INTO(KUNDER);
PUT SKIP(2) LIST(FIRMA);
PUT SKIP(2) LIST(RUB4,RUB5);
SPR:
ON ENDFILE GO TO SLUT;
READ FILE(BESTREG) INTO (BEST);
IF(KUND ¬= KUNDNR) THEN GO TO SPR;
IF(BANTLEV = 0) THEN GO TO SPR;
BELOPP = BANTLEV * PRIS;
SUMMA = SUMMA + BELOPP;
PUT SKIP(2) EDIT(BARTNR) (A(12)) (BANTLEV)(P'ZZZ')(PRIS)(X(1),P'ZZZZZ9V.99');
PUT EDIT(BELOPP) (X(1),P'ZZZZZZ9V.99',X(2)) (BDAT) (A(10))(FAKTNR)(A(4));
GO TO SPR;
SLUT: PUT SKIP(4) LIST('TOTALBELOPP ');
PUT EDIT(SUMMA) (P'ZZZZZZZZ9V.99');
END;