|
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: 3871 (0xf1f)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »NYÅR1«
└─⟦7bb65a061⟧ Bits:30008625 DDMQ1-0065_Reflex_MSAB_Bokf_system_diskett_1_2_Sid2_Alla_pgm_PL1_781120_side0
└─⟦this⟧ »NYÅR1«
└─⟦aeb45b905⟧ Bits:30008623 DDMQ1-0063__LMC_Original_Generella_pgm_for_bokforing_Sid1_PL1_Sid2_kompil_781105_side1
└─⟦this⟧ »NYÅR1«
└─⟦cfd478037⟧ Bits:30008627 DDMQ1-0066_MSAB_ref_ex_Bokf_system_NFK_diskett_2_2_781120_side0
└─⟦this⟧ »NYÅR1«
└─⟦d1c33ffd3⟧ Bits:30008583 DDMQ1-0017_Bokforingssystem_kallkod_Msab_790411
└─⟦this⟧ »NYÅR1«
└─⟦d4a65d31f⟧ Bits:30008722 DDMQ1-0163_MSAB_Bokf_pgm_i_PL1_781112_TD
└─⟦this⟧ »NYÅR1«
└─⟦f4c608b16⟧ Bits:30008624 DDMQ1-0064_LMC_Kopia_Generall_pgm_for_bokforing_Endast_PL1-vers_781105_B
└─⟦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. GENERELLT PGM. KLART: 781104 PROGR:TD */
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 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 XDAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),
2 KOD FIXED(1);
DCL 1 SISTAVER,2 MAN FIXED(7);
DCL SISTVER FILE,S CHAR(1),IND FIXED(1),NYKTOTX FILE,
DAG CHAR(6),SAMFIL FILE,D4 FIXED(13,2),K4 FIXED(13,2),
XKO FIXED(4),XAVD CHAR(3),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',6);
UTT:END;