|
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: 6004 (0x1774)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »SAMLARE1«
└─⟦651a288b5⟧ Bits:30008768 50001583
└─⟦this⟧ »SAMLARE1«
/* FÖRSTA RADEN */
/* SMLARE LÄSER IN INFORMATIN FRÅN 5 FILER SAMANHÅLLNA MED PEKARE
780331 PRG JÅ */
DCL 1 STR,
2 NSEG BINARY,
2 FIL CHAR(8),
2 ID CHAR(10),
2 DATA CHAR(37);
DCL SVAR CHAR(10);
DCL ROTFIL FILE,
AFIL FILE,
BFIL FILE,
CFIL FILE,
DFIL FILE;
OPEN ROTFIL;
OPEN AFIL;
OPEN BFIL;
OPEN CFIL;
OPEN DFIL;
PUT FILE(D) SKIP;
L1:PUT FILE(D) EDIT('ABONNENTNR:')(A(37));
GET SKIP LIST(SVAR);
IF SVAR='KLAR ' THEN GO TO SLUT;
ON ERROR GO TO FEL;
READ KEY(SVAR) FILE(ROTFIL) INTO(STR) KEYTO(ID);
PUT FILE(D) SKIP EDIT(ID)(A(12))(FIL)(A(8))(NSEG)(P'----Z',X(22))(DATA)(A(47));
IF NSEG=-1 THEN GO TO L2;
IF FIL='AFIL ' THEN DO;
UNSPEC(AFIL)=NSEG;
ON ENDFILE GO TO FEL2;
READ FILE(AFIL) INTO(STR);
PUT FILE(D) EDIT(ID)(A(12))(FIL)(A(8))(NSEG)(P'----Z',X(22))(DATA)(A(47));
END;
IF NSEG=-1 THEN GO TO L2;
IF FIL='BFIL ' THEN DO;
UNSPEC(BFIL)=NSEG;
ON ENDFILE GO TO FEL2;
READ FILE(BFIL) INTO(STR);
PUT FILE(D) EDIT(ID)(A(12))(FIL)(A(8))(NSEG)(P'----Z',X(22))(DATA)(A(47));
END;
IF NSEG=-1 THEN GO TO L2;
IF FIL='CFIL ' THEN DO;
UNSPEC(CFIL)=NSEG;
ON ENDFILE GO TO FEL2;
READ FILE(CFIL) INTO(STR);
PUT FILE(D) EDIT(ID)(A(12))(FIL)(A(8))(NSEG)(P'----Z',X(22))(DATA)(A(47));
END;
IF NSEG=-1 THEN GO TO L2;
IF FIL='DFIL ' THEN DO;
UNSPEC(DFIL)=NSEG;
ON ENDFILE GO TO FEL2;
READ FILE(DFIL) INTO(STR);
PUT FILE(D) EDIT(ID)(A(12))(FIL)(A(8))(NSEG)(P'----Z',X(22))(DATA)(A(47));
END;
L2:PUT FILE(D) EDIT(' ')(A(47));
GO TO L1;
FEL:PUT FILE(D) SKIP EDIT('ABONNENTNR ')(A)(SVAR)(A(11))('FINNS INTE')(A(25));
GO TO L1;
FEL2:PUT FILE(D) EDIT('LÄSFEL I SEGMENTFILEN')(A(94));
GO TO L1;
SLUT:END;