|
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: 21567 (0x543f)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »L015«
└─⟦aa457d816⟧ Bits:30008645 DDMQ1-0085_VERS_3_0_L010_L040_L015_L020_L030
└─⟦this⟧ »L015«
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 1 L010C,
2 CARTNR CHAR(5),
2 CBEN CHAR(40),
2 CPRISU FIXED(8,2),
2 CUTLPRIS FIXED(8,2),
2 CPRISL1 FIXED(8,2),
2 CPRISL2 FIXED(8,2),
2 CFPRIS FIXED(8,2),
2 CSALDO1 FIXED(3),
2 CSALDO2 FIXED(3),
2 CFAKT1 FIXED(4,2),
2 CFAKT2 FIXED(4,2),
2 CLAND CHAR(1),
2 CBMARK CHAR(1),
2 CDATUM CHAR(6),
2 CS1 FIXED(5), 2 CS2 FIXED(5), 2 CS3 FIXED(5), 2 CS4 FIXED(5),
2 CS5 FIXED(5), 2 CS6 FIXED(5), 2 CS7 FIXED(5), 2 CS8 FIXED(5);
DCL RUBRIK1 CHAR(40) INITIAL('M S T E N H A R D T A B');
DCL RUB1 CHAR(40) INITIAL(' ÄNDRING AV ARTIKELREGISTRET ');
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(RUBRIK1) (A(49)) (RUB1) (A(40)) (DATUM) (A(10));
PUT SKIP(2) LIST(RUBRIK2,RUBRIK3,RUBRIK4,RUBRIK5);
DCL B CHAR(5);
DCL C CHAR(2);
DCL D(22) FIXED(2);
DCL ARTREG FILE;
OPEN ARTREG;
RADR = 5;
NYNR:
PUT FILE(DISPLAY) SKIP LIST('SKRIV ARTIKELNUMRET SOM SKA ÄNDRAS ');
GET LIST(B);
ARTNR = B;
IF(B = '99999') THEN GO TO SLUT;
READ KEY(B) FILE(ARTREG) INTO(L010U);
CARTNR = ARTNR;
CBEN = BENAMN;
CPRISU = PRISUTL;
CUTLPRIS = UTLPRIS2;
CPRISL1 = PRISLAG1;
CPRISL2 = PRISLAG2;
CFPRIS = FORSPRIS;
CSALDO1 = SALDO1;
CSALDO2 = SALDO2;
CFAKT1 = FAKTOR1;
CFAKT2 = FAKTOR2;
CLAND = ULAND;
CBMARK = BORTMARK;
CDAT = SLEVDAT;
CS1 = S1;
CS2 = S2;
CS3 = S3;
CS4 = S4;
CS5 = S5;
CS6 = S6;
CS7 = S7;
CS8 = S8;
PUT FILE(DISPLAY) SKIP LIST('RÄTT ARTNR? ',ARTNR,' 00 = JA, 98 = FEL ');
GET SKIP LIST(C);
IF(C = '98') THEN GO TO NYNR;
PUT FILE(DISPLAY) SKIP LIST('ANGE FÄLTNUMREN SOM SKA ÄNDRAS ');
DO I = 1 TO 22;
GET LIST(D(I));
IF(D(I) = '99') THEN GO TO LETA;
END;
LETA: X = Y;
DO I = 1 TO 22;
IF(D(I) = '1') THEN DO;
PUT FILE(DISPLAY) SKIP LIST(ARTNR,' ÄNDRAS TILL ');
GET LIST(ARTNR);
CARTNR = ARTNR;
END;
IF(D(I) = '2') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('BENÄMNING ÄNDRAS TILL ');
GET LIST(BENAMN);
CBEN = BENAMN;
END;
IF(D(I) = '3') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('UTLÄNDSKT PRIS1 ÄNDRAS TILL ');
GET LIST(PRISUTL);
CPRISU = PRISUTL;
END;
IF(D(I) = '4') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('UTLÄNDSKT PRIS2 ÄNDRAS TILL ');
GET LIST(UTLPRIS2);
CUTLPRIS = UTLPRIS2;
END;
IF(D(I) = '5') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('FÖRSÄLJNINGSPRISET ÄNDRAS TILL: ');
GET LIST(FORSPRIS);
CFPRIS = FORSPRIS;
END;
IF(D(I) = '6') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('SALDO 1 ÄNDRAS TILL ');
GET LIST(SALDO1);
CSALDO1 = SALDO1;
END;
IF(D(I) = '7') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('SALDO 2 ÄNDRAS TILL ');
GET LIST(SALDO2);
CSALDO2 = SALDO2;
END;
IF(D(I) = '8') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('FAKTOR 1 ÄNDRAS TILL ');
GET SKIP LIST(FAKTOR1);
CFAKT1 = FAKTOR1;
END;
IF(D(I) = '9') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('FAKTOR 2 ÄNDRAS TILL ');
GET SKIP LIST(FAKTOR2);
CFAKT2 = FAKTOR2;
END;
IF(D(I) = '10') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('LAND, ÄNDRAS TILL ');
GET LIST(ULAND);
CLAND = ULAND;
END;
IF(D(I) = '11') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('BORTTAGNINGSMARKERING ÄNDRAS TILL ');
GET SKIP LIST(BORTMARK);
CBMARK = BORTMARK;
END;
IF(D(I) = '12') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('SENAST LEVERANSDATUM ÄNDRAS TILL ');
GET LIST(SLEVDAT);
CDAT = SLEVDAT;
END;
IF(D(I) = '13') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('1 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S1);
CS1 = S1;
END;
IF(D(I) = '14') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('2 SERIENUMRET ÄNDRAS TILL ');
GET SKIP LIST(S2);
CS2 = S2;
END;
IF(D(I) = '15') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('3 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S3);
CS3 = S3;
END;
IF(D(I) = '16') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('4 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S4);
CS4 = S4;
END;
IF(D(I) = '17') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('5 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S5);
CS5 = S5;
END;
IF(D(I) = '18') THEN DO ;
PUT FILE(DISPLAY) SKIP LIST('6 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S6);
CS6 = S6;
END;
IF(D(I) = '19') THEN DO;
PUT FILE(DISPLAY) SKIP LIST(' 7 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S7);
CS7 = S7;
END;
IF(D(I) = '20') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('8 SERIENUMRET ÄNDRAS TILL ');
GET LIST(S8);
CS8 = S8;
END;
IF(D(I) = '21') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('ANGE LAGERPRIS 1 ');
GET LIST(PRISLAG1);
CPRISL1 = PRISLAG1;
END;
IF(D(I) = '22') THEN DO;
PUT FILE(DISPLAY) SKIP LIST('ANGE LAGERPRIS2 ');
GET LIST(PRISLAG2);
CPRISL2 = PRISLAG2;
END;
END;
LAES:
ARTNR = CARTNR;
BENAMN = CBEN;
PRISUTL = CPRISU;
UTLPRIS2 = CUTLPRIS;
FORPRIS = CFPRIS;
SALDO1 = CSALDO1;
SALDO2 = CSALDO2;
FAKTOR1 = CFAKT1;
FAKTOR2 = CFAKT2;
ULAND = CLAND;
BORTMARK = CBMARK;
SLEVDAT = CDAT;
S1 = CS1;
S2 = CS2;
S3 = CS3;
S4 = CS4;
S5 = CS5;
S6 = CS6;
S7 = CS7;
S8 = CS8;
REWRITE FILE(ARTREG) FROM(L010U);
RADR = RADR + 3;
IF(RADR = '50') THEN DO;
PUT SKIP(7) EDIT(RUBRIK1) (A(49)) (RUB1) (A(40)) (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');
PUT EDIT(PRISLAG2) (X(2),P'ZZZZZV.99') (SALDO2) (X(14),P'--9');
PUT EDIT(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');
DO I = 1 TO 20;
D(I) = ' ';
END;
GO TO NYNR;
SLUT:
END;