|
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: 2923 (0xb6b)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »SANDCON1«
└─⟦94d9f3bc1⟧ Bits:30008571 DDMQ1-0006_Div_konverteringspgm_LMC
└─⟦this⟧ »SANDCON1«
/*FÖRSTA RADEN*/
/*SANDCON LÄSER ÖVER KONTO,BENÄMN SAMT INGÅENDE BALANS TILL KTOTX FRÅN KPLAN,
LÄSER ÖVER KONTO OCH BENÄMNING TILL KTOTX FRÅN KPLANB,
LÄSER ÖVER MÅNADERNAS DEB/KRE FRÅN KPLAN TILL SAMFIL
FÖR AND.SMITH KLART 781130 PROGR:TD*/
DCL 1 KTX,2 KONTO FIXED(4),2 Z CHAR(1),2 K CHAR(4),2 TEXT CHAR(34),
2 IB FIXED(13,2);
DCL 1 SAM,2 SKO FIXED(4),2 SAVD CHAR(3),2 SAD(12) FIXED(11,2),
2 SAK(12) FIXED(11,2);
DCL 1 KPL,2 KTO CHAR(4),2 STK CHAR(1),2 BEN CHAR(34),
2 ACD(12) FIXED(10,2),2 ACK(12) FIXED(10,2),2 INB FIXED(11,2);
DCL 1 KPLB,2 KTOB CHAR(4),2 BENA CHAR(34);
DCL KTOTX FILE,SAMFIL FILE,KPLAN FILE,KPLANB FILE,XX CHAR(1);
PUT FILE(D)SKIP EDIT('HEJ!')(A(37))('TAG UT ALLA DISKETTER')(A(37))
('SÄTT DÄREFTER IN DISKETTER MED FÖLJANDE FILER:')(A(74))
('KPLAN,KPLANB')(A(37))
('KTOTX OCH SAMFIL')(A(37))('TRYCK SEDAN PÅ RETURN.')(A(36));
GET SKIP LIST(XX);
PUT FILE(D) SKIP;
OPEN KTOTX;OPEN SAMFIL;OPEN KPLAN;OPEN KPLANB;
A:ON ENDFILE GOTO B;
READ FILE(KPLAN)INTO(KPL);
KONTO=KTO;Z='A';K=KTO CAT ' ';TEXT=BEN;IB=INB;
J=0;SKO=KONTO;SAVD=' ';DO I=1 TO 12;SAD(I)=ACD(I);SAK(I)=ACK(I);
IF SAD(I)¬=0öSAK(I)¬=0 THEN J=1;END;
WRITE FILE(KTOTX)FROM(KTX);
IF J=1 THEN WRITE FILE(SAMFIL)FROM(SAM);
GOTO A;
B:ON ENDFILE GOTO SLUT;
READ FILE(KPLANB)INTO(KPLB);
KONTO=KTOB;Z='A';K=KTOB CAT ' ';TEXT=BENA;IB=0;
WRITE FILE(KTOTX)FROM(KTX);
GOTO B;
SLUT:CLOSE KTOTX;CLOSE SAMFIL;
END;