|
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: 7663 (0x1def)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »BOLAG«
└─⟦da474610a⟧ Bits:30008725 DDMQ1-0166_Bolag_Nyckelta_LITE
└─⟦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 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);
PUT FILE(DISPLAY) SKIP LIST('RUB1 '); 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;
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(30);
GO TO AAA;
END;