|
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: 4503 (0x1197)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »VERKONV1«
└─⟦94d9f3bc1⟧ Bits:30008571 DDMQ1-0006_Div_konverteringspgm_LMC
└─⟦this⟧ »VERKONV1«
/*FÖRSTA RADEN*/
/*VERKONV, BYTER UTSEENDET I DEN GAMLA VERS. AV VERFIL (JAN-DEC)
TILL DEN NYA.
KLART: 781106 PROGR:TD */
DCL 1 VER1(160),2 VKO1 FIXED(4),2 VAVD1 CHAR(3),2 VDAT1 FIXED(4),
2 VERNR1 FIXED(7),2 VTXT1 CHAR(20),2 VBEL1 FIXED(11,2),2 VKOD1 CHAR(1);
DCL 1 XVER1(160),2 XKO1 CHAR(4),2 XAVD1 CHAR(2),2 XDAT1 CHAR(4),
2 XVERNR1 FIXED(5),2 XTXT1 CHAR(20),2 XBEL1 FIXED(11,2),2 XKOD1 CHAR(1);
DCL 1 VER2(12),2 VKO2 FIXED(4),2 VAVD2 CHAR(3),2 VDAT2 FIXED(4),
2 VERNR2 FIXED(7),2 VTXT2 CHAR(20),2 VBEL2 FIXED(11,2),2 VKOD2 CHAR(1);
DCL 1 XVER2(12),2 XKO2 CHAR(4),2 XAVD2 CHAR(2),2 XDAT2 CHAR(4),
2 XVERNR2 FIXED(5),2 XTXT2 CHAR(20),2 XBEL2 FIXED(11,2),2 XKOD2 CHAR(1);
DCL 1 VER3,2 VKO3 FIXED(4),2 VAVD3 CHAR(3),2 VDAT3 FIXED(4),
2 VERNR3 FIXED(7),2 VTXT3 CHAR(20),2 VBEL3 FIXED(11,2),2 VKOD3 CHAR(1);
DCL 1 XVER3,2 XKO3 CHAR(4),2 XAVD3 CHAR(2),2 XDAT3 CHAR(4),
2 XVERNR3 FIXED(5),2 XTXT3 CHAR(20),2 XBEL3 FIXED(11,2),2 XKOD3 CHAR(1);
DCL VERFIL FILE,RECNR BINARY,S CHAR(1);
SHIFT:PROC;
VKO3=XKO3;VAVD3=XAVD3 CAT ' ';VDAT3=XDAT3;VERNR3=XVERNR3;VTXT3=XTXT3;
VBEL3=XBEL3;VKOD3=XKOD3;
RETURN;
END;
PUT FILE(D)SKIP EDIT('KONVERTERINGSPROGRAM FÖR VERFILER')(A(37))
('SÄTT IN EN DISKETT MED VERIF.TRANSAR')(A(37))
('SAMT ANGE VILKEN MÅNAD DET ÄR')(A(37))
('(JAN-DEC)')(A(74))('MÅNAD:')(A);
CALL KFILE(VERFIL);PUT FILE(D)SKIP;OPEN VERFIL;
RECNR=0;
IN1:ON ENDFILE GO TO IN2;READ FILE(VERFIL)INTO(XVER1);RECNR=UNSPEC(VERFIL);
DO I=1 TO 160;XVER3=XVER1(I);
CALL SHIFT;
VER1(I)=VER3;
END;
REWRITE FILE(VERFIL)FROM(VER1);
GO TO IN1;
IN2:UNSPEC(VERFIL)=RECNR;
IN2B:ON ENDFILE GO TO IN3;READ FILE(VERFIL)INTO(XVER2);RECNR=UNSPEC(VERFIL);
DO I=1 TO 12;XVER3=XVER2(I);
CALL SHIFT;
VER2(I)=VER3;
END;
REWRITE FILE(VERFIL)FROM(VER2);
GO TO IN2B;
IN3:UNSPEC(VERFIL)=RECNR;
IN3B:ON ENDFILE GO TO UT;READ FILE(VERFIL)INTO(XVER3);
CALL SHIFT;
REWRITE FILE(VERFIL)FROM(VER3);
GO TO IN3B;
UT:END;