|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »PTFCOPY «
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦81127d4bb⟧ »/DK3900(PTFMASTERVOL)« Bits:30009817 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 2 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦bc93475ba⟧ Bits:30009819 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 4 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦cf95f95e8⟧ Bits:30009821 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 6 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦e184f8357⟧ Bits:30009822 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 7 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦edfbb8ae1⟧ Bits:30009818 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 3 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦this⟧ ».PTFCOPY «
// IF ?11?= RETURN // IF ?L'57,1'?=S EVALUATE P5=?L'57,2'? // IF ?L'57,1'?=M EVALUATE P5=?L'57,5'? // IF ?11?/ALLPTF IFF DATAF1-?9? RETURN // IF ?11?/ALLPTF IFF DATAI1-'?2?,,?5'S1'?' RETURN // LOCAL OFFSET-10,DATA-'?2?',AREA-SYSTEM,BLANK-8 // IF ?3?/ EVALUATE P3=PTF?L'10,5'? // IFF DATAI1-'PTF#CTL,,?5'S1'?' GOTO OLDWAY // IF ?L'29,1'?=1 GOTO NORESTOR // LOAD $COPY // FILE NAME-COPYIN,UNIT-I1,LABEL-PTF#CTL,LOCATION-?5?, // IF ?6?=AUTO AUTO-YES // ELSE AUTO-NO // FILE NAME-COPYO,UNIT-F1,LABEL-PTF#CTL,RETAIN-J // RUN // COPYFILE OUTPUT-S // END // IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // BLDLIBR PTF#WRK2,25,5 // LOCAL OFFSET-29,DATA-'1',AREA-SYSTEM // TAG NORESTOR // IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR // LOCAL OFFSET-18,DATA-'C',AREA-SYSTEM // LOCAL OFFSET-28,DATA-'0',AREA-SYSTEM // TAG NEWAGAIN // IF PROC-'PTF#RUN,PTF#WRK2' REMOVE PTF#RUN,PROC,PTF#WRK2 // LOAD $FECTL // RUN // IF ?L'28,1'?=E GOTO COEND // IF ?L'28,1'?=0 GOTO CHECK // IFF PROC-'PTF#RUN,PTF#WRK2' GOTO CHECK // IFF ?L'28,1'?=1 GOTO COMPSIZE // IFF DATAF1-?3? GOTO COMPSIZE // * '?3?' // #ERR 3342,01 // IF ?CD?=1011 DELETE ?3?,F1,,,LIBR // TAG COMPSIZE // IF DATAF1-PTF#WORK GOTO NOBLD // IF ?7?/ EVALUATE P7=?L'35,4'? // IFF ?8?/ GOTO BLDWORK // IFF ?7'500'?>19 GOTO BLDWORK ?8F'4'? // LOCAL OFFSET-80,DATA-'?7?',AREA-SYSTEM,BLANK-10 // EVALUATE P8=?C7?-1 P8=?L'80,?8?'? P8=?8?+?8? // TAG BLDWORK // BLDLIBR PTF#WORK,?7'500'?,?8? // TAG NOBLD // LOAD $MAINT // INCLUDE PTF#RUN,PTF#WRK2 *ALL // END // IF PROC-'PTF#RUN,PTF#WRK2' REMOVE PTF#RUN,PROC,PTF#WRK2 // GOTO NEWAGAIN // TAG OLDWAY // IFF DATAF1-?3? GOTO COMPSIZE // * '?3?' // #ERR 3342,01 // IF ?CD?/1011 DELETE ?3?,F1,,,LIBR // TAG COMPSIZE // IF ?7?/ EVALUATE P7=?L'35,4'? // IFF ?8?/ GOTO BLDWORK // IFF ?7'50'?>19 GOTO BLDWORK ?8F'4'? // LOCAL OFFSET-80,DATA-'?7?',AREA-SYSTEM,BLANK-10 // EVALUATE P8=?C7?-1 P8=?L'80,?8?'? P8=?8?+?8? // TAG BLDWORK // IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR // BLDLIBR PTF#WORK,?7'50'?,?8? // LOAD $MAINT // FILE NAME-?2?,UNIT-I1,LOCATION-?5'S1'?, // IF ?6'AUTO'?/AUTO AUTO-YES // ELSE AUTO-NO // RUN // COPY FROM-DISK,TO-PTF#WORK,FILE-?2?, // IFF ?1'OLD'?/OLD IFF ?1?/ALL PTF-?1?, // RETAIN-R // END // TAG CHECK // IF PROC-'PTFCMEMO,PTF#WORK' INCLUDE PTFCMEMO,PTF#WORK *ALL // IF LOAD-'$FECHK,PTF#WORK' LOAD $FECHK,PTF#WORK // IFF LOAD-'$FECHK,PTF#WORK' IF LOAD-'$FECHK,PTFSS105' + LOAD $FECHK,PTFSS105 // IFF LOAD-'$FECHK,PTF#WORK' IFF LOAD-'$FECHK,PTFSS105' LOAD $FECHK // RUN // COPY ?1?,?2?,?3?,?4'CHECK'? // LOCAL AREA-SYSTEM // IFF PROC-'PTFPROC,PTF#WORK' GOTO COEND // LOAD $MAINT // INCLUDE PTFPROC,PTF#WORK // END // DELETE PTF#WORK,F1,,,LIBR // IF ?2?=IW1?L'33,2'? INCLUDE PTF#IW1 COPY,?5?,?6? // IF ?2?=IW2?L'33,2'? INCLUDE PTF#IW2 COPY,?5?,?6? // IF ?2?=SS1?L'33,2'? IF LOAD-#EPPTF INCLUDE PTF#EP1 COPY,?5?,?6? // IFF ?11?=ALLPTF IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // RETURN // TAG COEND // IF DATAF1-PTF#WORK DELETE PTF#WORK,F1,,,LIBR // IFF ?11?=ALLPTF IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // IFF ?11?/ALLPTF #ERR 3362,03 // RETURN