|
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: 3081 (0xc09)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »NYÅR1«
└─⟦1f3202981⟧ Bits:30008731 DDMQ1-0173_MSAB_Bokföring_Alla_Program_i_PL1_ref_ex_780428
└─⟦this⟧ »NYÅR1«
/*FÖRSTA RADEN*/
/*NYÅR LÄGGER UPP NY SAMFIL "NYSAM" MED ING.SALDO=UTG.SALDO I GAMLA FILEN,
KLART: 780428 FÖR MSAB PROGR:TD */
DCL 1 SAM,2 SKO FIXED(4),
2 SMNR FIXED(2),
2 SAD FIXED(11,2),2 SAK FIXED(11,2),2 HJKOD CHAR(1);
DCL 1 NYS,2 NYKO FIXED(4),
2 NYMNR FIXED(2),
2 NYAD FIXED(11,2),2 NYAK FIXED(11,2),2 NYHJKOD CHAR(1);
DCL 1 DATREC,2 DAG CHAR(6),2 MON CHAR(3),2 MNR FIXED(2),2 SK(14) CHAR(1),
2 KOD FIXED(1);
DCL 1 XDATREC,2 XDAG CHAR(9),2 XMNR FIXED(2),2 XSK(14) CHAR(1),2 XKOD FIXED(1);
XDAG='XXXXXX ';XMNR=0;
DCL DATFIL FILE,S CHAR(1),IND FIXED(1),NYSAM FILE,
SAMFIL FILE,D4 FIXED(13,2),K4 FIXED(13,2),
XKO FIXED(4),XAVD FIXED(2),Q FIXED(1);
OPEN DATFIL;OPEN SAMFIL;OPEN NYSAM;
READ FILE(DATFIL)INTO(DATREC);IF DAG='XXXXXX' THEN GO TO SLUTT;
DO I=1 TO 14;XSK(I)=SK(I);END;XKOD=KOD;
REWRITE FILE(DATFIL)FROM(XDATREC);
PUT FILE(D)SKIP EDIT(' ')(A(37))('** UPPLÄGGNING AV NY SAMFIL PÅGÅR **')
(A(74));
IND=1;D4=0;K4=0;
ST:ON ENDFILE GO TO UT;READ FILE(SAMFIL)INTO(SAM);
IF IND=1 THEN XKO=SKO;IND=0;
IF XKO¬=SKO THEN GO TO NI4UT;
ACKUM:XKO=SKO;
D4=D4+SAD;K4=K4+SAK;
GO TO ST;
NI4UT:NYKO=XKO;NYMNR=0;NYAD=D4;NYAK=K4;
NYHJKOD=' ';D4=0;K4=0;
WRITE FILE(NYSAM)FROM(NYS);
IF SKO=9999 THEN GO TO SLUT;GO TO ACKUM;
UT:SKO=9999;GO TO NI4UT;
SLUT:CLOSE NYSAM;
CALL TYPIST('DISK R SAMFIL FDSAMFIL DISK R NYSAM SAMFIL ',43);
SLUTT:CALL TYPIST('BOKRUT┣0d┫',7);END;