|
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: 11776 (0x2e00)
Notes: MEMBER_P, Member_Text
Names: »PTF «
└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
└─⟦1d861f2ef⟧
└─⟦this⟧ ».PTF «
// LOG ON // LIBRARY NAME-0 // MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * 2034 // LOCAL BLANK-*ALL,AREA-SYSTEM // IF ?1?/ IF JOBQ-NO IF EVOKED-NO RESET HELP PTF // IFF ?1?=NEWS GOTO NONEWS // PTFNEWS ?2?,?3?,?4?,?5?,,,,,,,PTF // RETURN // TAG NONEWS // IFF ?1?=APPLY IFF ?1?=DIRECT GOTO NODED // IFF ?3'ALLPTF'?=ALLPTF GOTO NODED // LOAD $FECHK // RUN // DEDICATE // IFF ?CD?=0000 RETURN // TAG NODED // EVALUATE P16='' P17='' // IF ?1?/COPY EVALUATE P16=?6'S1'? P17=?7'AUTO'? // IF ?1?/DIRECT EVALUATE P16=?5'S1'? P17=?6'AUTO'? // IF ?1?/MCOPY EVALUATE P16=?3'S1'? // IF ?1?/SAVE EVALUATE P16=?4'S1'? // IF ?1?/RESTORE EVALUATE P16=?4'S1'? // IF ?16?/M1 EVALUATE P16='M1.01' // IF ?16?/M2 EVALUATE P16='M2.01' // IFF ?1?=SAVE IFF ?1?=RESTORE GOTO NOSAVE1 // IF ?5'AUTO'?=AUTO ALLOCATE UNIT-I1,AUTO-YES,CONTINUE-YES // ELSE ALLOCATE UNIT-I1 // GOTO NOSAVE2 // TAG NOSAVE1 // IFF ?16?/ ALLOCATE UNIT-I1 // TAG NOSAVE2 // IFF ?16?/ IF VOLID-'DSK000,?16?' EVALUATE // IFF ?16?/ LOCAL OFFSET-57,DATA-'?16?',AREA-SYSTEM // IF ?17?=AUTO LOCAL OFFSET-49,DATA-'1',AREA-SYSTEM // LOAD $FECHK // RUN // STATUS ?1?,?2?,?3?,?4?,0 // IFF ?CD?=0000 RETURN // LOAD $FEAIDS // RUN // SERVLOG MSG-'PTF ?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8? (?L'51,6'?)' // END // IF ?1?/PATCH GOTO PP1 // IF ?1?/LIST GOTO PL1 // IF ?1?/SAVE GOTO A1 // IF ?1?/RESTORE GOTO A1 // IF ?1?/DELETE GOTO A1 // IF ?1?/COPY GOTO A5 // IF ?1?/DIRECT GOTO A45 // IF ?1?/APPLY GOTO A3 // IF ?1?/REMOVE GOTO A4 // IF ?1?/MCOPY GOTO M10 // IF ?1?/MAPPLY GOTO M20 // IF ?1?/MREMOVE GOTO M30 // #ERR 3306,C INVALID PTF FUNCTION REQUESTED // TAG A1 // IF ?2'ALLPTF'?/ALLPTF GOTO A5 // IF ?2?/AP1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/AS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BA1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BH1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BNH?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BNW?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/BRJ?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/CB1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/CCN?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/CNF?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/DF1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/DS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/FO1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IG1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IW1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/IW2?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/LC1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/MA1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/OLP?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/QH1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/QU1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/RG1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SD1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SE1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SS1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/SW1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/TX1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/TXS?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/WP1?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/WP3?L'33,2'? EVALUATE P2='PTB'?2? // IF ?2?/WS1?L'33,2'? EVALUATE P2='PTB'?2? // GOTO A5 // TAG A3 // IF ?3'ALLPTF'?/ALLPTF GOTO A5 // IF ?3?/AP1?L'33,2'? EVALUATE P3='PTFAP1?L'33,2'?' P15=#APFLIB // IF ?3?/AS1?L'33,2'? EVALUATE P3='PTFAS1?L'33,2'?' P15=#ASMLIB // IF ?3?/BA1?L'33,2'? EVALUATE P3='PTFBA1?L'33,2'?' P15=#BLLIB // IF ?3?/BH1?L'33,2'? EVALUATE P3='PTFBH1?L'33,2'?' P15=#BLHPLIB // IF ?3?/BNH?L'33,2'? EVALUATE P3='PTFBNH?L'33,2'?' P15=#BGUHLIB // IF ?3?/BNW?L'33,2'? EVALUATE P3='PTFBNW?L'33,2'?' P15=#BGULIB // IF ?3?/BRJ?L'33,2'? EVALUATE P3='PTFBRJ?L'33,2'?' P15=#POPLIB // IF ?3?/CB1?L'33,2'? EVALUATE P3='PTFCB1?L'33,2'?' P15=#COBLIB // IF ?3?/CCN?L'33,2'? EVALUATE P3='PTFCCN?L'33,2'?' P15=#DEFLIB // IF ?3?/CNF?L'33,2'? EVALUATE P3='PTFCNF?L'33,2'?' P15=#POSLIB // IF ?3?/DF1?L'33,2'? EVALUATE P3='PTFDF1?L'33,2'?' P15=#DFULIB // IF ?3?/DS1?L'33,2'? EVALUATE P3='PTFDS1?L'33,2'?' P15=#DSULIB // IF ?3?/FO1?L'33,2'? EVALUATE P3='PTFFO1?L'33,2'?' P15=#FORTLIB // IF ?3?/IG1?L'33,2'? EVALUATE P3='PTFIG1?L'33,2'?' P15=#CGULIB // IF ?3?/IS1?L'33,2'? EVALUATE P3='PTFIS1?L'33,2'?' P15=#SRTXLIB // IF ?3?/IW1?L'33,2'? EVALUATE P3='PTFIW1?L'33,2'?' P15=#IWLIB // IF ?3?/IW2?L'33,2'? EVALUATE P3='PTFIW2?L'33,2'?' P15=#IWLIB2 // IF ?3?/LC1?L'33,2'? EVALUATE P3='PTFLC1?L'33,2'?' P15=#LANLIB // IF ?3?/MA1?L'33,2'? EVALUATE P3='PTFMA1?L'33,2'?' P15=#MIGRLIB // IF ?3?/OLP?L'33,2'? EVALUATE P3='PTFOLP?L'33,2'?' P15=#ONLPD // IF ?3?/QH1?L'33,2'? EVALUATE P3='PTFQH1?L'33,2'?' P15=#QRYHLIB // IF ?3?/QU1?L'33,2'? EVALUATE P3='PTFQU1?L'33,2'?' P15=#QRYLIB // IF ?3?/RG1?L'33,2'? EVALUATE P3='PTFRG1?L'33,2'?' P15=#RPGLIB // IF ?3?/SD1?L'33,2'? EVALUATE P3='PTFSD1?L'33,2'?' P15=#SDALIB // IF ?3?/SE1?L'33,2'? EVALUATE P3='PTFSE1?L'33,2'?' P15=#SEULIB // IF ?3?/SS1?L'33,2'? EVALUATE P3='PTFSS1?L'33,2'?' P15=#LIBRARY // IF ?3?/SW1?L'33,2'? EVALUATE P3='PTFSW1?L'33,2'?' P15=#SWLIB // IF ?3?/TX1?L'33,2'? EVALUATE P3='PTFTX1?L'33,2'?' P15=#TMSLIB // IF ?3?/TXS?L'33,2'? EVALUATE P3='PTFTXS?L'33,2'?' P15=#LEXLIB // IF ?3?/WP1?L'33,2'? EVALUATE P3='PTFWP1?L'33,2'?' P15=#TULIB // IF ?3?/WP3?L'33,2'? EVALUATE P3='PTFWP3?L'33,2'?' P15=#OFCLIB // IF ?3?/WS1?L'33,2'? EVALUATE P3='PTFWS1?L'33,2'?' P15=#WSULIB // IF ?4?/ EVALUATE P4=?15? // GOTO A5 // TAG A45 // IF ?3'ALLPTF'?/ALLPTF GOTO A5 // IF ?3?/AP1?L'33,2'? EVALUATE P15=#APFLIB // IF ?3?/AS1?L'33,2'? EVALUATE P15=#ASMLIB // IF ?3?/BA1?L'33,2'? EVALUATE P15=#BLLIB // IF ?3?/BH1?L'33,2'? EVALUATE P15=#BLHPLIB // IF ?3?/BNH?L'33,2'? EVALUATE P15=#BGUHLIB // IF ?3?/BNW?L'33,2'? EVALUATE P15=#BGULIB // IF ?3?/BRJ?L'33,2'? EVALUATE P15=#POPLIB // IF ?3?/CB1?L'33,2'? EVALUATE P15=#COBLIB // IF ?3?/CCN?L'33,2'? EVALUATE P15=#DEFLIB // IF ?3?/CNF?L'33,2'? EVALUATE P15=#POSLIB // IF ?3?/DF1?L'33,2'? EVALUATE P15=#DFULIB // IF ?3?/DS1?L'33,2'? EVALUATE P15=#DSULIB // IF ?3?/FO1?L'33,2'? EVALUATE P15=#FORTLIB // IF ?3?/IG1?L'33,2'? EVALUATE P15=#CGULIB // IF ?3?/IS1?L'33,2'? EVALUATE P15=#SRTXLIB // IF ?3?/IW1?L'33,2'? EVALUATE P15=#IWLIB // IF ?3?/IW2?L'33,2'? EVALUATE P15=#IWLIB2 // IF ?3?/LC1?L'33,2'? EVALUATE P15=#LANLIB // IF ?3?/MA1?L'33,2'? EVALUATE P15=#MIGRLIB // IF ?3?/QH1?L'33,2'? EVALUATE P15=#QRYHLIB // IF ?3?/QU1?L'33,2'? EVALUATE P15=#QRYLIB // IF ?3?/OLP?L'33,2'? EVALUATE P15=#ONLPD // IF ?3?/RG1?L'33,2'? EVALUATE P15=#RPGLIB // IF ?3?/SD1?L'33,2'? EVALUATE P15=#SDALIB // IF ?3?/SE1?L'33,2'? EVALUATE P15=#SEULIB // IF ?3?/SS1?L'33,2'? EVALUATE P15=#LIBRARY // IF ?3?/SW1?L'33,2'? EVALUATE P15=#SWLIB // IF ?3?/TX1?L'33,2'? EVALUATE P15=#TMSLIB // IF ?3?/TXS?L'33,2'? EVALUATE P15=#LEXLIB // IF ?3?/WP1?L'33,2'? EVALUATE P15=#TULIB // IF ?3?/WP3?L'33,2'? EVALUATE P15=#OFCLIB // IF ?3?/WS1?L'33,2'? EVALUATE P15=#WSULIB // IF ?4?/ EVALUATE P4=?15? // GOTO A5 // TAG A4 // IF ?3'ALLPTF'?/ALLPTF GOTO A5 // LOCAL OFFSET-080,DATA-'?3?',AREA-SYSTEM,BLANK-8 // LOCAL OFFSET-083,DATA-'?L'80,5'?',AREA-SYSTEM // LOCAL OFFSET-080,DATA-'PTB',AREA-SYSTEM // IF ?4?/ EVALUATE P4=?L'80,8'? // IF ?3?/AP1?L'33,2'? EVALUATE P3=#APFLIB // IF ?3?/AS1?L'33,2'? EVALUATE P3=#ASMLIB // IF ?3?/BA1?L'33,2'? EVALUATE P3=#BLLIB // IF ?3?/BH1?L'33,2'? EVALUATE P3=#BLHPLIB // IF ?3?/BNH?L'33,2'? EVALUATE P3=#BGUHLIB // IF ?3?/BNW?L'33,2'? EVALUATE P3=#BGULIB // IF ?3?/BRJ?L'33,2'? EVALUATE P3=#POPLIB // IF ?3?/CB1?L'33,2'? EVALUATE P3=#COBLIB // IF ?3?/CCN?L'33,2'? EVALUATE P3=#DEFLIB // IF ?3?/CNF?L'33,2'? EVALUATE P3=#POSLIB // IF ?3?/DF1?L'33,2'? EVALUATE P3=#DFULIB // IF ?3?/DS1?L'33,2'? EVALUATE P3=#DSULIB // IF ?3?/FO1?L'33,2'? EVALUATE P3=#FORTLIB // IF ?3?/IG1?L'33,2'? EVALUATE P3=#CGULIB // IF ?3?/IS1?L'33,2'? EVALUATE P3=#SRTXLIB // IF ?3?/IW1?L'33,2'? EVALUATE P3=#IWLIB // IF ?3?/IW2?L'33,2'? EVALUATE P3=#IWLIB2 // IF ?3?/LC1?L'33,2'? EVALUATE P3=#LANLIB // IF ?3?/MA1?L'33,2'? EVALUATE P3=#MIGRLIB // IF ?3?/OLP?L'33,2'? EVALUATE P3=#ONLPD // IF ?3?/QH1?L'33,2'? EVALUATE P3=#QRYHLIB // IF ?3?/QU1?L'33,2'? EVALUATE P3=#QRYLIB // IF ?3?/RG1?L'33,2'? EVALUATE P3=#RPGLIB // IF ?3?/SD1?L'33,2'? EVALUATE P3=#SDALIB // IF ?3?/SE1?L'33,2'? EVALUATE P3=#SEULIB // IF ?3?/SS1?L'33,2'? EVALUATE P3=#LIBRARY // IF ?3?/SW1?L'33,2'? EVALUATE P3=#SWLIB // IF ?3?/TX1?L'33,2'? EVALUATE P3=#TMSLIB // IF ?3?/TXS?L'33,2'? EVALUATE P3=#LEXLIB // IF ?3?/WP1?L'33,2'? EVALUATE P3=#TULIB // IF ?3?/WP3?L'33,2'? EVALUATE P3=#OFCLIB // IF ?3?/WS1?L'33,2'? EVALUATE P3=#WSULIB // GOTO A5 // TAG A5 // IF ?1?/COPY GOTO PC1 // IF ?1?/APPLY GOTO PC2 // IF ?1?/DIRECT GOTO PC1 // IF ?1?/REMOVE GOTO PC4 // IF ?1?/SAVE GOTO PR1 // IF ?1?/RESTORE GOTO PR1 // IF ?1?/DELETE GOTO PR1 // #ERR 3306,C INVALID PTF FUNCTION REQUESTED // TAG PC1 // IFF ?3'ALLPTF'?=ALLPTF IFF ?L'9,1'?=1 GOTO PC2 // IF ?3'ALLPTF'?=ALLPTF IFF ?L'51,1'?/D #ERR 3344,C // IF DATAI1-'PTFUP?L'33,2'?,,?16?' + TOLIBR PTFUP?L'33,2'?,I1,,REPLACE,#LIBRARY,?16? // TAG PC2 // IF ?1?/DIRECT EVALUATE P1=DIREC // IF ?3'ALLPTF'?/ALLPTF GOTO PC3 // PTF?1? ?2'OLD'?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?4?,,PTF // IFF ?16?/ DEALLOC UNIT-I1 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PC3 // IFF ?4?/ #ERR 3307,C FILE/LIBRARY NAME NOT VALID WITH ALLPTF // IFF ?1?=APPLY GOTO NODKL * DELETE ONLY ON APPLY // IFF DATAF1-PTFSS105 GOTO NODKL * MUST BE APPLYING #LIBRARY // IFF LOAD-'$FEDKL,#LIBRARY' GOTO NODKL * MUST CURRENTLY EXIST // LOAD $MAINT // RUN // DELETE LIBRARY-O,LIBRNAME-#LIBRARY,NAME-$FEDKL,RETAIN-S,OMIT-#PTFLOG // END // TAG NODKL // ALLPTF ?1?,?2'OLD'?,,?4?,?5?,?6?,?7?,?8?,?9? // IF ?1?=APPLY IF PROC-'#PTFVASP,#VASPLIB' #PTFVASP,#VASPLIB // IF ?L'71,1'?/'1' GOTO PC2END // IF ?1?/'APPLY' #ERR 3361,03 // IF ?1?/'COPY' #ERR 3362,03 // TAG PC2END // IFF ?16?/ DEALLOC UNIT-I1 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PC4 // EVALUATE P1=REMOV // IF ?3'ALLPTF'?/ALLPTF GOTO PC5 // PTF?1? ?2'ALL'?,?4?,,,,,,,?3?,,PTF // IFF ?L'71,1'?/'1' #ERR 3363,03 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PC5 // IFF ?4?/ #ERR 3307,C FILE/LIBRARY NAME NOT VALID WITH ALLPTF // ALLPTF ?1?,?2'ALL'?,,?4? // IFF ?L'71,1'?/'1' #ERR 3363,03 // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG PL1 // DUMP PTF,?3?,F1,?2? // RETURN // TAG PR1 // IF ?1?/DELETE EVALUATE P1=DELET // IF ?1?/RESTORE EVALUATE P1=RESTO // IF ?2'ALLPTF'?/ALLPTF GOTO PR2 // PTF?1? ,?2?,?3?,?4?,?5?,,,,,,PTF // IFF ?16?/ DEALLOC UNIT-I1 // RETURN // TAG PR2 // ALLPTF ?1?,,,?3?,?4?,?5? // IFF ?16?/ DEALLOC UNIT-I1 // RETURN // TAG M10 // IF ?7?= EVALUATE P7=CS1?L'01,2'? // PTFMCOPY LOAD,?7?,?2'CSPTFLIB'?,?3'S1'?,?4'AUTO'?,?5?,?6?,,,,PTF // IFF ?16?/ DEALLOC UNIT-I1 // RETURN // TAG M20 // PTFMAPLY ?2'ALL'?,?3'CSPTFLIB'?,,,,,,,,,PTF // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG M30 // PTFMREMV ?2?,?3'CSPTFLIB'?,,,,,,,,,PTF // IF ?L'8,1'?=1 GOTO IPL // RETURN // TAG IPL // IF ?9?=CNFIGSSP RETURN // MEMBER USER1-##MSGFE2 // * ' ' // * 4013 // IF ?R'4014'?/ #IPLPROC ,F1 // ELSE #IPLPROC ,F1 // RETURN // TAG PP1 // IFF ?PROC?/PTF IFF ?PROC?/HELP GOTO PP2 // IF JOBQ-NO IF EVOKED-NO EVALUATE // ELSE GOTO PP2 // MEMBER USER1-##MSGFE2 // * 4001 // * 4002 // * 4003 // * 4004 // * 4005 // * 4006 // * 4007 // * 4008 // * 4009 // * 4010 // * 4011 // * 4012 // MEMBER USER1-##MSG2 // TAG PP2 // LOAD $FEFIX // RUN