|
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
0x0000…0001 0xa7 0x0001…0028 »// LOCAL OFFSET-62,DATA-'1',AREA-SYSTEM« 0x0028…0029 0x29 0x0029…002a 0xaa 0x002a…0054 »// IFF ?1?/COPY IFF ?1?/APPLY GOTO NOQUERY« 0x0054…0055 0x26 0x0055…0056 0x8e 0x0056…0064 »// IF ?1?/COPY« 0x0064…0065 0x02 0x0065…0066 0x92 0x0066…0078 »EVALUATE P20='PTF'« 0x0078…0079 0x2e 0x0079…007a 0xa2 0x007a…009c »// IF ?1?/APPLY EVALUATE P20='PTB'« 0x009c…009d 0x2e 0x009d…009e 0xbb 0x009e…00d9 »// IF DATAF1-?20?SS1?L'33,2'? PTFWIPE ?20?SS1?L'33,2'?,LIBR« 0x00d9…00da 0x15 0x00da…00db 0xbb 0x00db…0116 »// IF DATAF1-?20?SSQ?L'33,2'? PTFWIPE ?20?SSQ?L'33,2'?,LIBR« 0x0116…0117 0x15 0x0117…0118 0xbb 0x0118…0153 »// IF DATAF1-?20?SSR?L'33,2'? PTFWIPE ?20?SSR?L'33,2'?,LIBR« 0x0153…0154 0x15 0x0154…0155 0xbb 0x0155…0190 »// IF DATAF1-?20?SSS?L'33,2'? PTFWIPE ?20?SSS?L'33,2'?,LIBR« 0x0190…0191 0x15 0x0191…0192 0xbb 0x0192…01cd »// IF DATAF1-?20?SST?L'33,2'? PTFWIPE ?20?SST?L'33,2'?,LIBR« 0x01cd…01ce 0x15 0x01ce…01cf 0xbb 0x01cf…020a »// IF DATAF1-?20?AP1?L'33,2'? PTFWIPE ?20?AP1?L'33,2'?,LIBR« 0x020a…020b 0x15 0x020b…020c 0xbb 0x020c…0247 »// IF DATAF1-?20?APQ?L'33,2'? PTFWIPE ?20?APQ?L'33,2'?,LIBR« 0x0247…0248 0x15 0x0248…0249 0xbb 0x0249…0284 »// IF DATAF1-?20?AS1?L'33,2'? PTFWIPE ?20?AS1?L'33,2'?,LIBR« 0x0284…0285 0x15 0x0285…0286 0xbb 0x0286…02c1 »// IF DATAF1-?20?ASQ?L'33,2'? PTFWIPE ?20?ASQ?L'33,2'?,LIBR« 0x02c1…02c2 0x15 0x02c2…02c3 0xbb 0x02c3…02fe »// IF DATAF1-?20?BA1?L'33,2'? PTFWIPE ?20?BA1?L'33,2'?,LIBR« 0x02fe…02ff 0x15 0x02ff…0300 0xbb 0x0300…033b »// IF DATAF1-?20?BAQ?L'33,2'? PTFWIPE ?20?BAQ?L'33,2'?,LIBR« 0x033b…033c 0x15 0x033c…033d 0xbb 0x033d…0378 »// IF DATAF1-?20?BH1?L'33,2'? PTFWIPE ?20?BH1?L'33,2'?,LIBR« 0x0378…0379 0x15 0x0379…037a 0xbb 0x037a…03b5 »// IF DATAF1-?20?BHQ?L'33,2'? PTFWIPE ?20?BHQ?L'33,2'?,LIBR« 0x03b5…03b6 0x15 0x03b6…03b7 0xbb 0x03b7…03f2 »// IF DATAF1-?20?BNH?L'33,2'? PTFWIPE ?20?BNH?L'33,2'?,LIBR« 0x03f2…03f3 0x15 0x03f3…03f4 0xbb 0x03f4…042f »// IF DATAF1-?20?BNQ?L'33,2'? PTFWIPE ?20?BNQ?L'33,2'?,LIBR« 0x042f…0430 0x15 0x0430…0431 0xbb 0x0431…046c »// IF DATAF1-?20?BNW?L'33,2'? PTFWIPE ?20?BNW?L'33,2'?,LIBR« 0x046c…046d 0x15 0x046d…046e 0xbb 0x046e…04a9 »// IF DATAF1-?20?BNR?L'33,2'? PTFWIPE ?20?BNR?L'33,2'?,LIBR« 0x04a9…04aa 0x15 0x04aa…04ab 0xbb 0x04ab…04e6 »// IF DATAF1-?20?BRJ?L'33,2'? PTFWIPE ?20?BRJ?L'33,2'?,LIBR« 0x04e6…04e7 0x15 0x04e7…04e8 0xbb 0x04e8…0523 »// IF DATAF1-?20?BRQ?L'33,2'? PTFWIPE ?20?BRQ?L'33,2'?,LIBR« 0x0523…0524 0x15 0x0524…0525 0xbb 0x0525…0560 »// IF DATAF1-?20?CB1?L'33,2'? PTFWIPE ?20?CB1?L'33,2'?,LIBR« 0x0560…0561 0x15 0x0561…0562 0xbb 0x0562…059d »// IF DATAF1-?20?CBQ?L'33,2'? PTFWIPE ?20?CBQ?L'33,2'?,LIBR« 0x059d…059e 0x15 0x059e…059f 0xbb 0x059f…05da »// IF DATAF1-?20?CCN?L'33,2'? PTFWIPE ?20?CCN?L'33,2'?,LIBR« 0x05da…05db 0x15 0x05db…05dc 0xbb 0x05dc…0617 »// IF DATAF1-?20?CCQ?L'33,2'? PTFWIPE ?20?CCQ?L'33,2'?,LIBR« 0x0617…0618 0x15 0x0618…0619 0xbb 0x0619…0654 »// IF DATAF1-?20?CNF?L'33,2'? PTFWIPE ?20?CNF?L'33,2'?,LIBR« 0x0654…0655 0x15 0x0655…0656 0xbb 0x0656…0691 »// IF DATAF1-?20?CNQ?L'33,2'? PTFWIPE ?20?CNQ?L'33,2'?,LIBR« 0x0691…0692 0x15 0x0692…0693 0xbb 0x0693…06ce »// IF DATAF1-?20?DF1?L'33,2'? PTFWIPE ?20?DF1?L'33,2'?,LIBR« 0x06ce…06cf 0x15 0x06cf…06d0 0xbb 0x06d0…070b »// IF DATAF1-?20?DFQ?L'33,2'? PTFWIPE ?20?DFQ?L'33,2'?,LIBR« 0x070b…070c 0x15 0x070c…070d 0xbb 0x070d…0748 »// IF DATAF1-?20?DS1?L'33,2'? PTFWIPE ?20?DS1?L'33,2'?,LIBR« 0x0748…0749 0x15 0x0749…074a 0xbb 0x074a…0785 »// IF DATAF1-?20?DSQ?L'33,2'? PTFWIPE ?20?DSQ?L'33,2'?,LIBR« 0x0785…0786 0x15 0x0786…0787 0xbb 0x0787…07c2 »// IF DATAF1-?20?FO1?L'33,2'? PTFWIPE ?20?FO1?L'33,2'?,LIBR« 0x07c2…07c3 0x15 0x07c3…07c4 0xbb 0x07c4…07ff »// IF DATAF1-?20?FOQ?L'33,2'? PTFWIPE ?20?FOQ?L'33,2'?,LIBR« 0x07ff…0800 0x15 0x0800…0801 0xbb 0x0801…083c »// IF DATAF1-?20?IG1?L'33,2'? PTFWIPE ?20?IG1?L'33,2'?,LIBR« 0x083c…083d 0x15 0x083d…083e 0xbb 0x083e…0879 »// IF DATAF1-?20?IGQ?L'33,2'? PTFWIPE ?20?IGQ?L'33,2'?,LIBR« 0x0879…087a 0x15 0x087a…087b 0xbb 0x087b…08b6 »// IF DATAF1-?20?IS1?L'33,2'? PTFWIPE ?20?IS1?L'33,2'?,LIBR« 0x08b6…08b7 0x15 0x08b7…08b8 0xbb 0x08b8…08f3 »// IF DATAF1-?20?ISQ?L'33,2'? PTFWIPE ?20?ISQ?L'33,2'?,LIBR« 0x08f3…08f4 0x15 0x08f4…08f5 0xbb 0x08f5…0930 »// IF DATAF1-?20?IW1?L'33,2'? PTFWIPE ?20?IW1?L'33,2'?,LIBR« 0x0930…0931 0x15 0x0931…0932 0xbb 0x0932…096d »// IF DATAF1-?20?IWQ?L'33,2'? PTFWIPE ?20?IWQ?L'33,2'?,LIBR« 0x096d…096e 0x15 0x096e…096f 0xbb 0x096f…09aa »// IF DATAF1-?20?IW2?L'33,2'? PTFWIPE ?20?IW2?L'33,2'?,LIBR« 0x09aa…09ab 0x15 0x09ab…09ac 0xbb 0x09ac…09e7 »// IF DATAF1-?20?IWR?L'33,2'? PTFWIPE ?20?IWR?L'33,2'?,LIBR« 0x09e7…09e8 0x15 0x09e8…09e9 0xbb 0x09e9…0a24 »// IF DATAF1-?20?LC1?L'33,2'? PTFWIPE ?20?LC1?L'33,2'?,LIBR« 0x0a24…0a25 0x15 0x0a25…0a26 0xbb 0x0a26…0a61 »// IF DATAF1-?20?LCQ?L'33,2'? PTFWIPE ?20?LCQ?L'33,2'?,LIBR« 0x0a61…0a62 0x15 0x0a62…0a63 0xbb 0x0a63…0a9e »// IF DATAF1-?20?MA1?L'33,2'? PTFWIPE ?20?MA1?L'33,2'?,LIBR« 0x0a9e…0a9f 0x15 0x0a9f…0aa0 0xbb 0x0aa0…0adb »// IF DATAF1-?20?MAQ?L'33,2'? PTFWIPE ?20?MAQ?L'33,2'?,LIBR« 0x0adb…0adc 0x15 0x0adc…0add 0xbb 0x0add…0b18 »// IF DATAF1-?20?MG1?L'33,2'? PTFWIPE ?20?MG1?L'33,2'?,LIBR« 0x0b18…0b19 0x15 0x0b19…0b1a 0xbb 0x0b1a…0b55 »// IF DATAF1-?20?OLP?L'33,2'? PTFWIPE ?20?OLP?L'33,2'?,LIBR« 0x0b55…0b56 0x15 0x0b56…0b57 0xbb 0x0b57…0b92 »// IF DATAF1-?20?OLQ?L'33,2'? PTFWIPE ?20?OLQ?L'33,2'?,LIBR« 0x0b92…0b93 0x15 0x0b93…0b94 0xbb 0x0b94…0bcf »// IF DATAF1-?20?PPD?L'33,2'? PTFWIPE ?20?PPD?L'33,2'?,LIBR« 0x0bcf…0bd0 0x15 0x0bd0…0bd1 0xbb 0x0bd1…0c0c »// IF DATAF1-?20?QH1?L'33,2'? PTFWIPE ?20?QH1?L'33,2'?,LIBR« 0x0c0c…0c0d 0x15 0x0c0d…0c0e 0xbb 0x0c0e…0c49 »// IF DATAF1-?20?QHQ?L'33,2'? PTFWIPE ?20?QHQ?L'33,2'?,LIBR« 0x0c49…0c4a 0x15 0x0c4a…0c4b 0xbb 0x0c4b…0c86 »// IF DATAF1-?20?QU1?L'33,2'? PTFWIPE ?20?QU1?L'33,2'?,LIBR« 0x0c86…0c87 0x15 0x0c87…0c88 0xbb 0x0c88…0cc3 »// IF DATAF1-?20?QUQ?L'33,2'? PTFWIPE ?20?QUQ?L'33,2'?,LIBR« 0x0cc3…0cc4 0x15 0x0cc4…0cc5 0xbb 0x0cc5…0d00 »// IF DATAF1-?20?RG1?L'33,2'? PTFWIPE ?20?RG1?L'33,2'?,LIBR« 0x0d00…0d01 0x15 0x0d01…0d02 0xbb 0x0d02…0d3d »// IF DATAF1-?20?RGQ?L'33,2'? PTFWIPE ?20?RGQ?L'33,2'?,LIBR« 0x0d3d…0d3e 0x15 0x0d3e…0d3f 0xbb 0x0d3f…0d7a »// IF DATAF1-?20?SD1?L'33,2'? PTFWIPE ?20?SD1?L'33,2'?,LIBR« 0x0d7a…0d7b 0x15 0x0d7b…0d7c 0xbb 0x0d7c…0db7 »// IF DATAF1-?20?SDQ?L'33,2'? PTFWIPE ?20?SDQ?L'33,2'?,LIBR« 0x0db7…0db8 0x15 0x0db8…0db9 0xbb 0x0db9…0df4 »// IF DATAF1-?20?SE1?L'33,2'? PTFWIPE ?20?SE1?L'33,2'?,LIBR« 0x0df4…0df5 0x15 0x0df5…0df6 0xbb 0x0df6…0e31 »// IF DATAF1-?20?SEQ?L'33,2'? PTFWIPE ?20?SEQ?L'33,2'?,LIBR« 0x0e31…0e32 0x15 0x0e32…0e33 0xbb 0x0e33…0e6e »// IF DATAF1-?20?SW1?L'33,2'? PTFWIPE ?20?SW1?L'33,2'?,LIBR« 0x0e6e…0e6f 0x15 0x0e6f…0e70 0xbb 0x0e70…0eab »// IF DATAF1-?20?SWQ?L'33,2'? PTFWIPE ?20?SWQ?L'33,2'?,LIBR« 0x0eab…0eac 0x15 0x0eac…0ead 0xbb 0x0ead…0ee8 »// IF DATAF1-?20?TX1?L'33,2'? PTFWIPE ?20?TX1?L'33,2'?,LIBR« 0x0ee8…0ee9 0x15 0x0ee9…0eea 0xbb 0x0eea…0f25 »// IF DATAF1-?20?TXQ?L'33,2'? PTFWIPE ?20?TXQ?L'33,2'?,LIBR« 0x0f25…0f26 0x15 0x0f26…0f27 0xbb 0x0f27…0f62 »// IF DATAF1-?20?TXS?L'33,2'? PTFWIPE ?20?TXS?L'33,2'?,LIBR« 0x0f62…0f63 0x15 0x0f63…0f64 0xbb 0x0f64…0f9f »// IF DATAF1-?20?TXR?L'33,2'? PTFWIPE ?20?TXR?L'33,2'?,LIBR« 0x0f9f…0fa0 0x15 0x0fa0…0fa1 0xbb 0x0fa1…0fdc »// IF DATAF1-?20?WP1?L'33,2'? PTFWIPE ?20?WP1?L'33,2'?,LIBR« 0x0fdc…0fdd 0x15 0x0fdd…0fde 0xbb 0x0fde…1019 »// IF DATAF1-?20?WPQ?L'33,2'? PTFWIPE ?20?WPQ?L'33,2'?,LIBR« 0x1019…101a 0x15 0x101a…101b 0xbb 0x101b…1056 »// IF DATAF1-?20?WP3?L'33,2'? PTFWIPE ?20?WP3?L'33,2'?,LIBR« 0x1056…1057 0x15 0x1057…1058 0xbb 0x1058…1093 »// IF DATAF1-?20?WPR?L'33,2'? PTFWIPE ?20?WPR?L'33,2'?,LIBR« 0x1093…1094 0x15 0x1094…1095 0xbb 0x1095…10d0 »// IF DATAF1-?20?WS1?L'33,2'? PTFWIPE ?20?WS1?L'33,2'?,LIBR« 0x10d0…10d1 0x15 0x10d1…10d2 0xbb 0x10d2…110d »// IF DATAF1-?20?WSQ?L'33,2'? PTFWIPE ?20?WSQ?L'33,2'?,LIBR« 0x110d…110e 0x15 0x110e…110f 0x8e 0x110f…111d »// IF ?1?/COPY« 0x111d…111e 0x02 0x111e…111f 0xb6 0x111f…1155 »IF DATAF1-PTFIWX?L'33,2'? PTFWIPE PTFIWX?L'33,2'?,FILE« 0x1155…1156 0x0a 0x1156…1157 0x8e 0x1157…1165 »// IF ?1?/COPY« 0x1165…1166 0x02 0x1166…1167 0xb6 0x1167…119d »IF DATAF1-PTFIWY?L'33,2'? PTFWIPE PTFIWY?L'33,2'?,FILE« 0x119d…119e 0x0a 0x119e…119f 0xc6 0x119f…11e5 »// IF ?1?/APPLY IF DATAF1-PTFIWA?L'33,2'? PTFWIPE PTFIWA?L'33,2'?,FILE« 0x11e5…11e6 0x0a 0x11e6…11e7 0xc6 0x11e7…122d »// IF ?1?/APPLY IF DATAF1-PTFIWB?L'33,2'? PTFWIPE PTFIWB?L'33,2'?,FILE« 0x122d…122e 0x0a 0x122e…122f 0xc6 0x122f…1275 »// IF ?1?/APPLY IF DATAF1-PTFIWD?L'33,2'? PTFWIPE PTFIWD?L'33,2'?,FILE« 0x1275…1276 0x0a 0x1276…1277 0x8e 0x1277…1285 »// IF ?1?/COPY« 0x1285…1286 0x02 0x1286…1287 0xa8 0x1287…12af »IF DATAF1-CSPTFLIB PTFWIPE CSPTFLIB,LIBR« 0x12af…12b0 0x18 0x12b0…12b1 0x8e 0x12b1…12bf »// TAG NOQUERY« 0x12bf…12c0 0x42 0x12c0…12c1 0xa4 0x12c1…12e5 »// EVALUATE P20='' P11=ALLPTF P3=?2?« 0x12e5…12e6 0x2c 0x12e6…12e7 0x8e 0x12e7…12f5 »// IF ?1?/COPY« 0x12f5…12f6 0x02 0x12f6…12f7 0x8f 0x12f7…1306 »EVALUATE P20=''« 0x1306…1307 0x31 0x1307…1308 0xa2 0x1308…132a »// IF ?1?/APPLY EVALUATE P20='PTF'« 0x132a…132b 0x2e 0x132b…132c 0xa2 0x132c…134e »// IF ?1?/DELET EVALUATE P20='PTB'« 0x134e…134f 0x2e 0x134f…1350 0x8e 0x1350…135e »// IF ?1?/SAVE« 0x135e…135f 0x02 0x135f…1360 0x92 0x1360…1372 »EVALUATE P20='PTB'« 0x1372…1373 0x2e 0x1373…1374 0xa2 0x1374…1396 »// IF ?1?/REMOV EVALUATE P20='PTB'« 0x1396…1397 0x2e 0x1397…1398 0xa2 0x1398…13ba »// IF ?1?/RESTO EVALUATE P20='PTB'« 0x13ba…13bb 0x2e 0x13bb…13bc 0x8f 0x13bc…13cb »// TAG ALLAGAIN« 0x13cb…13cc 0x41 0x13cc…13cd 0xac 0x13cd…13f9 »// IF ?1?/DIREC IF ?3?/OLD EVALUATE P3='ALL'« 0x13f9…13fa 0x24 0x13fa…13fb 0x9c 0x13fb…1417 »// IFF ?1?/COPY GOTO NOCOPY1« 0x1417…1418 0x34 0x1418…1419 0x9d 0x1419…1436 »// IF ?3?/OLD EVALUATE P3=ALL« 0x1436…1437 0x33 0x1437…1438 0xc5 0x1438…147d »// PTF?1? ?2?,?20?SS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x147d…147e 0x0b 0x147e…147f 0xc5 0x147f…14c4 »// PTF?1? ?3?,?20?SSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x14c4…14c5 0x0b 0x14c5…14c6 0xc5 0x14c6…150b »// PTF?1? ?3?,?20?SSR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x150b…150c 0x0b 0x150c…150d 0x85 0x150d…1512 »// IF« 0x1512…1513 0x02 0x1513…1514 0x8f 0x1514…1523 »DATAF1-OLSLIB +« 0x1523…1524 0x3a 0x1524…1525 0x03 0x1525…1526 0xc2 0x1526…1568 »PTF?1? ?3?,?20?SSS?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x1568…1569 0x0b 0x1569…156a 0x96 0x156a…1580 »// IFF DATAF1-OLSLIB +« 0x1580…1581 0x3a 0x1581…1582 0x03 0x1582…1583 0xc2 0x1583…15c5 »PTF?1? ?3?,?20?SST?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x15c5…15c6 0x0b 0x15c6…15c7 0x8e 0x15c7…15d5 »// TAG NOCOPY1« 0x15d5…15d6 0x42 0x15d6…15d7 0xc4 0x15d7…161b »// PTF?1? ?2?,?20?AP1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#APFLIB,,?11?« 0x161b…161c 0x0c 0x161c…161d 0xc4 0x161d…1661 »// PTF?1? ?3?,?20?APQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#APFLIB,,?11?« 0x1661…1662 0x0c 0x1662…1663 0xc4 0x1663…16a7 »// PTF?1? ?2?,?20?AS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ASMLIB,,?11?« 0x16a7…16a8 0x0c 0x16a8…16a9 0xc4 0x16a9…16ed »// PTF?1? ?3?,?20?ASQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ASMLIB,,?11?« 0x16ed…16ee 0x0c 0x16ee…16ef 0xc3 0x16ef…1732 »// PTF?1? ?2?,?20?BA1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLLIB,,?11?« 0x1732…1733 0x0d 0x1733…1734 0xc3 0x1734…1777 »// PTF?1? ?3?,?20?BAQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLLIB,,?11?« 0x1777…1778 0x0d 0x1778…1779 0xc5 0x1779…17be »// PTF?1? ?2?,?20?BH1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLHPLIB,,?11?« 0x17be…17bf 0x0b 0x17bf…17c0 0xc5 0x17c0…1805 »// PTF?1? ?3?,?20?BHQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BLHPLIB,,?11?« 0x1805…1806 0x0b 0x1806…1807 0xc5 0x1807…184c »// PTF?1? ?2?,?20?BNH?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGUHLIB,,?11?« 0x184c…184d 0x0b 0x184d…184e 0xc5 0x184e…1893 »// PTF?1? ?3?,?20?BNQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGUHLIB,,?11?« 0x1893…1894 0x0b 0x1894…1895 0xc4 0x1895…18d9 »// PTF?1? ?2?,?20?BNW?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGULIB,,?11?« 0x18d9…18da 0x0c 0x18da…18db 0xc4 0x18db…191f »// PTF?1? ?3?,?20?BNR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#BGULIB,,?11?« 0x191f…1920 0x0c 0x1920…1921 0xc4 0x1921…1965 »// PTF?1? ?2?,?20?BRJ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POPLIB,,?11?« 0x1965…1966 0x0c 0x1966…1967 0xc4 0x1967…19ab »// PTF?1? ?3?,?20?BRQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POPLIB,,?11?« 0x19ab…19ac 0x0c 0x19ac…19ad 0xc4 0x19ad…19f1 »// PTF?1? ?2?,?20?CB1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#COBLIB,,?11?« 0x19f1…19f2 0x0c 0x19f2…19f3 0xc4 0x19f3…1a37 »// PTF?1? ?3?,?20?CBQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#COBLIB,,?11?« 0x1a37…1a38 0x0c 0x1a38…1a39 0xc4 0x1a39…1a7d »// PTF?1? ?2?,?20?CCN?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DEFLIB,,?11?« 0x1a7d…1a7e 0x0c 0x1a7e…1a7f 0xc4 0x1a7f…1ac3 »// PTF?1? ?3?,?20?CCQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DEFLIB,,?11?« 0x1ac3…1ac4 0x0c 0x1ac4…1ac5 0xc4 0x1ac5…1b09 »// PTF?1? ?2?,?20?CNF?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POSLIB,,?11?« 0x1b09…1b0a 0x0c 0x1b0a…1b0b 0xc4 0x1b0b…1b4f »// PTF?1? ?3?,?20?CNQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#POSLIB,,?11?« 0x1b4f…1b50 0x0c 0x1b50…1b51 0xc4 0x1b51…1b95 »// PTF?1? ?2?,?20?DF1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DFULIB,,?11?« 0x1b95…1b96 0x0c 0x1b96…1b97 0xc4 0x1b97…1bdb »// PTF?1? ?3?,?20?DFQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DFULIB,,?11?« 0x1bdb…1bdc 0x0c 0x1bdc…1bdd 0xc4 0x1bdd…1c21 »// PTF?1? ?2?,?20?DS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DSULIB,,?11?« 0x1c21…1c22 0x0c 0x1c22…1c23 0xc4 0x1c23…1c67 »// PTF?1? ?3?,?20?DSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#DSULIB,,?11?« 0x1c67…1c68 0x0c 0x1c68…1c69 0xc5 0x1c69…1cae »// PTF?1? ?2?,?20?FO1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#FORTLIB,,?11?« 0x1cae…1caf 0x0b 0x1caf…1cb0 0xc5 0x1cb0…1cf5 »// PTF?1? ?3?,?20?FOQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#FORTLIB,,?11?« 0x1cf5…1cf6 0x0b 0x1cf6…1cf7 0xc4 0x1cf7…1d3b »// PTF?1? ?2?,?20?IG1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#CGULIB,,?11?« 0x1d3b…1d3c 0x0c 0x1d3c…1d3d 0xc4 0x1d3d…1d81 »// PTF?1? ?3?,?20?IGQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#CGULIB,,?11?« 0x1d81…1d82 0x0c 0x1d82…1d83 0xc5 0x1d83…1dc8 »// PTF?1? ?2?,?20?IS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SRTXLIB,,?11?« 0x1dc8…1dc9 0x0b 0x1dc9…1dca 0xc5 0x1dca…1e0f »// PTF?1? ?3?,?20?ISQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SRTXLIB,,?11?« 0x1e0f…1e10 0x0b 0x1e10…1e11 0xc3 0x1e11…1e54 »// PTF?1? ?2?,?20?IW1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB,,?11?« 0x1e54…1e55 0x0d 0x1e55…1e56 0xc3 0x1e56…1e99 »// PTF?1? ?3?,?20?IWQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB,,?11?« 0x1e99…1e9a 0x0d 0x1e9a…1e9b 0xc4 0x1e9b…1edf »// PTF?1? ?3?,?20?IW2?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB2,,?11?« 0x1edf…1ee0 0x0c 0x1ee0…1ee1 0xc4 0x1ee1…1f25 »// PTF?1? ?3?,?20?IWR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#IWLIB2,,?11?« 0x1f25…1f26 0x0c 0x1f26…1f27 0xc4 0x1f27…1f6b »// PTF?1? ?2?,?20?LC1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LANLIB,,?11?« 0x1f6b…1f6c 0x0c 0x1f6c…1f6d 0xc4 0x1f6d…1fb1 »// PTF?1? ?3?,?20?LCQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LANLIB,,?11?« 0x1fb1…1fb2 0x0c 0x1fb2…1fb3 0xc5 0x1fb3…1ff8 »// PTF?1? ?2?,?20?MA1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#MIGRLIB,,?11?« 0x1ff8…1ff9 0x0b 0x1ff9…1ffa 0xc5 0x1ffa…203f »// PTF?1? ?3?,?20?MAQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#MIGRLIB,,?11?« 0x203f…2040 0x0b 0x2040…2041 0xc3 0x2041…2084 »// PTF?1? ?3?,?20?MG1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#MYLIB,,?11?« 0x2084…2085 0x0d 0x2085…2086 0xc3 0x2086…20c9 »// PTF?1? ?2?,?20?OLP?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ONLPD,,?11?« 0x20c9…20ca 0x0d 0x20ca…20cb 0xc3 0x20cb…210e »// PTF?1? ?3?,?20?OLQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#ONLPD,,?11?« 0x210e…210f 0x0d 0x210f…2110 0xc3 0x2110…2153 »// PTF?1? ?3?,?20?PPD?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,OLSLIB,,?11?« 0x2153…2154 0x0d 0x2154…2155 0xc5 0x2155…219a »// PTF?1? ?2?,?20?QH1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYHLIB,,?11?« 0x219a…219b 0x0b 0x219b…219c 0xc5 0x219c…21e1 »// PTF?1? ?3?,?20?QHQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYHLIB,,?11?« 0x21e1…21e2 0x0b 0x21e2…21e3 0xc4 0x21e3…2227 »// PTF?1? ?2?,?20?QU1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYLIB,,?11?« 0x2227…2228 0x0c 0x2228…2229 0xc4 0x2229…226d »// PTF?1? ?3?,?20?QUQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#QRYLIB,,?11?« 0x226d…226e 0x0c 0x226e…226f 0xc4 0x226f…22b3 »// PTF?1? ?2?,?20?RG1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#RPGLIB,,?11?« 0x22b3…22b4 0x0c 0x22b4…22b5 0xc4 0x22b5…22f9 »// PTF?1? ?3?,?20?RGQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#RPGLIB,,?11?« 0x22f9…22fa 0x0c 0x22fa…22fb 0xc4 0x22fb…233f »// PTF?1? ?2?,?20?SD1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SDALIB,,?11?« 0x233f…2340 0x0c 0x2340…2341 0xc4 0x2341…2385 »// PTF?1? ?3?,?20?SDQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SDALIB,,?11?« 0x2385…2386 0x0c 0x2386…2387 0xc4 0x2387…23cb »// PTF?1? ?2?,?20?SE1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SEULIB,,?11?« 0x23cb…23cc 0x0c 0x23cc…23cd 0xc4 0x23cd…2411 »// PTF?1? ?3?,?20?SEQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SEULIB,,?11?« 0x2411…2412 0x0c 0x2412…2413 0xc3 0x2413…2456 »// PTF?1? ?2?,?20?SW1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SWLIB,,?11?« 0x2456…2457 0x0d 0x2457…2458 0xc3 0x2458…249b »// PTF?1? ?3?,?20?SWQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#SWLIB,,?11?« 0x249b…249c 0x0d 0x249c…249d 0xc4 0x249d…24e1 »// PTF?1? ?2?,?20?TX1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TMSLIB,,?11?« 0x24e1…24e2 0x0c 0x24e2…24e3 0xc4 0x24e3…2527 »// PTF?1? ?3?,?20?TXQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TMSLIB,,?11?« 0x2527…2528 0x0c 0x2528…2529 0xc4 0x2529…256d »// PTF?1? ?2?,?20?TXS?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LEXLIB,,?11?« 0x256d…256e 0x0c 0x256e…256f 0xc4 0x256f…25b3 »// PTF?1? ?3?,?20?TXR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LEXLIB,,?11?« 0x25b3…25b4 0x0c 0x25b4…25b5 0xc3 0x25b5…25f8 »// PTF?1? ?2?,?20?WP1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TULIB,,?11?« 0x25f8…25f9 0x0d 0x25f9…25fa 0xc3 0x25fa…263d »// PTF?1? ?3?,?20?WPQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#TULIB,,?11?« 0x263d…263e 0x0d 0x263e…263f 0xc4 0x263f…2683 »// PTF?1? ?2?,?20?WP3?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#OFCLIB,,?11?« 0x2683…2684 0x0c 0x2684…2685 0xc4 0x2685…26c9 »// PTF?1? ?3?,?20?WPR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#OFCLIB,,?11?« 0x26c9…26ca 0x0c 0x26ca…26cb 0xc4 0x26cb…270f »// PTF?1? ?2?,?20?WS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#WSULIB,,?11?« 0x270f…2710 0x0c 0x2710…2711 0xc4 0x2711…2755 »// PTF?1? ?3?,?20?WSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#WSULIB,,?11?« 0x2755…2756 0x0c 0x2756…2757 0x9b 0x2757…2772 »// IF ?1?/COPY GOTO NOCOPY2« 0x2772…2773 0x35 0x2773…2774 0xc5 0x2774…27b9 »// PTF?1? ?2?,?20?SS1?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x27b9…27ba 0x0b 0x27ba…27bb 0xc5 0x27bb…2800 »// PTF?1? ?3?,?20?SSQ?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x2800…2801 0x0b 0x2801…2802 0xc5 0x2802…2847 »// PTF?1? ?3?,?20?SSR?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x2847…2848 0x0b 0x2848…2849 0x85 0x2849…284e »// IF« 0x284e…284f 0x02 0x284f…2850 0x8f 0x2850…285f »DATAF1-OLSLIB +« 0x285f…2860 0x3a 0x2860…2861 0x03 0x2861…2862 0xc2 0x2862…28a4 »PTF?1? ?3?,?20?SSS?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x28a4…28a5 0x0b 0x28a5…28a6 0x96 0x28a6…28bc »// IFF DATAF1-OLSLIB +« 0x28bc…28bd 0x3a 0x28bd…28be 0x03 0x28be…28bf 0xc2 0x28bf…2901 »PTF?1? ?3?,?20?SST?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9?,#LIBRARY,,?11?« 0x2901…2902 0x0b 0x2902…2903 0x8e 0x2903…2911 »// TAG NOCOPY2« 0x2911…2912 0x42 0x2912…2913 0xac 0x2913…293f »// IF ?1?/DIREC IF ?9?/CNFIGSSP GOTO MDIRECT« 0x293f…2940 0x24 0x2940…2941 0x9d 0x2941…295e »// IF ?1?/DIREC GOTO CONTINUE« 0x295e…295f 0x33 0x295f…2960 0x8e 0x2960…296e »// IF ?1?/COPY« 0x296e…296f 0x02 0x296f…2970 0x8a 0x2970…297a »GOTO MCOPY« 0x297a…297b 0x36 0x297b…297c 0xb2 0x297c…29ae »// IF ?1?/APPLY PTFMAPLY ALL,CSPTFLIB,,,,,,,,,?11?« 0x29ae…29af 0x1e 0x29af…29b0 0x89 0x29b0…29b9 »// RETURN« 0x29b9…29ba 0x47 0x29ba…29bb 0x8c 0x29bb…29c7 »// TAG MCOPY« 0x29c7…29c8 0x44 0x29c8…29c9 0xa8 0x29c9…29f1 »// IFF ?2?/OLD IFF ?2?/ALL GOTO CONTINUE« 0x29f1…29f2 0x28 0x29f2…29f3 0xb6 0x29f3…2a29 »// PTFMCOPY LOAD,CS1?L'01,2'?,,?6?,?7?,?8?,?9?,,,,?11?« 0x2a29…2a2a 0x1a 0x2a2a…2a2b 0x90 0x2a2b…2a3b »// GOTO CONTINUE« 0x2a3b…2a3c 0x40 0x2a3c…2a3d 0x8e 0x2a3d…2a4b »// TAG MDIRECT« 0x2a4b…2a4c 0x42 0x2a4c…2a4d 0x8e 0x2a4d…2a5b »// LOAD $FECHK« 0x2a5b…2a5c 0x42 0x2a5c…2a5d 0x86 0x2a5d…2a63 »// RUN« 0x2a63…2a64 0x4a 0x2a64…2a65 0x90 0x2a65…2a75 »// STATUS MAPPLY« 0x2a75…2a76 0x40 0x2a76…2a77 0xb3 0x2a77…2aaa »// PTFMCOPY LOAD,CS1?L'01,2'?,,?5?,?6?,,,,,?9?,?11?« 0x2aaa…2aab 0x1d 0x2aab…2aac 0x90 0x2aac…2abc »// GOTO CONTINUE« 0x2abc…2abd 0x40 0x2abd…2abe 0x8f 0x2abe…2acd »// TAG CONTINUE« 0x2acd…2ace 0x41 0x2ace…2acf 0x9f 0x2acf…2aee »// IFF ?L'30,1'?=1 GOTO CONTIN1« 0x2aee…2aef 0x31 0x2aef…2af0 0xa7 0x2af0…2b17 »// LOCAL OFFSET-30,DATA-' ',AREA-SYSTEM« 0x2b17…2b18 0x29 0x2b18…2b19 0x90 0x2b19…2b29 »// GOTO ALLAGAIN« 0x2b29…2b2a 0x40 0x2b2a…2b2b 0x8e 0x2b2b…2b39 »// TAG CONTIN1« 0x2b39…2b3a 0x42 0x2b3a…2b3b 0xa5 0x2b3b…2b60 »// IF ?L'45,2'?=?L'47,2'? GOTO ENDALL« 0x2b60…2b61 0x2b 0x2b61…2b62 0x8e 0x2b62…2b70 »// LOAD $FECHK« 0x2b70…2b71 0x42 0x2b71…2b72 0x86 0x2b72…2b78 »// RUN« 0x2b78…2b79 0x4a 0x2b79…2b7a 0xa0 0x2b7a…2b9a »// CONTINUE ?1?,?2?,ALLPTF,?4?,0« 0x2b9a…2b9b 0x30 0x2b9b…2b9c 0x9e 0x2b9c…2bba »// IFF ?L'43,1'?=1 GOTO ENDALL« 0x2bba…2bbb 0x32 0x2bbb…2bbc 0x8e 0x2bbc…2bca »// IF ?1?=COPY« 0x2bca…2bcb 0x02 0x2bcb…2bcc 0x95 0x2bcc…2be1 »EVALUATE P6=?L'57,5'?« 0x2be1…2be2 0x2b 0x2be2…2be3 0xa5 0x2be3…2c08 »// IF ?1?=DIREC EVALUATE P5=?L'57,5'?« 0x2c08…2c09 0x2b 0x2c09…2c0a 0x90 0x2c0a…2c1a »// GOTO ALLAGAIN« 0x2c1a…2c1b 0x40 0x2c1b…2c1c 0x8d 0x2c1c…2c29 »// TAG ENDALL« 0x2c29…2c2a 0x43 0x2c2a…2c2b 0xa4 0x2c2b…2c4f »// IFF ?1?=DIREC IFF ?1?=COPY RETURN« 0x2c4f…2c50 0x2c 0x2c50…2c51 0x99 0x2c51…2c6a »// IFF ?L'29,1'?=1 RETURN« 0x2c6a…2c6b 0x37 0x2c6b…2c6c 0xaf 0x2c6c…2c9b »// IF DATAF1-PTF#WRK2 DELETE PTF#WRK2,F1,,,LIBR« 0x2c9b…2c9c 0x21 0x2c9c…2c9d 0x89 0x2c9d…2ca6 »// RETURN« 0x2ca6…2ca7 0x47 0x2ca7…2ca8 0x00 0x2ca8…2cc0 6b 6f f5 6f 6b 6f f6 6f 6b 6f f7 6f 6b 6f f8 6f 6b 6f f9 6f 6b 7b d6 d5 ┆,?5?,?6?,?7?,?8?,?9?,#ON┆ 0x2cc0…2ce0 d3 d7 c4 6b 6b 6f f1 f1 6f 0d c3 61 61 40 d7 e3 c6 6f f1 6f 40 6f f3 6f 6b 6f f2 f0 6f d6 d3 d8 ┆LPD,,?11? C// PTF?1? ?3?,?20?OLQ┆ 0x2ce0…2d00 6f d3 7d f3 f3 6b f2 7d 6f 6b 6f f4 6f 6b 6f f5 6f 6b 6f f6 6f 6b 6f f7 6f 6b 6f f8 6f 6b 6f f9 ┆?L'33,2'?,?4?,?5?,?6?,?7?,?8?,?9┆