|
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: 6083 (0x17c3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »L020«
└─⟦aa457d816⟧ Bits:30008645 DDMQ1-0085_VERS_3_0_L010_L040_L015_L020_L030
└─⟦this⟧ »L020«
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(40) INITIAL('I N V E N T E R I N G S L I S T A');
DCL RUB3 CHAR(50) INITIAL('ARTNR BENÄMNING ');
DCL RUB4 CHAR(45) INITIAL('ANTAL INVENTERAT ANTAL DATUM PRIS');
DCL RUB5 CHAR(15) INITIAL(' SERIENUMMER ');
DCL DATUM CHAR(8);
PUT FILE(DISPLAY) SKIP LIST('DATUM ');
GET SKIP LIST(DATUM);
PUT SKIP(4) EDIT(RUB1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) EDIT(RUB3) (A(50)) (RUB4) (A(45)) (RUB5) (A(15));
DCL ART CHAR(2);
DCL ANTAL FIXED(3);
DCL INVDAT CHAR(6);
DCL ARTREG FILE;
OPEN ARTREG;
PUT FILE(DISPLAY) SKIP LIST('ANGE INVENTERINGSDATUM ');
GET LIST(INVDAT);
RADR = 8;
START:
ON ENDFILE GO TO SLUT;
READ FILE(ARTREG) INTO (L010U);
IF((SALDO1 + SALDO2) = 0) THEN GO TO START;
IF(ARTNR = ' ') THEN GO TO START;
IF(BORTMARK = 'A') THEN GO TO START;
RADR = RADR + 3;
IF(RADR = '47') THEN DO;
PUT SKIP(10) EDIT(RUB1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) EDIT(RUB3) (A(50)) (RUB4) (A(45)) (RUB5) (A(15));
RADR = 11;
END;
IF(ART ¬= SUBSTR(ARTNR,1,2)) THEN DO;
SIDA = 57 - RADR;
PUT SKIP(SIDA) EDIT(RUB1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) EDIT(RUB3) (A(50)) (RUB4) (A(45)) (RUB5) (A(15));
RADR = 11;
SIDA = 0;
END;
ANTAL = SALDO1 + SALDO2;
PUT SKIP(2) EDIT(ARTNR) (A(7)) (BENAMN) (A(45));
PUT EDIT(ANTAL) (P'--9',X(23)) (INVDAT) (A(8));
PUT EDIT(PRISUTL) (P'ZZZZZ9V.99');
PUT EDIT(S1) (X(4),P'ZZZZZ') (S2) (X(2),P'ZZZZZ') (S3) (X(2),P'ZZZZZ');
PUT EDIT(S4) (X(2),P'ZZZZZ');
PUT SKIP EDIT(UTLPRIS2) (X(86),P'ZZZZZ9V.99');
PUT EDIT(S5) (X(4),P'ZZZZZ') (S6) (X(2),P'ZZZZZ');
PUT EDIT(S7) (X(2),P'ZZZZZ') (S8) (X(2),P'ZZZZZ');
ART = (SUBSTR(ARTNR,1,2));
GO TO START;
SLUT:
END;