|
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: 4108 (0x100c)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »KOALT1«
└─⟦2d3ae9df8⟧ Bits:30008654 DDMQ1-0094_Nya_bokforingssystemet_I_LMC_MSAB_COPY_Skriv_BOKRUT_780220_TD
└─⟦this⟧ »KOALT1«
/*FÖRSTA RADEN*/
/*KOALT1 ÄNDRING AV NR ELLER TEXT I KONTONA I FILEN KTOTX
KLART: XXXXXX PROGR:TD */
/* DCL VERFIL FILE;CALL KFILE(VERFIL);*/
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);
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(1);
XDAG='XXXXXX ';XMNR=0;
DCL DATFIL FILE,KTOTX FILE,S CHAR(1),RAD FIXED(2),SIDA FIXED(4),
KO FIXED(4),KOSVAR CHAR(4);
OPEN KTOTX;OPEN DATFIL;
READ FILE(DATFIL)INTO(DATREC);IF DAG='XXXXXX' THEN GO TO SLUT;
DO I=1 TO 13;XSK(I)=SK(I);END;XSK(14)=' ';
REWRITE FILE(DATFIL)FROM(XDATREC);
PUT FILE(D) SKIP EDIT(' ')(A(37))('*** ÄNDRINGSRUTIN FÖR KONTOPLANEN ***')
(A(74))('STÄLL IN PERFORERINGEN')(A(37))('TRYCK SEDAN RETURN.')(A(37));
GET SKIP LIST(S);PUT FILE(D) SKIP;
RAD=5;SIDA=0;
RUB:SIDA=SIDA+1;PUT SKIP(RAD)EDIT('ÄNDRINGAR I KONTOPLANEN')(A(40))
('DATUM:')(A)(DAG)(A(10))('SIDA:')(A)(SIDA)(A)SKIP(2)EDIT
('FÖRE ÄNDRING:')(A(48))('EFTER ÄNDRING:')(A)SKIP(2)EDIT
('KONTO')(A(8))('TEXT')(A(40))('KONTO')(A(8))('TEXT')(A)SKIP;
RAD=43;
ST:PUT FILE(D) SKIP EDIT('KONTO SOM SKA ÄNDRAS:')(A(33));
ST2:GET SKIP LIST(KOSVAR);IF KOSVAR='SLUT' THEN GO TO UT;
KO=KOSVAR;PUT FILE(D)SKIP;
ON ERROR GO TO FEL;READ KEY(KO)FILE(KTOTX)INTO(KTO);
PUT SKIP EDIT(KONTO)(A(8))(TEXT)(A(40));RAD=RAD-1;
TAB:PUT FILE(D)SKIP EDIT(KONTO)(A(37))(TEXT)(A(37))
('VAD SKA ÄNDRAS?')(A(74))
('"1" = ÄNDRA KONTONUMRET')(A(37))('"2" = ÄNDRA TEXTEN')(A(37))
('"3" = NUMMER OCH TEXT ÄR OK.')(A(35));
GET SKIP LIST(S);
IF S='1' THEN GO TO A1;IF S='2' THEN GO TO A2;IF S='3' THEN GO TO A3;GO TO TAB;
A1:PUT FILE(D) SKIP EDIT('NUMRET ÄR NU:')(A(33))(KONTO)(A(4))('NYTT NR:')
(A(33));
GET SKIP LIST(KOSVAR);
IF 9999<KOSVAR ö 0>KOSVAR THEN GO TO TAB;
KONTO=KOSVAR;
GO TO TAB;
A2:PUT FILE(D)SKIP EDIT('KONTO ')(A)(KONTO)(A(5))('HAR NU TEXTEN')(A(29))
(TEXT)(A(71))('NY TEXT:')(A(40));GET SKIP LIST(TEXT);GO TO TAB;
A3:PUT FILE(D)SKIP;PUT EDIT(KONTO)(A(8))(TEXT)(A(50));
REWRITE FILE(KTOTX)FROM(KTO);
IF RAD<12 THEN GO TO RUB;GO TO ST;
FEL:PUT FILE(D) SKIP EDIT('KONTO ')(A)(KO)(A(5))('FINNS EJ')(A(26))
('ANGE NYTT KONTONR:')(A(33));GO TO ST2;
UT:PUT SKIP(RAD-5);
SLUT:CALL TYPIST('BOKRUT┣0d┫',7);END;