|
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: 11455 (0x2cbf)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »BOLAG«
└─⟦bdadc555d⟧ Bits:30008724 DDMQ1-0165_LITE_KOPIA_BOLAG_NYCKELTA
└─⟦this⟧ »BOLAG«
AAA:
DCL RUB1 CHAR(50) INIT('BOLAG & ÅR ');
DCL RR1 FIXED(5,1); DCL RR2 FIXED(5,1); DCL RR3 FIXED(5,1); DCL RR4 FIXED(5,1);
DCL RR5 FIXED(5,1);
DCL BR1 FIXED(5,1); DCL BR2 FIXED(5,1); DCL BR3 FIXED(5,1); DCL BR4 FIXED(5,1);
DCL BR5 FIXED(5,1);
DCL BR6 FIXED(5,1); DCL BR7 FIXED(5,1); DCL BR8 FIXED(5,1); DCL BR9 FIXED(5,1);
DCL BR10 FIXED(5,1); DCL A1 FIXED(2); DCL A2 FIXED(5,1); DCL A3 FIXED(5,1);
DCL RUB2 CHAR(14) INITIAL('AVKASTNING');
DCL RUB3 CHAR(12) INITIAL('VINSTPROC');
DCL RUB4 CHAR(16) INITIAL('KAP OMS-HAST');
DCL RUB5 CHAR(18) INITIAL('RÖRELSERES/OMS');
DCL RUB6 CHAR(16) INITIAL('NETTORES/OMS');
DCL RUB7 CHAR(20) INITIAL('ARBETSKRKOST/OMS');
DCL RUB8 CHAR(12) INITIAL('OMS/ANST');
DCL RUB9 CHAR(18) INITIAL('RÖRELSEKAP/OMS');
DCL RUB10 CHAR(18) INITIAL('KASSA,BANK/OMS');
DCL RUB11 CHAR(16) INITIAL('KUNDFORD/OMS');
DCL RUB12 CHAR(21) INITIAL('AND KORT FOR/OMS');
DCL RUB13 CHAR(14) INITIAL('LAGER/OMS');
DCL RUB14 CHAR(19) INITIAL('KORT SKULD/OMS');
DCL RUB15 CHAR(12) INITIAL('KASSALIK');
DCL RUB16 CHAR(13) INITIAL('BALANSLIK');
DCL RUB17 CHAR(13) INITIAL('SOLIDITET');
DCL RUB18 CHAR(14) INITIAL('SOLIDITET');
DCL RUB19 CHAR(16) INIT('RÄNTABILITET');
DCL RUB20 CHAR(26) INIT('OMS-HAST KUNDFORDRINGAR');
DCL RUB21 CHAR(6) INIT('RR1');
DCL RUB22 CHAR(6) INIT('RR2');
DCL RUB23 CHAR(6) INIT('RR3');
DCL RUB24 CHAR(6) INIT('RR4');
DCL RUB25 CHAR(6) INIT('RR5');
DCL RUB26 CHAR(6) INIT('BR1');
DCL RUB27 CHAR(6) INIT('BR2');
DCL RUB28 CHAR(6) INIT('BR3');
DCL RUB29 CHAR(6) INIT('BR4');
DCL RUB30 CHAR(6) INIT('BR5');
DCL RUB31 CHAR(6) INIT('BR6');
DCL RUB32 CHAR(6) INIT('BR7');
DCL RUB33 CHAR(6) INIT('BR8');
DCL RUB34 CHAR(6) INIT('BR9');
DCL RUB35 CHAR(6) INIT('BR10');
DCL RUB36 CHAR(6) INIT('A1');
DCL RUB37 CHAR(6) INIT('A2');
DCL RUB38 CHAR(6) INIT('A3');
DCL AA FIXED(5,1); DCL AB FIXED(5,1); DCL AC FIXED(5,1); DCL AD FIXED(5,1);
DCL AE FIXED(5,1); DCL AF FIXED(5,1); DCL AG FIXED(5,1); DCL AH FIXED(5,1);
DCL AI FIXED(5,1); DCL AJ FIXED(5,1); DCL AK FIXED(5,1); DCL AL FIXED(5,1);
DCL AM FIXED(5,1); DCL AN FIXED(5,1); DCL AO FIXED(5,1); DCL AP FIXED(5,1);
DCL AR FIXED(5,1); DCL AT FIXED(5,1);DCL AU FIXED(5,1);DCL AV FIXED(5,1);
PUT FILE(DISPLAY) SKIP LIST('BOLAG & ÅR '); GET LIST(RUB1);
PUT FILE(DISPLAY) SKIP LIST('RR1 '); GET LIST(RR1);
PUT FILE(DISPLAY) SKIP LIST('RR2 '); GET LIST(RR2);
PUT FILE(DISPLAY) SKIP LIST('RR3 '); GET LIST(RR3);
PUT FILE(DISPLAY) SKIP LIST('RR4 '); GET LIST(RR4);
PUT FILE(DISPLAY) SKIP LIST('RR5 '); GET LIST(RR5);
PUT FILE(DISPLAY) SKIP LIST('BR1 '); GET LIST(BR1);
PUT FILE(DISPLAY) SKIP LIST('BR2 '); GET LIST(BR2);
PUT FILE(DISPLAY) SKIP LIST('BR3 '); GET LIST(BR3);
PUT FILE(DISPLAY) SKIP LIST('BR4 '); GET LIST(BR4);
PUT FILE(DISPLAY) SKIP LIST('BR5 '); GET LIST(BR5);
PUT FILE(DISPLAY) SKIP LIST('BR6 '); GET LIST(BR6);
PUT FILE(DISPLAY) SKIP LIST('BR7 '); GET LIST(BR7);
PUT FILE(DISPLAY) SKIP LIST('BR8 '); GET LIST(BR8);
PUT FILE(DISPLAY) SKIP LIST('BR9 '); GET LIST(BR9);
PUT FILE(DISPLAY) SKIP LIST('BR10 '); GET LIST(BR10);
PUT FILE(DISPLAY) SKIP LIST('A1 '); GET LIST(A1);
PUT FILE(DISPLAY) SKIP LIST('A2 '); GET LIST(A2);
PUT FILE(DISPLAY) SKIP LIST('A3 '); GET LIST(A3);
AA=(RR3+RR4)*100/BR6;
AB=(RR3+RR4)*100/RR1;
AC=RR1/BR6;
AD=RR2*100/RR1;
AE=RR5*100/RR1;
AF=(A2+A3)*100/RR1;
AG=RR1/A1;
AH=(BR5-BR7)*100/RR1;
AI=BR1*100/RR1;
AJ=(BR2+BR3)*100/RR1;
AK=(BR5-BR1-BR2-BR3-BR4)*100/RR1;
AL=BR4*100/RR1;
AM=BR7*100/RR1;
AN=(BR5-BR4)*100/BR7;
AO=BR5*100/BR7;
AP=(BR10+(.5*BR9))*100/BR6;
AR=(BR10+BR9+BR8)*100/BR6;
AU=RR2*100/BR5;
AV=RR1/BR3;
PUT SKIP EDIT(RUB1)(A);
PUT SKIP EDIT(RUB2)(A(60))(AA)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB3)(A(60))(AB)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB4)(A(60))(AC)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB5)(A(60))(AD)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB6)(A(60))(AE)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB7)(A(60))(AF)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB8)(A(60))(AG)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB9)(A(60))(AH)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB10)(A(60))(AI)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB11)(A(60))(AJ)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB12)(A(60))(AK)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB13)(A(60))(AL)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB14)(A(60))(AM)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB15)(A(60))(AN)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB16)(A(60))(AO)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB17)(A(60))(AP)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB18)(A(60))(AR)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB19)(A(60))(AU)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB20)(A(60))(AV)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB21)(A(60))(RR1)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB22)(A(60))(RR2)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB23)(A(60))(RR3)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB24)(A(60))(RR4)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB25)(A(60))(RR5)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB26)(A(60))(BR1)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB27)(A(60))(BR2)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB28)(A(60))(BR3)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB29)(A(60))(BR4)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB30)(A(60))(BR5)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB31)(A(60))(BR6)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB32)(A(60))(BR7)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB33)(A(60))(BR8)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB34)(A(60))(BR9)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB35)(A(60))(BR10)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB36)(A(60))(A1)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB37)(A(60))(A2)(P'ZZZZZV.9');
PUT SKIP EDIT(RUB38)(A(60))(A3)(P'ZZZZZV.9');
PUT SKIP(10);
GO TO AAA;
END;