|
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: 10744 (0x29f8)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »L030«
└─⟦aa457d816⟧ Bits:30008645 DDMQ1-0085_VERS_3_0_L010_L040_L015_L020_L030
└─⟦this⟧ »L030«
└─⟦da7d9b920⟧ Bits:30008616 DDMQ1-0057_Daliga_spar_35_44
└─⟦this⟧ »L030«
DCL 1 L010U,
2 ARTNR CHAR(5),
2 BENAMN CHAR(40),
2 PRISUTL FIXED(8,2),
2 UTLPRIS2 FIXED(8,2),
2 PRISLAG1 FIXED(8,2),
2 PRISLAG2 FIXED(8,2),
2 FORSPRIS FIXED(8,2),
2 SALDO1 FIXED(3),
2 SALDO2 FIXED(3),
2 FAKTOR1 FIXED(4,2),
2 FAKTOR2 FIXED(4,2),
2 ULAND CHAR(1),
2 BORTMARK CHAR(1),
2 SLEVDAT CHAR(6),
2 S1 FIXED(5),
2 S2 FIXED(5),
2 S3 FIXED(5),
2 S4 FIXED(5),
2 S5 FIXED(5),
2 S6 FIXED(5),
2 S7 FIXED(5),
2 S8 FIXED(5);
DCL RUB1 CHAR(40) INITIAL('M S T E N H A R D T A B');
DCL RUB2 CHAR(50) INITIAL('I N V E N T E R I N G S D I F F L I S T A ');
DCL RUB3 CHAR(50) INITIAL('ARTNR BENÄMNING ');
DCL RUB4 CHAR(40) INITIAL('ANTAL INV.ANTAL DIFF LAGERPRIS');
DCL RUB5 CHAR(40) INITIAL(' BELOPP SUMMA');
DCL DATUM CHAR(8);
DCL S(8) FIXED(5);
DCL A CHAR(1);
DCL 1 TRANSPOST,
2 TARTNR CHAR(5),
2 TBEN CHAR(40),
2 TANTAL FIXED(3),
2 TKUND CHAR(4),
2 TFPRIS FIXED(9,2),
2 TSUMMA FIXED(11,2),
2 TDATUM CHAR(6),
2 TS1 FIXED(5),
2 TS2 FIXED(5),
2 TS3 FIXED(5),
2 TS4 FIXED(5),
2 TS6 FIXED(5),
2 TS7 FIXED(5),
2 TS8 FIXED(5);
PUT FILE(DISPLAY) SKIP LIST('DATUM ');
GET SKIP LIST(DATUM);
PUT SKIP(3) EDIT(RUB1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) EDIT(RUB3) (A(49)) (RUB4) (A(37)) (RUB5) (A(25));
DCL ART CHAR(2);
DCL BELOPP1 FIXED(11,2);
DCL SUMMA FIXED(11,2) INITIAL('0.0');
DCL TOTSUML FIXED(11,2) INITIAL('0.0');
DCL TOTSUM FIXED(11,2) INITIAL('0.0');
DCL ANTAL FIXED(3);
DCL ARTREG FILE;
DCL TRANSREG FILE;
OPEN ARTREG;
OPEN TRANSREG;
CALL SEOF(TRANSREG);
RADR = 5;
START:
PUT FILE(DISPLAY) SKIP LIST('ANGE ARTIKELNUMMER ');
GET LIST(ARTNR);
IF(ARTNR = '99999') THEN GO TO SLUT;
READ KEY(ARTNR) FILE(ARTREG) INTO (L010U);
PUT FILE(DISPLAY) SKIP LIST('ANGE LEVERERAT ANTAL ');
GET LIST(TANTAL);
PUT FILE(DISPLAY) SKIP LIST('ANGE LEVERANSDATUM ');
GET LIST(TDATUM);
PUT FILE(DISPLAY) SKIP LIST('ANGE KUND NUMMER ');
GET LIST(TKUND);
PUT FILE(DISPLAY) SKIP LIST('ANGE SERIENUMMER 1. = OFÖRÄNDRAT 0= INGET ');
DO I = 1 TO 8;
GET LIST(S(I));
END;
ANTAL = SALDO1 + SALDO2;
PRISLAG = PRISLAG1;
TFPRIS = FORSPRIS;
BELOPP1 = PRISLAG * TANTAL;
TSUMMA = TFPRIS * TANTAL;
SALDO1 = SALDO1 - TANTAL;
TARTNR = ARTNR;
TBEN = BENAMN;
SUMMA = BELOPP1;
TS1 = S1;
TS2 = S2;
TS3 = S3;
TS4 = S4;
TS5 = S5;
TS6 = S6;
TS7 = S7;
TS8 =S8;
DO I = 1 TO 8;
IF(S(1) = 1.) THEN TS1 = 0;
IF(S(2) = 1.) THEN TS2 = 0;
IF(S(3) = 1.) THEN TS3 = 0;
IF(S(4) = 1.) THEN TS4 = 0;
IF(S(5) = 1.) THEN TS5 = 0;
IF(S(6) = 1.) THEN TS6 = 0;
IF(S(7) = 1.) THEN TS7 = 0;
IF(S(8) = 1.) THEN TS8 = 0;
IF(S(1)= 0.) THEN S1 = 0;
IF(S(2) = 0.) THEN S2 = 0;
IF(S(3) = 0.) THEN S3 = 0;
IF(S(4) = 0.) THEN S4 = 0;
IF(S(5) = 0.) THEN S5 = 0;
IF(S(6) = 0.) THEN S6 = 0;
IF(S(7) = 0.) THEN S7 = 0;
IF(S(8) = 0.) THEN S8 = 0;
END;
RADR = RADR + 3;
IF(RADR = '50') THEN DO;
PUT SKIP(7) EDIT(RUB1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) EDIT(RUB3) (A(49)) (RUB4) (A(37)) (RUB5) (A(25));
RADR = '8';
END;
PUT SKIP(2) EDIT(ARTNR) (A(7)) (BENAMN) (A(42));
PUT EDIT(ANTAL) (P'ZZ9') (TANTAL) (X(8),P'ZZ9');
PUT EDIT(PRISLAG) (X(3),P'ZZZZ9V.99') (BELOPP1) (X(3),P'----9V.99');
PUT EDIT(TS1) (X(14),P'ZZZZZ') (TS2) (X(2),P'ZZZZZ') (TS3) (X(2),P'ZZZZZ');
PUT EDIT(TS4) (X(2),P'ZZZZZ');
PUT SKIP EDIT(TS5)(X(115),P'ZZZZZ')(TS6) (X(2),P'ZZZZZ') (TS7) (X(2),P'ZZZZZ');
PUT EDIT(TS8) (X(2),P'ZZZZZ');
REWRITE FILE(ARTREG) FROM(L010U);
WRITE FILE(TRANSREG) FROM(TRANSPOST);
GO TO START;
SLUT:
CLOSE TRANSREG;
END;