|
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: 2560 (0xa00)
Notes: MEMBER_P, Member_Text
Names: »PTF#IW2 «
└─⟦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⟧ ».PTF#IW2 «
// EVALUATE P15,2=?L'33,2'? // IF ?1?=COPY GOTO COPY // IF ?1?=APPLY GOTO APPLY // IF ?1?=DIRECT GOTO DIRECT // IF ?1?=REMOVE GOTO REMOVE // IF ?1?=SAVE GOTO SAVE // IF ?1?=RESTORE GOTO RESTORE // IF ?1?=DELETE GOTO DELETE // PAUSE 'PTF#IW2 ?1?,?2?,?3?,?4?' // RETURN // TAG COPY // IFF ?L'75,1'?=1 RETURN // IFF DATAF1-PTFIWY?15? GOTO COPY0A // * 'PTFIWY?15?' // #ERR 3341,03 // DELETE PTFIWY?15?,F1 // TAG COPY0A // RESTORE PTFIWY?15?,,,,,,?2?,?3? // RETURN // TAG APPLY // IFF ?L'75,1'?=1 GOTO APPLY2 // IF DATAF1-PTFIWY?15? GOTO APPLY1 // * 'PTFIWY?15?' // #ERR 3365,23 // GOTO APPLY2 // TAG APPLY1 // IFF DATAF1-PTFIWD?15? GOTO APPLY1A // * 'PTFIWD?15?' // #ERR 3341,03 // DELETE PTFIWD?15?,F1 // TAG APPLY1A // COPYDATA #IWPCLD4,,PTFIWD?15? // IF PROC-'#IWPTF4,#LIBRARY' GOTO APPLY1B // * '#IWPTF4,#LIBRARY' // #ERR 3351,23 // GOTO APPLY2 // TAG APPLY1B // INCLUDE #IWPTF4 PTFIWD?15? // IF DATAF1-PTBIWD?15? DELETE PTBIWD?15?,F1 // IF DATAF1-#IWPCLD4 RENAME #IWPCLD4,PTBIWD?15? // RENAME PTFIWD?15?,#IWPCLD4 // INCLUDE WSFMRG // TAG APPLY2 // IF PROC-'#IWPTF4,#LIBRARY' REMOVE #IWPTF4,PROC,#LIBRARY // IF DATAF1-PTFIWY?15? DELETE PTFIWY?15?,F1 // RETURN // TAG DIRECT // IFF ?2'OLD'?=OLD IFF ?2?=ALL RETURN // IFF PROC-'#IWPTF4,#LIBRARY' RETURN // IFF DATAF1-PTFIWY?15? GOTO DIRECT0A // * 'PTFIWY?15?' // #ERR 3341,03 // DELETE PTFIWY?15?,F1 // TAG DIRECT0A // RESTORE PTFIWY?15?,,,,,,?3?,?4? // IFF PROC-'#IWPTF4,#LIBRARY' GOTO DIRECT2 // INCLUDE #IWPTF4 #IWPCLD4 // INCLUDE WSFMRG // TAG DIRECT2 // IF PROC-'#IWPTF4,#LIBRARY' REMOVE #IWPTF4,PROC,#LIBRARY // IF DATAF1-PTFIWY?15? DELETE PTFIWY?15?,F1 // RETURN // TAG REMOVE // IFF ?L'75,1'?=1 GOTO REMOVE2 // IF DATAF1-PTBIWD?15? GOTO REMOVE1A // * 'PTBIWD?15?' // #ERR 3351,23 // GOTO REMOVE2 // TAG REMOVE1A // IF DATAF1-#IWPCLD4 DELETE #IWPCLD4,F1 // COPYDATA PTBIWD?15?,,#IWPCLD4 // TAG REMOVE2 // RETURN // TAG SAVE // IF DATAF1-PTBIWD?15? SAVE PTBIWD?15?,999,,?2?,?3'S1'?,?4'AUTO'? // RETURN // TAG DELETE // IF ?2'F1'?=I1 GOTO DELETE2 // IF DATAF1-PTBIWD?15? DELETE PTBIWD?15?,F1 // RETURN // TAG DELETE2 // IF DATAI1-'PTBIWD?15?,,?3'S1'?' DELETE PTBIWD?15?,I1,SCRATCH,,,?3? // RETURN // TAG RESTORE // IF DATAI1-'PTBIWD?15?,,?3'S1'?' RESTORE PTBIWD?15?,,,,,?2?,?3?,?4? // RETURN