|
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: 8927 (0x22df)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »L010«
└─⟦aa457d816⟧ Bits:30008645 DDMQ1-0085_VERS_3_0_L010_L040_L015_L020_L030
└─⟦this⟧ »L010«
└─⟦da7d9b920⟧ Bits:30008616 DDMQ1-0057_Daliga_spar_35_44
└─⟦this⟧ »L010«
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),
S6 FIXED(5),
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);
DCL DOLL FIXED(8,3);
DCL PUND FIXED(8,3);
DCL FRAN FIXED(8,3);
DCL BFRA FIXED(8,3);
DCL DKR FIXED(8,3);
DCL BKURS FIXED(8,3);
PUT FILE(DISPLAY) SKIP LIST('DATUM ');
GET SKIP LIST(DATUM);
PUT FILE(DISPLAY) SKIP LIST(' SKRIV AKTUELLA KURSER $, P, FRANCE,BFRAN,DKR ');
GET LIST(DOLL,PUND,FRAN,BFRA,DKR);
PUT SKIP(3) EDIT(RUBR1) (A(49)) (RUB1) (A(30)) (DATUM) (A(10));
PUT EDIT(DOLL) (X(1),P'ZZ9V.999') (PUND) (X(2),P'ZZ9V.999');
PUT EDIT(FRAN) (X(2),P'ZZ9V.999') (BFRA) (X(2),P'ZZ9V.999');
PUT EDIT(DKR) (X(2),P'ZZ9V.999');
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;
PUT FILE(DISPLAY) SKIP LIST('SKRIV N FÖR NYTT, G FÖR GAMMALT ARTREG ');
GET LIST(A);
RADR = 5;
IF(A = 'G') THEN CALL SEOF(ARTREG);
START:
PUT FILE(DISPLAY) SKIP LIST(' ANGE ARTIKELNUMMER ');
GET LIST(ARTNR);
IF(ARTNR = '99999') THEN GO TO SLUT;
PUT FILE(DISPLAY) SKIP LIST(' ANGE BENÄMNING ');
GET LIST(BENAMN);
PUT FILE(DISPALY) SKIP LIST(' ANGE UTLÄNDSKT PRIS1 ');
GET LIST(PRISUTL);
PUT FILE(DISPLAY) SKIP LIST(' ANGE UTLÄNDSKT PRIS2 ');
GET LIST(UTLPRIS2);
PUT FILE(DISPLAY) SKIP LIST(' ANGE FÖRSÄLJNINGSPRIS ');
GET LIST(FORSPRIS);
PUT FILE(DISPLAY) SKIP LIST(' ANGE ANTAL1 ');
GET LIST(SALDO1);
PUT FILE(DISPLAY) SKIP LIST(' ANGE ANTAL2 ');
GET LIST(SALDO2);
PUT FILE(DISPLAY) SKIP LIST(' ANGE FAKTOR1 ');
GET LIST( FAKTOR1);
PUT FILE(DISPLAY) SKIP LIST(' ANGE FAKTOR2 ');
GET LIST(FAKTOR2);
PUT FILE(DISPLAY) SKIP LIST(' ANGE LAND ');
GET LIST(ULAND);
PUT FILE(DISPLAY) SKIP LIST(' ANGE SENASTE LEVERANSDATUM ');
GET LIST(SLEVDAT);
PUT FILE(DISPLAY) SKIP LIST(' ANGE BORTTAGNINGSMARKERING ');
GET LIST(BORTMARK);
PUT FILE(DISPLAY) SKIP LIST(' ANGE SERIENUMMER 1 TILL8 ');
GET LIST(S1,S2,S3,S4,S5,S6,S7,S8);
IF(ULAND = 'U') THEN BKURS = DOLL;
IF(ULAND = 'E') THEN BKURS = PUND;
IF(ULAND = 'F') THEN BKURS = FRAN;
IF(ULAND = 'B') THEN BKURS = BFRA;
IF(ULAND = 'D') THEN BKURS = DKR;
PRISLAG1 = PRISUTL * FAKTOR1 * BKURS;
PRISLAG2 = UTLPRIS2 * FAKTOR2 * BKURS;
WRITE FILE(ARTREG) FROM(L010U);
RADR = RADR + 3;
IF(RADR = '50') 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:
CLOSE ARTREG;
END;