|
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: 3840 (0xf00)
Notes: MEMBER_P, Member_Text
Names: »PTF#IW1 «
└─⟦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#IW1 «
// 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#IW1 ?1?,?2?,?3?,?4?' // RETURN // TAG COPY // IFF ?L'72,1'?=1 IFF ?L'73,1'?=1 RETURN // IFF DATAF1-PTFIWX?15? GOTO COPY0A // * 'PTFIWX?15?' // #ERR 3341,03 // DELETE PTFIWX?15?,F1 // TAG COPY0A // RESTORE PTFIWX?15?,,,,,,?2?,?3? // RETURN // TAG APPLY // IFF ?L'72,1'?=1 GOTO APPLY2 // IF DATAF1-PTFIWX?15? GOTO APPLY1 // * 'PTFIWX?15?' // #ERR 3365,23 // GOTO APPLY2 // TAG APPLY1 // IFF DATAF1-PTFIWA?15? GOTO APPLY1A // * 'PTFIWA?15?' // #ERR 3341,03 // DELETE PTFIWA?15?,F1 // TAG APPLY1A // COPYDATA #IWPCLD1,,PTFIWA?15? // IF PROC-'#IWPTF1,#LIBRARY' GOTO APPLY1B // * '#IWPTF1,#LIBRARY' // #ERR 3351,23 // GOTO APPLY2 // TAG APPLY1B // INCLUDE #IWPTF1 PTFIWA?15? // IF DATAF1-PTBIWA?15? DELETE PTBIWA?15?,F1 // IF DATAF1-#IWPCLD1 RENAME #IWPCLD1,PTBIWA?15? // RENAME PTFIWA?15?,#IWPCLD1 // INCLUDE IWMRG1 // TAG APPLY2 // IFF ?L'73,1'?=1 GOTO APPLY3 // IFF DATAF1-PTFIWB?15? GOTO APPLY2A // * 'PTFIWB?15?' // #ERR 3341,03 // DELETE PTFIWB?15?,F1 // TAG APPLY2A // COPYDATA #IWPCLD2,,PTFIWB?15? // IF PROC-'#IWPTF2,#LIBRARY' GOTO APPLY2B // * '#IWPTF2,#LIBRARY' // #ERR 3351,23 // GOTO APPLY3 // TAG APPLY2B // INCLUDE #IWPTF2 PTFIWB?15? // IF DATAF1-PTBIWB?15? DELETE PTBIWB?15?,F1 // IF DATAF1-#IWPCLD2 RENAME #IWPCLD2,PTBIWB?15? // RENAME PTFIWB?15?,#IWPCLD2 // INCLUDE IWMRG2 // TAG APPLY3 // IF PROC-'#IWPTF1,#LIBRARY' REMOVE #IWPTF1,PROC,#LIBRARY // IF PROC-'#IWPTF2,#LIBRARY' REMOVE #IWPTF2,PROC,#LIBRARY // IF DATAF1-PTFIWX?15? DELETE PTFIWX?15?,F1 // RETURN // TAG DIRECT // IFF ?2'OLD'?=OLD IFF ?2?=ALL RETURN // IFF PROC-'#IWPTF1,#LIBRARY' IFF PROC-'#IWPTF2,#LIBRARY' RETURN // IFF DATAF1-PTFIWX?15? GOTO DIRECT0A // * 'PTFIWX?15?' // #ERR 3341,03 // DELETE PTFIWX?15?,F1 // TAG DIRECT0A // RESTORE PTFIWX?15?,,,,,,?3?,?4? // IFF PROC-'#IWPTF1,#LIBRARY' GOTO DIRECT2 // INCLUDE #IWPTF1 #IWPCLD1 // INCLUDE IWMRG1 // TAG DIRECT2 // IFF PROC-'#IWPTF2,#LIBRARY' GOTO DIRECT3 // INCLUDE #IWPTF2 #IWPCLD2 // INCLUDE IWMRG2 // TAG DIRECT3 // IF PROC-'#IWPTF1,#LIBRARY' REMOVE #IWPTF1,PROC,#LIBRARY // IF PROC-'#IWPTF2,#LIBRARY' REMOVE #IWPTF2,PROC,#LIBRARY // IF DATAF1-PTFIWX?15? DELETE PTFIWX?15?,F1 // RETURN // TAG REMOVE // IFF ?L'72,1'?=1 GOTO REMOVE2 // IF DATAF1-PTBIWA?15? GOTO REMOVE1A // * 'PTBIWA?15?' // #ERR 3351,23 // GOTO REMOVE2 // TAG REMOVE1A // IF DATAF1-#IWPCLD1 DELETE #IWPCLD1,F1 // COPYDATA PTBIWA?15?,,#IWPCLD1 // TAG REMOVE2 // IFF ?L'73,1'?=1 GOTO REMOVE3 // IF DATAF1-PTBIWB?15? GOTO REMOVE2A // * 'PTBIWB?15?' // #ERR 3351,23 // GOTO REMOVE3 // TAG REMOVE2A // IF DATAF1-#IWPCLD2 DELETE #IWPCLD2,F1 // COPYDATA PTBIWB?15?,,#IWPCLD2 // TAG REMOVE3 // RETURN // TAG SAVE // IF DATAF1-PTBIWA?15? SAVE PTBIWA?15?,999,,?2?,?3'S1'?,?4'AUTO'? // IF DATAF1-PTBIWB?15? SAVE PTBIWB?15?,999,,?2?,?3'S1'?,?4'AUTO'? // RETURN // TAG DELETE // IF ?2'F1'?=I1 GOTO DELETE2 // IF DATAF1-PTBIWA?15? DELETE PTBIWA?15?,F1 // IF DATAF1-PTBIWB?15? DELETE PTBIWB?15?,F1 // RETURN // TAG DELETE2 // IF DATAI1-'PTBIWA?15?,,?3'S1'?' DELETE PTBIWA?15?,I1,SCRATCH,,,?3? // IF DATAI1-'PTBIWB?15?,,?3'S1'?' DELETE PTBIWB?15?,I1,SCRATCH,,,?3? // RETURN // TAG RESTORE // IF DATAI1-'PTBIWA?15?,,?3'S1'?' RESTORE PTBIWA?15?,,,,,?2?,?3?,?4? // IF DATAI1-'PTBIWB?15?,,?3'S1'?' RESTORE PTBIWB?15?,,,,,?2?,?3?,?4? // RETURN