|
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: 7031 (0x1b77)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »L040«
└─⟦aa457d816⟧ Bits:30008645 DDMQ1-0085_VERS_3_0_L010_L040_L015_L020_L030
└─⟦this⟧ »L040«
└─⟦da7d9b920⟧ Bits:30008616 DDMQ1-0057_Daliga_spar_35_44
└─⟦this⟧ »L040«
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 RUB2 CHAR(40) INITIAL('L A G E R V Ä R D E S L I S T A ');
DCL RUB3 CHAR(40) INITIAL('ARTNR BENÄMNING ');
DCL RUB4 CHAR(50) INITIAL(' ANTAL LAG.PRIS BELOPP ');
DCL DATUM CHAR(8);
PUT FILE(DISPLAY) SKIP LIST('DATUM ');
GET SKIP LIST(DATUM);
PUT SKIP(3) EDIT(RUBR1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) EDIT(RUB3) (A(34)) (RUB4) (A(39));
DCL ART CHAR(2)INITIAL('AC');
DCL BELOPP1 FIXED(11,2);
DCL BELOPP2 FIXED(11,2) INITIAL(0.0);
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 PRL2 FIXED(8,2) INITIAL(0.0);
DCL ARTREG FILE;
OPEN ARTREG;
RADR = 5;
START: ON ENDFILE GO TO SLUT;
READ FILE(ARTREG) INTO(L010U);
IF((SALDO1+ SALDO2) = 0)THEN GO TO START;
IF(BORTMARK = 'A') THEN GO TO START;
IF(ARTNR = ' ') THEN GO TO START;
BELOPP1 = PRISLAG1 * SALDO1;
PRL2 = PRISLAG2;
BELOPP2 = PRL2 * SALDO2;
TOTSUML = TOTSUML + BELOPP1 + BELOPP2;
RADR = RADR + 3;
IF(RADR = 47) THEN DO;
PUT SKIP(7) EDIT(RUBR1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) LIST(RUB3,RUB4);
RADR = 8;
END;
IF(ART ¬= SUBSTR(ARTNR,1,2))THEN DO;
TOTSUML = TOTSUML - (BELOPP1 + BELOPP2);
PUT SKIP(3) LIST(' SUMMA LEVERANTÖR ');
PUT EDIT(TOTSUML) (X(70),P'ZZZZZZ9V.99');
SUMMA = TOTSUML;
TOTSUML = BELOPP1 + BELOPP2;
SIDA = 51 - RADR;
PUT SKIP(SIDA) EDIT(RUBR1) (A(49)) (RUB2) (A(40)) (DATUM) (A(10));
PUT SKIP(2) LIST(RUB3,RUB4);
SIDA = 0;
RADR = 8;
TOTSUM = TOTSUM + SUMMA;
SUMMA = 0.0;
END;
PUT SKIP(2) EDIT(ARTNR) (A(7)) (BENAMN) (A(45));
PUT EDIT(SALDO1) (P'ZZ9') (PRISLAG1) (X(3),P'ZZZZ9V.99');
PUT EDIT(BELOPP1) (X(3),P'ZZZZZ9V.99');
PUT SKIP EDIT(SALDO2) (X(52),P'ZZ9') (PRL2) (X(3),P'ZZZZ9V.99');
PUT EDIT(BELOPP2) (X(2),P'ZZZZZZ9V.99');
ART = (SUBSTR(ARTNR,1,2));
GO TO START;
SLUT:
PUT SKIP(3) LIST(' SUMMA LEVERANTÖR ');
PUT EDIT(TOTSUML) (X(70),P'ZZZZZZ9V.99');
TOTSUM = TOTSUM + TOTSUML;
PUT SKIP(50) LIST(' TOTALSUMMA LAGERVÄRDE ');
PUT EDIT(TOTSUM) (X(28),P'ZZZZZZ9V.99');
END;