|
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: »KOUT1«
└─⟦1f3202981⟧ Bits:30008731 DDMQ1-0173_MSAB_Bokföring_Alla_Program_i_PL1_ref_ex_780428
└─⟦this⟧ »KOUT1«
/*FÖRSTA RADEN*/
/*UTSKRIFT AV KONTOPLANEN FRÅN TEXTFILEN KTOTX
KLART: 780428 FÖR MSAB PROGR:TD */
DCL 1 KTO,2 KONTO FIXED(4),2 TEXT CHAR(34);
DCL 1 DATREC,2 DAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),
2 CO FIXED(1);
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(1),2 XCO FIXED(1);
XDAG='XXXXXX ';XMNR=0;
DCL DATFIL FILE,KTOTX FILE,S CHAR(1),RAD FIXED(2),SIDA FIXED(4);
OPEN KTOTX;OPEN DATFIL;
READ FILE(DATFIL)INTO(DATREC);IF DAG='XXXXXX' THEN GO TO SLUT;
DO I=1 TO 14;XSK(I)=SK(I);END;XCO=CO;
REWRITE FILE(DATFIL)FROM(XDATREC);
PUT FILE(D) SKIP EDIT(' ')(A(37))('*** UTSKRIFT AV KONTOPLANEN ***')
(A(74))('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37));
GET SKIP LIST(S);
TAB:PUT FILE(D) SKIP EDIT('SKA ALLA KONTON SKRIVAS UT, ELLER')(A(37))
('BARA DE 4-SIFFRIGA')(A(37))('(DVS DE SOM ÄR AKTUELLA VID')(A(37))
('TRANSAKTIONER)')(A(74))('"1" = ALLA')(A(37))('"2" = ENDAST 4-SIFFRIGA')
(A(35));GET SKIP LIST(S);IF VERIFY(S,'12')=0 THEN GO TO TAB;
PUT FILE(D)SKIP EDIT(' ')(A(43))('*** UTSKRIFT PÅGÅR ***')(A(68));
RAD=5;SIDA=0;
RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('UTSKRIFT AV KONTOPLANEN.')(A);
IF S='1' THEN PUT EDIT(' ALLA KONTON.')(A);
ELSE PUT EDIT('ENDAST 4-SIFFRIGA KONTON.')(A);
PUT EDIT(' ')(A(6))('DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2)EDIT
('KONTO')(A(8))('TEXT')(A)SKIP;
RAD=45;
ST:ON ENDFILE GO TO UT;READ FILE(KTOTX)INTO(KTO);
IF KONTO<1000 & S¬='1' THEN GO TO ST;
PUT SKIP EDIT(KONTO)(P'ZZZ9',X(4))(TEXT)(A);
RAD=RAD-1;
IF RAD<12 THEN GO TO RUB;GO TO ST;
UT:PUT SKIP(RAD-5);
SLUT:CALL LOAD('BOKRUT',6);END;