|
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: 11520 (0x2d00)
Notes: MEMBER_P, Member_Text
Names: »ALLPTF «
└─⟦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⟧ ».ALLPTF «
// LOCAL OFFSET-62,DATA-'1',AREA-SYSTEM // IFF ?1?/COPY IFF ?1?/APPLY GOTO NOQUERY // IF ?1?/COPY EVALUATE P20='PTF' // IF ?1?/APPLY EVALUATE P20='PTB' // IF DATAF1-?20?SS1?L'33,2'? PTFWIPE ?20?SS1?L'33,2'?,LIBR // IF DATAF1-?20?SSQ?L'33,2'? PTFWIPE ?20?SSQ?L'33,2'?,LIBR // IF DATAF1-?20?SSR?L'33,2'? PTFWIPE ?20?SSR?L'33,2'?,LIBR // IF DATAF1-?20?SSS?L'33,2'? PTFWIPE ?20?SSS?L'33,2'?,LIBR // IF DATAF1-?20?SST?L'33,2'? PTFWIPE ?20?SST?L'33,2'?,LIBR // IF DATAF1-?20?AP1?L'33,2'? PTFWIPE ?20?AP1?L'33,2'?,LIBR // IF DATAF1-?20?APQ?L'33,2'? PTFWIPE ?20?APQ?L'33,2'?,LIBR // IF DATAF1-?20?AS1?L'33,2'? PTFWIPE ?20?AS1?L'33,2'?,LIBR // IF DATAF1-?20?ASQ?L'33,2'? PTFWIPE ?20?ASQ?L'33,2'?,LIBR // IF DATAF1-?20?BA1?L'33,2'? PTFWIPE ?20?BA1?L'33,2'?,LIBR // IF DATAF1-?20?BAQ?L'33,2'? PTFWIPE ?20?BAQ?L'33,2'?,LIBR // IF DATAF1-?20?BH1?L'33,2'? PTFWIPE ?20?BH1?L'33,2'?,LIBR // IF DATAF1-?20?BHQ?L'33,2'? PTFWIPE ?20?BHQ?L'33,2'?,LIBR // IF DATAF1-?20?BNH?L'33,2'? PTFWIPE ?20?BNH?L'33,2'?,LIBR // IF DATAF1-?20?BNQ?L'33,2'? PTFWIPE ?20?BNQ?L'33,2'?,LIBR // IF DATAF1-?20?BNW?L'33,2'? PTFWIPE ?20?BNW?L'33,2'?,LIBR // IF DATAF1-?20?BNR?L'33,2'? PTFWIPE ?20?BNR?L'33,2'?,LIBR // IF DATAF1-?20?BRJ?L'33,2'? PTFWIPE ?20?BRJ?L'33,2'?,LIBR // IF DATAF1-?20?BRQ?L'33,2'? PTFWIPE ?20?BRQ?L'33,2'?,LIBR // IF DATAF1-?20?CB1?L'33,2'? PTFWIPE ?20?CB1?L'33,2'?,LIBR // IF DATAF1-?20?CBQ?L'33,2'? PTFWIPE ?20?CBQ?L'33,2'?,LIBR // IF DATAF1-?20?CCN?L'33,2'? PTFWIPE ?20?CCN?L'33,2'?,LIBR // IF DATAF1-?20?CCQ?L'33,2'? PTFWIPE ?20?CCQ?L'33,2'?,LIBR // IF DATAF1-?20?CNF?L'33,2'? PTFWIPE ?20?CNF?L'33,2'?,LIBR // IF DATAF1-?20?CNQ?L'33,2'? PTFWIPE ?20?CNQ?L'33,2'?,LIBR // IF DATAF1-?20?DF1?L'33,2'? PTFWIPE ?20?DF1?L'33,2'?,LIBR // IF DATAF1-?20?DFQ?L'33,2'? PTFWIPE ?20?DFQ?L'33,2'?,LIBR // IF DATAF1-?20?DS1?L'33,2'? PTFWIPE ?20?DS1?L'33,2'?,LIBR // IF DATAF1-?20?DSQ?L'33,2'? PTFWIPE ?20?DSQ?L'33,2'?,LIBR // IF DATAF1-?20?FO1?L'33,2'? PTFWIPE ?20?FO1?L'33,2'?,LIBR // IF DATAF1-?20?FOQ?L'33,2'? PTFWIPE ?20?FOQ?L'33,2'?,LIBR // IF DATAF1-?20?IG1?L'33,2'? PTFWIPE ?20?IG1?L'33,2'?,LIBR // IF DATAF1-?20?IGQ?L'33,2'? PTFWIPE ?20?IGQ?L'33,2'?,LIBR // IF DATAF1-?20?IS1?L'33,2'? PTFWIPE ?20?IS1?L'33,2'?,LIBR // IF DATAF1-?20?ISQ?L'33,2'? PTFWIPE ?20?ISQ?L'33,2'?,LIBR // IF DATAF1-?20?IW1?L'33,2'? PTFWIPE ?20?IW1?L'33,2'?,LIBR // IF DATAF1-?20?IWQ?L'33,2'? PTFWIPE ?20?IWQ?L'33,2'?,LIBR // IF DATAF1-?20?IW2?L'33,2'? PTFWIPE ?20?IW2?L'33,2'?,LIBR // IF DATAF1-?20?IWR?L'33,2'? PTFWIPE ?20?IWR?L'33,2'?,LIBR // IF DATAF1-?20?LC1?L'33,2'? PTFWIPE ?20?LC1?L'33,2'?,LIBR // IF DATAF1-?20?LCQ?L'33,2'? PTFWIPE ?20?LCQ?L'33,2'?,LIBR // IF DATAF1-?20?MA1?L'33,2'? PTFWIPE ?20?MA1?L'33,2'?,LIBR // IF DATAF1-?20?MAQ?L'33,2'? PTFWIPE ?20?MAQ?L'33,2'?,LIBR // IF DATAF1-?20?MG1?L'33,2'? PTFWIPE ?20?MG1?L'33,2'?,LIBR // IF DATAF1-?20?OLP?L'33,2'? PTFWIPE ?20?OLP?L'33,2'?,LIBR // IF DATAF1-?20?OLQ?L'33,2'? PTFWIPE ?20?OLQ?L'33,2'?,LIBR // IF DATAF1-?20?PPD?L'33,2'? PTFWIPE ?20?PPD?L'33,2'?,LIBR // IF DATAF1-?20?QH1?L'33,2'? PTFWIPE ?20?QH1?L'33,2'?,LIBR // IF DATAF1-?20?QHQ?L'33,2'? PTFWIPE ?20?QHQ?L'33,2'?,LIBR // IF DATAF1-?20?QU1?L'33,2'? PTFWIPE ?20?QU1?L'33,2'?,LIBR // IF DATAF1-?20?QUQ?L'33,2'? PTFWIPE ?20?QUQ?L'33,2'?,LIBR // IF DATAF1-?20?RG1?L'33,2'? PTFWIPE ?20?RG1?L'33,2'?,LIBR // IF DATAF1-?20?RGQ?L'33,2'? PTFWIPE ?20?RGQ?L'33,2'?,LIBR // IF DATAF1-?20?SD1?L'33,2'? PTFWIPE ?20?SD1?L'33,2'?,LIBR // IF DATAF1-?20?SDQ?L'33,2'? PTFWIPE ?20?SDQ?L'33,2'?,LIBR // IF DATAF1-?20?SE1?L'33,2'? PTFWIPE ?20?SE1?L'33,2'?,LIBR // IF DATAF1-?20?SEQ?L'33,2'? PTFWIPE ?20?SEQ?L'33,2'?,LIBR // IF DATAF1-?20?SW1?L'33,2'? PTFWIPE ?20?SW1?L'33,2'?,LIBR // IF DATAF1-?20?SWQ?L'33,2'? PTFWIPE ?20?SWQ?L'33,2'?,LIBR // IF DATAF1-?20?TX1?L'33,2'? PTFWIPE ?20?TX1?L'33,2'?,LIBR // IF DATAF1-?20?TXQ?L'33,2'? PTFWIPE ?20?TXQ?L'33,2'?,LIBR // IF DATAF1-?20?TXS?L'33,2'? PTFWIPE ?20?TXS?L'33,2'?,LIBR // IF DATAF1-?20?TXR?L'33,2'? PTFWIPE ?20?TXR?L'33,2'?,LIBR // IF DATAF1-?20?WP1?L'33,2'? PTFWIPE ?20?WP1?L'33,2'?,LIBR // IF DATAF1-?20?WPQ?L'33,2'? PTFWIPE ?20?WPQ?L'33,2'?,LIBR // IF DATAF1-?20?WP3?L'33,2'? PTFWIPE ?20?WP3?L'33,2'?,LIBR // IF DATAF1-?20?WPR?L'33,2'? PTFWIPE ?20?WPR?L'33,2'?,LIBR // IF DATAF1-?20?WS1?L'33,2'? PTFWIPE ?20?WS1?L'33,2'?,LIBR // IF DATAF1-?20?WSQ?L'33,2'? PTFWIPE ?20?WSQ?L'33,2'?,LIBR // IF ?1?/COPY IF DATAF1-PTFIWX?L'33,2'? PTFWIPE PTFIWX?L'33,2'?,FILE // IF ?1?/COPY IF DATAF1-PTFIWY?L'33,2'? PTFWIPE PTFIWY?L'33,2'?,FILE // IF ?1?/APPLY IF DATAF1-PTFIWA?L'33,2'? PTFWIPE PTFIWA?L'33,2'?,FILE // IF ?1?/APPLY IF DATAF1-PTFIWB?L'33,2'? PTFWIPE PTFIWB?L'33,2'?,FILE // IF ?1?/APPLY IF DATAF1-PTFIWD?L'33,2'? PTFWIPE PTFIWD?L'33,2'?,FILE // IF ?1?/COPY IF DATAF1-CSPTFLIB PTFWIPE CSPTFLIB,LIBR // TAG NOQUERY // EVALUATE P20='' P11=ALLPTF P3=?2? // IF ?1?/COPY EVALUATE P20='' // IF ?1?/APPLY EVALUATE P20='PTF' // IF ?1?/DELET EVALUATE P20='PTB' // IF ?1?/SAVE EVALUATE P20='PTB' // IF ?1?/REMOV EVALUATE P20='PTB' // IF ?1?/RESTO EVALUATE P20='PTB' // TAG ALLAGAIN // IF ?1?/DIREC IF ?3?/OLD EVALUATE P3='ALL' // IFF ?1?/COPY GOTO NOCOPY1 // IF ?3?/OLD EVALUATE P3=ALL // PTF?1? ?2?,?20?SS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // PTF?1? ?3?,?20?SSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // PTF?1? ?3?,?20?SSR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // IF DATAF1-OLSLIB + PTF?1? ?3?,?20?SSS?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // IFF DATAF1-OLSLIB + PTF?1? ?3?,?20?SST?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // TAG NOCOPY1 // PTF?1? ?2?,?20?AP1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#APFLIB,,?11? // PTF?1? ?3?,?20?APQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#APFLIB,,?11? // PTF?1? ?2?,?20?AS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ASMLIB,,?11? // PTF?1? ?3?,?20?ASQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ASMLIB,,?11? // PTF?1? ?2?,?20?BA1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLLIB,,?11? // PTF?1? ?3?,?20?BAQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLLIB,,?11? // PTF?1? ?2?,?20?BH1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLHPLIB,,?11? // PTF?1? ?3?,?20?BHQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLHPLIB,,?11? // PTF?1? ?2?,?20?BNH?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGUHLIB,,?11? // PTF?1? ?3?,?20?BNQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGUHLIB,,?11? // PTF?1? ?2?,?20?BNW?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGULIB,,?11? // PTF?1? ?3?,?20?BNR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGULIB,,?11? // PTF?1? ?2?,?20?BRJ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POPLIB,,?11? // PTF?1? ?3?,?20?BRQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POPLIB,,?11? // PTF?1? ?2?,?20?CB1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#COBLIB,,?11? // PTF?1? ?3?,?20?CBQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#COBLIB,,?11? // PTF?1? ?2?,?20?CCN?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DEFLIB,,?11? // PTF?1? ?3?,?20?CCQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DEFLIB,,?11? // PTF?1? ?2?,?20?CNF?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POSLIB,,?11? // PTF?1? ?3?,?20?CNQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POSLIB,,?11? // PTF?1? ?2?,?20?DF1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DFULIB,,?11? // PTF?1? ?3?,?20?DFQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DFULIB,,?11? // PTF?1? ?2?,?20?DS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DSULIB,,?11? // PTF?1? ?3?,?20?DSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DSULIB,,?11? // PTF?1? ?2?,?20?FO1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#FORTLIB,,?11? // PTF?1? ?3?,?20?FOQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#FORTLIB,,?11? // PTF?1? ?2?,?20?IG1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#CGULIB,,?11? // PTF?1? ?3?,?20?IGQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#CGULIB,,?11? // PTF?1? ?2?,?20?IS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SRTXLIB,,?11? // PTF?1? ?3?,?20?ISQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SRTXLIB,,?11? // PTF?1? ?2?,?20?IW1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB,,?11? // PTF?1? ?3?,?20?IWQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB,,?11? // PTF?1? ?3?,?20?IW2?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB2,,?11? // PTF?1? ?3?,?20?IWR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB2,,?11? // PTF?1? ?2?,?20?LC1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LANLIB,,?11? // PTF?1? ?3?,?20?LCQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LANLIB,,?11? // PTF?1? ?2?,?20?MA1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#MIGRLIB,,?11? // PTF?1? ?3?,?20?MAQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#MIGRLIB,,?11? // PTF?1? ?3?,?20?MG1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#MYLIB,,?11? // PTF?1? ?2?,?20?OLP?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ONLPD,,?11? // PTF?1? ?3?,?20?OLQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ONLPD,,?11? // PTF?1? ?3?,?20?PPD?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,OLSLIB,,?11? // PTF?1? ?2?,?20?QH1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYHLIB,,?11? // PTF?1? ?3?,?20?QHQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYHLIB,,?11? // PTF?1? ?2?,?20?QU1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYLIB,,?11? // PTF?1? ?3?,?20?QUQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYLIB,,?11? // PTF?1? ?2?,?20?RG1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#RPGLIB,,?11? // PTF?1? ?3?,?20?RGQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#RPGLIB,,?11? // PTF?1? ?2?,?20?SD1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SDALIB,,?11? // PTF?1? ?3?,?20?SDQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SDALIB,,?11? // PTF?1? ?2?,?20?SE1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SEULIB,,?11? // PTF?1? ?3?,?20?SEQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SEULIB,,?11? // PTF?1? ?2?,?20?SW1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SWLIB,,?11? // PTF?1? ?3?,?20?SWQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SWLIB,,?11? // PTF?1? ?2?,?20?TX1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TMSLIB,,?11? // PTF?1? ?3?,?20?TXQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TMSLIB,,?11? // PTF?1? ?2?,?20?TXS?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LEXLIB,,?11? // PTF?1? ?3?,?20?TXR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LEXLIB,,?11? // PTF?1? ?2?,?20?WP1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TULIB,,?11? // PTF?1? ?3?,?20?WPQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TULIB,,?11? // PTF?1? ?2?,?20?WP3?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#OFCLIB,,?11? // PTF?1? ?3?,?20?WPR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#OFCLIB,,?11? // PTF?1? ?2?,?20?WS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#WSULIB,,?11? // PTF?1? ?3?,?20?WSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#WSULIB,,?11? // IF ?1?/COPY GOTO NOCOPY2 // PTF?1? ?2?,?20?SS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // PTF?1? ?3?,?20?SSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // PTF?1? ?3?,?20?SSR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // IF DATAF1-OLSLIB + PTF?1? ?3?,?20?SSS?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // IFF DATAF1-OLSLIB + PTF?1? ?3?,?20?SST?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11? // TAG NOCOPY2 // IF ?1?/DIREC IF ?9?/CNFIGSSP GOTO MDIRECT // IF ?1?/DIREC GOTO CONTINUE // IF ?1?/COPY GOTO MCOPY // IF ?1?/APPLY PTFMAPLY ALL,CSPTFLIB,,,,,,,,,?11? // RETURN // TAG MCOPY // IFF ?2?/OLD IFF ?2?/ALL GOTO CONTINUE // PTFMCOPY LOAD,CS1?L'01,2'?,,?6?,?7?,?8?,?9?,,,,?11? // GOTO CONTINUE // TAG MDIRECT // LOAD $FECHK // RUN // STATUS MAPPLY // PTFMCOPY LOAD,CS1?L'01,2'?,,?5?,?6?,,,,,?9?,?11? // GOTO CONTINUE // TAG CONTINUE // IFF ?L'30,1'?=1 GOTO CONTIN1 // LOCAL OFFSET-30,DATA-' ',AREA-SYSTEM // GOTO ALLAGAIN // TAG CONTIN1 // IF ?L'45,2'?=?L'47,2'? GOTO ENDALL // LOAD $FECHK // RUN // CONTINUE ?1?,?2?,ALLPTF,?4?,0 // IFF ?L'43,1'?=1 GOTO ENDALL // IF ?1?=COPY EVALUATE P6=?L'57,5'? // IF ?1?=DIREC EVALUATE P5=?L'57,5'? // GOTO ALLAGAIN // TAG ENDALL // IFF ?1?=DIREC IFF ?1?=COPY RETURN // IFF ?L'29,1'?=1 RETURN // IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR // RETURN