|
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: 5135 (0x140f)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »UTSKR«
└─⟦aa457d816⟧ Bits:30008645 DDMQ1-0085_VERS_3_0_L010_L040_L015_L020_L030
└─⟦this⟧ »UTSKR«
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 RUBR1 CHAR(40) INITIAL('M S T E N H A R D T A B');
DCL RUB1 CHAR(40) INITIAL('ARTIKELREGISTER');
DCL RUBRIK2 CHAR(50) INITIAL('ARTNR BENÄMNING ');
DCL RUBRIK3 CHAR(40) INITIAL(' UTL.PRIS LAG.PRIS ');
DCL RUBRIK4 CHAR(45) INITIAL('FÖRSÄLJPRIS ANTAL FAKTOR LAND LEVDAT ');
DCL RUBRIK5 CHAR(50) INITIAL(' SERIENUMMER ');
DCL DATUM CHAR(8);
PUT FILE(DISPLAY) SKIP LIST('DATUM ');
GET SKIP LIST(DATUM);
PUT SKIP(3) EDIT(RUBR1) (A(49)) (RUB1) (A(30)) (DATUM) (A(10));
PUT SKIP(2) LIST(RUBRIK2,RUBRIK3,RUBRIK4,RUBRIK5);
DCL A CHAR(1);
DCL B CHAR(5);
DCL C CHAR(2);
DCL ARTREG FILE;
OPEN ARTREG;
RADR = 5;
START: ON ENDFILE GO TO SLUT;
READ FILE(ARTREG) INTO (L010U);
IF(ARTNR = ' ') THEN GO TO START;
RADR = RADR + 3;
IF(RADR = '47') THEN DO;
PUT SKIP(7) EDIT(RUBR1) (A(49)) (RUB1) (A(30)) (DATUM) (A(10));
PUT SKIP(2) LIST(RUBRIK2,RUBRIK3,RUBRIK4,RUBRIK5);
RADR = 8;
END;
PUT SKIP(2) EDIT(ARTNR) (A(7)) (BENAMN) (A(41));
PUT EDIT(PRISUTL) (P'ZZZZ9V.99') (PRISLAG1) (X(2),P'ZZZZ9V.99');
PUT EDIT(FORSPRIS) (X(4),P'ZZZZ9V.99') (SALDO1) (X(2),P'--9');
PUT EDIT(FAKTOR1) (X(4),P'Z9V.99',X(3)) (ULAND) (A(3));
PUT EDIT(SLEVDAT) (A(8)) (BORTMARK) (A(2));
PUT EDIT(S1) (X(1),P'ZZZZZ') (S2) (X(2),P'ZZZZZ') (S3) (X(2),P'ZZZZZ');
PUT EDIT(S4) (X(2),P'ZZZZZ');
PUT SKIP EDIT(UTLPRIS2) (X(48),P'ZZZZ9V.99') (PRISLAG2)(X(2),P'ZZZZZV.99');
PUT EDIT(SALDO2) (X(14),P'--9') (FAKTOR2) (X(4),P'ZZV.99');
PUT EDIT(S5) (X(17),P'ZZZZZ') (S6) (X(2),P'ZZZZZ') (S7) (X(2),P'ZZZZZ');
PUT EDIT(S8) (X(2),P'ZZZZZ');
GO TO START;
SLUT:
END;