|
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: »NYÅR1«
└─⟦ff53f924a⟧ Bits:30008653 DDMQ1-0093_Nya_bokforingssystemet_II_original
└─⟦this⟧ »NYÅR1«
/*FÖRSTA RADEN*/
/*NYÅR LÄGGER IN NYA INGÅENDE SALDON (=UTG.SALDO FRÅN FÖREG. ÅR)
NOLLSTÄLLER VERNR-SERIEN,SAMT TAR BORT ALLA BUDGETAR
I FILEN NYKTOTX. KLART: 780709 PROGR:TD */
DCL 1 SAM,2 SKO FIXED(4),2 SAVD FIXED(2),2 SPROJ FIXED(4),
2 SAD(12) FIXED(11,2),2 SAK(12) FIXED(11,2);
DCL 1 KTX,2 KSTR,3 KONTO FIXED(4),3 Z CHAR(1),2 K CHAR(4),2 TEXT CHAR(34),
2 IB FIXED(13,2);
DCL 1 DATREC,2 DAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),
2 KOD FIXED(1),2 HUVKOD(12) CHAR(1);
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(1),2 XKOD FIXED(1),
2 XHUVKOD(12) CHAR(1);
DCL 1 SISTAVER,2 MAN FIXED(6);
XDAG='XXXXXX ';XMNR=0;
DCL SISTVER FILE,S CHAR(1),IND FIXED(1),NYKTOTX FILE,
SAMFIL FILE,D4 FIXED(13,2),K4 FIXED(13,2),
XKO FIXED(4),XAVD FIXED(2),Q FIXED(1);
OPEN SAMFIL;OPEN NYKTOTX;
PUT FILE(D)SKIP EDIT(' ')(A(37))('** KONVERTERING FÖR NYTT BOKF.ÅR **')
(A(74));
IND=1;D4=0;K4=0;
ST:ON ENDFILE GO TO UT;READ FILE(SAMFIL)INTO(SAM);
IF IND=1 THEN DO;XKO=SKO;END;IND=0;
IF XKO¬=SKO THEN GO TO NI4UT;
ACKUM:XKO=SKO;
DO I=1 TO 12;D4=D4+SAD(I);K4=K4+SAK(I);END;
GO TO ST;
NI4UT:KONTO=XKO;Z='A';
ON ERROR GO TO FEL;READ KEY(KSTR)FILE(NYKTOTX)INTO(KTX);
IB=IB+D4-K4;
REWRITE FILE(NYKTOTX)FROM(KTX);
D4=0;K4=0;
IF SKO=9999 THEN GO TO SLUT;GO TO ACKUM;
UT:SKO=9999;GO TO NI4UT;
FEL:PUT SKIP(2) EDIT('DET FYRSIFFRIGA KONTOT ')(A)(XKO)(A)
(' SAKNAS I KONTOPLANEN.')(A)SKIP EDIT('LÄGG IN DETTA KONTO,SAMT KOLLA ')(A)
('ATT KONTOPLANEN ÄR OK.')(A)SKIP(2)EDIT('KÖR SEDAN RUTINEN FÖR NYTT ')(A)
('BOKFÖRINGSÅR IGEN.')(A)SKIP(2)EDIT('')(A(30))('LYCKA TILL!')(A)
SKIP(2)EDIT('')(A(30))('** Q1 **')(A)SKIP(2);
GOTO SLUTT;
SLUT:
OPEN SISTVER;
READ FILE(SISTVER)INTO(SISTAVER);
MAN=0;
REWRITE FILE(SISTVER)FROM(SISTAVER);
CALL LOAD('SORT,O NYKTOTX SAMSORT 3 KLIPP2',31);GOTO UTT;
SLUTT:CALL LOAD('BOKRUT┣0d┫',7);
UTT:END;