|
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: 21093 (0x5265)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »BUDGET1«
└─⟦95b7b493b⟧ Bits:30008570 DDMQ1-0005_Vers_3_2_BUDGET
└─⟦this⟧ »BUDGET1«
DCL AA FIXED(5);
DCL AB FIXED(4);
DCL AC FIXED(4);
DCL AD FIXED(4);
DCL AE FIXED(4);
DCL AF FIXED(4);
DCL BA FIXED(4);
DCL CA FIXED(4);
DCL CB FIXED(4);
DCL DB FIXED(4);
DCL DC FIXED(4);
DCL DD FIXED(5,2);
DCL DE FIXED(4);
DCL DF FIXED(5,2);
DCL DG FIXED(5,2);
DCL EB FIXED(4);
DCL EC FIXED(4);
DCL ED FIXED(5);
DCL EE FIXED(5);
DCL FB FIXED(4);
DCL FC FIXED(4);
DCL FD FIXED(4);
DCL FE FIXED(4);
DCL GB FIXED(4);
DCL GC FIXED(4);
DCL GD FIXED(4);
DCL GE FIXED(4);
DCL HB FIXED(4);
DCL HC FIXED(4);
DCL HD FIXED(4);
DCL HE FIXED(4);
DCL HF FIXED(4);
DCL HG FIXED(4);
DCL HH FIXED(4);
DCL HI FIXED(4);
DCL HK FIXED(4);
DCL HL FIXED(5);
DCL HM FIXED(5);
DCL HN FIXED(5);
DCL HO FIXED(4);
DCL OB FIXED(4);
DCL OC FIXED(4);
DCL OD FIXED(4);
DCL OE FIXED(4);
DCL OF FIXED(4);
DCL OH FIXED(4);
DCL OI FIXED(4);
DCL OK FIXED(4);
DCL OL FIXED(4);
DCL OM FIXED(4);
DCL OR FIXED(4);
DCL OO FIXED (4);
DCL OP FIXED(4);
DCL OQ FIXED(4);
DCL PA FIXED(5,2);
LET: DCL RUB CHAR(35) INITIAL('B U D G E T F Ö R S L A G');
DCL RAA CHAR(20) INITIAL('VARUFÖRSÄLJNING');
DCL RAB CHAR(20) INITIAL('STYCKEKOSTNADER');
DCL RAC CHAR(20) INITIAL('TÄCKNINGSBIDRAG');
DCL RAD CHAR(20) INITIAL('VARUFÖRBRUKNING');
DCL RAE CHAR(20) INITIAL('PROVISION');
DCL RAF CHAR(25) INITIAL('ANDRA STYCKEKOSTNADER');
DCL RBA CHAR(40) INITIAL('K A P A C I T E T S K O S T N A D E R');
DCL RCA CHAR(40) INITIAL('I N V E S T E R I N G S B U D G E T');
DCL RCB CHAR(20) INITIAL('AVSKRIVNINGAR');
DCL RDA CHAR(40) INITIAL(' R E S U L T A T B U D G E T');
DCL RDB CHAR(40) INITIAL('TOTALA FASTA KOSTNADER');
DCL RDC CHAR(20) INITIAL('TOTALT ÖVERSKOTT');
DCL RDD CHAR(20) INITIAL('TÄCKNINGSGRAD');
DCL RDE CHAR(20) INITIAL('NOLLPUNKT');
DCL RDF CHAR(20) INITIAL('KAPACITETSGRAD');
DCL RDG CHAR(20) INITIAL('SÄKERHETSMARGINAL');
DCL REA CHAR(40) INITIAL (' L A G E R B U D G E T ');
DCL REB CHAR(20) INITIAL('ING. LAGER');
DCL REC CHAR(20) INITIAL('UTG. LAGER');
DCL RED CHAR(20) INITIAL('LAGERFÖRSKJUTNING');
DCL REE CHAR(20) INITIAL('VARUINKÖP');
DCL RFA CHAR(45) INITIAL(' B U D G E T K U N D F O R D R I N G A R');
DCL RFB CHAR(25) INITIAL('ING. KUNDFORDRINGAR');
DCL RFC CHAR(25) INITIAL('UTG. KUNDFORDRINGAR');
DCL RFD CHAR(25) INITIAL('SUMMA KUNDFORDRINGAR');
DCL RFE CHAR(30) INITIAL('INBET FRÅN KUNDER');
DCL RGA CHAR(50) INITIAL('B U D G E T L E V E R A N T Ö R S K U L D E R');
DCL RGB CHAR(30) INITIAL('ING LEVERANTÖRSKULDER');
DCL RGC CHAR(30) INITIAL('SUMMA LEVERANTÖRSKULDER');
DCL RGD CHAR(30) INITIAL('UTG LEVERANTÖRSKULDER');
DCL RGE CHAR(30) INITIAL('UTBETALT TILL LEVERANTÖRER');
DCL RHA CHAR(40) INITIAL('L I K V I D I T E T S B U D G E T');
DCL RHB CHAR(30) INITIAL('INBETALT FRÅN KUNDER');
DCL RHC CHAR(20) INITIAL('UTBETALNINGAR');
DCL RHD CHAR(20) INITIAL('TILL LEVERANTÖRER');
DCL RHE CHAR(20) INITIAL('FÖRSÄLJNINGSPROV');
DCL RHF CHAR(25) INITIAL('KAPACITETSKOSTN<DER');
DCL RHG CHAR(20) INITIAL('INVESTERINGAR');
DCL RHH CHAR(20) INITIAL('RÄNTOR');
DCL RHI CHAR(10) INITIAL('DIV');
DCL RHK CHAR(25) INITIAL('TOTALA UTBETALNINGAR');
DCL RHL CHAR(20) INITIAL('KASSAFÖRSKJUTNING');
DCL RHM CHAR(20) INITIAL('ING KASSA');
DCL RHN CHAR(20) INITIAL('UTG KASSA');
DCL RHO CHAR(30) INITIAL('KONTROLL UTBET OCH INBET');
DCL ROA CHAR(30) INITIAL('B A L A N S B U D G E T');
DCL ROB CHAR(20) INITIAL('KASSABEHÅLLNING');
DCL ROC CHAR(20) INITIAL('VARULAGER');
DCL ROD CHAR(20) INITIAL('KUNDFORDRINGAR');
DCL ROE CHAR(20) INITIAL('FASTA TILLGÅNGAR');
DCL ROF CHAR(20) INITIAL('TOTALA TILLGÅNGAR');
DCL ROG CHAR(40) INITIAL('S K U L D E R');
DCL ROH CHAR(10) INITIAL('FÖRSKOTT');
DCL ROI CHAR(20) INITIAL('LEVERANTÖRSKULDER');
DCL ROK CHAR(20) INITIAL('KASSAKREDIT');
DCL ROL CHAR(10) INITIAL('SKULDER');
DCL ROM CHAR(15) INITIAL('AKTIEKAPITAL');
DCL RON CHAR(15) INITIAL('RESERVFOND');
DCL ROO CHAR(30) INITIAL('VINST I FÖREG PERIOD');
DCL ROP CHAR(30) INITIAL('VINST BER PERIOD');
DCL ROQ CHAR(30) INITIAL('TOTALA SKULDER');
LETA: DCL RPA CHAR(20) INITIAL('AVKASTNINGSGRAD');
PUT FILE(DISPLAY) SKIP LIST('VARUFÖRSÄLJNING ');
GET LIST(AA);
PUT FILE(DISPLAY) SKIP LIST('VARUFÖRBRUKNING ');
GET LIST(AD);
PUT FILE(DISPLAY) SKIP LIST('PROVISION');
GET LIST(AE);
PUT FILE (DISPLAY) SKIP LIST('ANDRA STYCKEKOSTNADER ');
GET LIST(AF);
PUT FILE(DISPLAY) SKIP LIST('KAPACITETSKOSTNADER ');
GET LIST(BA);
PUT FILE(DISPLAY) SKIP LIST('INVESTERINGSBUDGET ');
GET LIST(CA);
PUT FILE(DISPLAY) SKIP LIST('AVSKRIVNINGAR ');
GET LIST(CB);
PUT FILE(DISPLAY) SKIP LIST('ING LAGER ');
GET LIST(EB);
PUT FILE(DISPLAY) SKIP LIST('UTG LAGER ');
GET LIST(EC);
PUT FILE(DISPLAY) SKIP LIST('ING KUNDFORDRINGAR ');
GET LIST(FB);
PUT FILE(DISPLAY) SKIP LIST('UTG KUNDFORDRINGAR ');
GET LIST(FC);
PUT FILE(DISPLAY) SKIP LIST('ING LEVERANTÖRSSKULDER ');
GET LIST(GB);
PUT FILE(DISPLAY) SKIP LIST('UTG LEVERANTÖRSSKULDER ');
GET LIST(GD);
PUT FILE(DISPLAY) SKIP LIST('RÄNTOR ');
GET LIST(HH);
PUT FILE(DISPLAY) SKIP LIST('DIV ');
GET LIST(HI);
PUT FILE(DISPLAY) SKIP LIST('ING KASSA ');
GET LIST(HM);
PUT FILE(DISPLAY) SKIP LIST('FASTA TILLGÅNGAR ');
GET LIST(OE);
PUT FILE(DISPLAY) SKIP LIST('FÖRSKOTT ');
GET LIST(OH);
PUT FILE(DISPLAY) SKIP LIST('KASSAKREDIT ');
GET LIST(OK);
PUT FILE(DISPLAY) SKIP LIST('SKULDER ');
GET LIST(OL);
PUT FILE(DISPLAY) SKIP LIST('AKTIEKAPITAL ');
GET LIST(OM);
PUT FILE(DISPLAY) SKIP LIST('RESERVFOND ');
GET LIST(OR);
PUT FILE(DISPLAY) SKIP LIST('VINST FÄREG PERIOD ');
GET LIST(OO);
AB = AD + AE + AF;
AC = AA - AB;
DB = BA + CB;
DC = AC - DB;
DD = AC * 100/AA;
DE = DB * 100/DD;
DF = AC/DB;
DG =(AA-DE)* 100/AA;
ED = EC - EB;
EE = ED + AD;
FD = FC - FB;
FE = AA - FD;
GC = GB + EE;
GE = GB - GD + EE;
HB = FE;
HD = GE;
HE = AE;
HF = BA;
HG = CA;
HK = GE + AE + BA + CA + HH + HI;
HL = FE - HK;
HN = HL + HM;
HO = HK + HL + HM;
OB = HN;
OC = EC;
OD = FC;
OF = HN + EC + FC + OE;
OI = GD;
OP = DC - HH;
OQ = OH + OI + OK + OL + OM + OR + OO + OP;
PA = DC * 100/OF;
PUT SKIP(2) EDIT(RUB) (A(60));
PUT SKIP EDIT(RAA)(A(59)) (AA)(P'ZZZZZ');
PUT SKIP EDIT(RAB)(A(60)) (AB)(P'ZZZZ');
PUT SKIP EDIT(RAC)(A(60)) (AC)(P'---Z');
PUT SKIP EDIT(RAD)(A(60)) (AD)(P'ZZZZ');
PUT SKIP EDIT(RAE)(A(60)) (AE)(P'ZZZZ');
PUT SKIP EDIT(RAF)(A(60)) (AF)(P'ZZZZ');
PUT SKIP(2) EDIT(RBA)(A(60)) (BA)(P'ZZZZ');
PUT SKIP(2) EDIT(RCA)(A(60)) (CA)(P'ZZZZ');
PUT SKIP EDIT(RCB)(A(60)) (CB)(P'ZZZZ');
PUT SKIP(2) EDIT(RDA)(A(60));
PUT SKIP EDIT(RDB)(A(60)) (DB)(P'ZZZZ');
PUT SKIP EDIT(RDC)(A(60)) (DC)(P'ZZZZ');
PUT SKIP EDIT(RDD)(A(59)) (DD)(P'ZZV.99');
PUT LIST('%');
PUT SKIP EDIT(RDE)(A(60)) (DE)(P'ZZZZ');
PUT SKIP EDIT(RDF)(A(59)) (DF)(P'ZZV.99');
PUT SKIP EDIT(RDG)(A(59)) (DG)(P'ZZV.99');
PUT LIST('%');
PUT SKIP(2) EDIT(REA)(A(60));
PUT SKIP EDIT(REB)(A(60)) (EB)(P'ZZZZ');
PUT SKIP EDIT(REC)(A(60)) (EC)(P'ZZZZ');
PUT SKIP EDIT(RED)(A(59)) (ED)(P'----Z');
PUT SKIP EDIT(REE)(A(59)) (EE)(P'----Z');
PUT SKIP(2) EDIT(RFA)(A(60));
PUT SKIP EDIT(RFB)(A(60)) (FB)(P'ZZZZ');
PUT SKIP EDIT(RFC)(A(60)) (FC)(P'ZZZZ');
PUT SKIP EDIT(RFD)(A(60)) (FD)(P'ZZZZ');
PUT SKIP EDIT(RFE)(A(60)) (FE)(P'ZZZZ');
PUT SKIP(2) EDIT(RGA)(A(60));
PUT SKIP EDIT(RGB)(A(60)) (GB)(P'ZZZZ');
PUT SKIP EDIT(RGC)(A(60)) (GC)(P'ZZZZ');
PUT SKIP EDIT(RGD)(A(60)) (GD)(P'ZZZZ');
PUT SKIP EDIT(RGE)(A(60)) (GE)(P'ZZZZ');
PUT SKIP(2) EDIT(RHA)(A(60));
PUT SKIP EDIT(RHB)(A(60)) (HB)(P'ZZZZ');
PUT SKIP(2) EDIT(RHC)(A(60));
PUT SKIP EDIT(RHD)(A(60)) (HD)(P'ZZZZ');
PUT SKIP EDIT(RHE)(A(60)) (HE)(P'ZZZZ');
PUT SKIP EDIT(RHF)(A(60)) (HF)(P'ZZZZ');
PUT SKIP EDIT(RHG)(A(60)) (HG)(P'ZZZZ');
PUT SKIP EDIT(RHH)(A(60)) (HH)(P'ZZZZ');
PUT SKIP EDIT(RHI)(A(60)) (HI)(P'ZZZZ');
PUT SKIP EDIT(RHK)(A(60)) (HK)(P'ZZZZ');
PUT SKIP EDIT(RHL)(A(59)) (HL)(P'ZZZZ');
PUT SKIP EDIT(RHM)(A(60)) (HM)(P'ZZZZ');
PUT SKIP EDIT(RHN)(A(59)) (HN)(P'----z');
PUT SKIP EDIT(RHO)(A(60)) (HO)(P'ZZZZ');
PUT SKIP(2) EDIT(ROA)(A(60));
PUT SKIP EDIT(ROB)(A(60)) (OB)(P'ZZZZ');
PUT SKIP EDIT(ROC)(A(60)) (OC)(P'ZZZZ');
PUT SKIP EDIT(ROD)(A(60)) (OD)(P'ZZZZ');
PUT SKIP EDIT(ROE)(A(60)) (OE)(P'ZZZZ');
PUT SKIP EDIT(ROF)(A(60)) (OF)(P'ZZZZ');
PUT SKIP(2) EDIT(ROG)(A(50));
PUT SKIP EDIT(ROH)(A(50)) (OH)(P'ZZZZ');
PUT SKIP EDIT(ROI)(A(50)) (OI)(P'ZZZZ');
PUT SKIP EDIT(ROK)(A(50)) (OK)(P'ZZZZ');
PUT SKIP EDIT(ROL)(A(50)) (OL)(P'ZZZZ');
PUT SKIP EDIT(ROM)(A(50)) (OM)(P'ZZZZ');
PUT SKIP EDIT(RON)(A(50)) (OR)(P'ZZZZ');
PUT SKIP EDIT(ROO)(A(50)) (OO)(P'ZZZZ');
PUT SKIP EDIT(ROP)(A(50)) (OP)(P'ZZZZ');
PUT SKIP EDIT(ROQ)(A(50)) (OQ)(P'ZZZZ');
PUT SKIP(3) EDIT (RPA)(A(55)) (PA)(P'ZZV.99');
END;