DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦2fb58e62c⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »PTFAPPLY«

Derivation

└─⟦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⟧ ».PTFAPPLY«

Text Member

// IF ?11?= RETURN                                                              
// IFF ?L'69,1'?=1 IF PROC-LDMARES LDMARES                                      
// IFF ?L'68,1'?=1 IF PROC-PTFIWUPD PTFIWUPD                                    
// LOCAL OFFSET-69,DATA-'1',AREA-SYSTEM                                         
// IF ?9?/ #ERR 3357,C                                                          
// IF ?11?/ALLPTF IFF DATAF1-?2? RETURN                                         
// IF DATAF1-?2? GOTO AP1                                                       
// * '?2?'                                                                      
// #ERR 3365,C        PTF LIBRARY NOT FOUND                                     
// TAG AP1                                                                      
// IF PROC-'PTFPROC,?2?' REMOVE PTFPROC,PROC,?2?                                
// IF LOAD-'$FECHK,PTFSS1?L'33,2'?' LOAD $FECHK,PTFSS1?L'33,2'?                 
// ELSE LOAD $FECHK                                                             
// RUN                                                                          
// APPLY ?2?,?9?                                                                
// IFF PROC-'PTFPROC,?2?' GOTO APEND                                            
// IFF DATAF1-?L'80,8'? GOTO AP6                                                
// * '?L'80,8'?'                                                                
// * 2038                                                                       
// PAUSE                                                                        
// DELETE ?L'80,8'?,F1,,,LIBR                                                   
// TAG AP6                                                                      
// LOAD $MAINT                                                                  
// INCLUDE PTFPROC,?2?                                                          
// END                                                                          
// IFF ?CD?=0000 RETURN                                                         
// IF ?9?=#LIBRARY LOCAL OFFSET-8,DATA-'1',AREA-SYSTEM                          
// DELETE ?2?,F1,,,LIBR                                                         
// IF ?2?=PTFIW1?L'33,2'? INCLUDE PTF#IW1 APPLY                                 
// IF ?2?=PTFIW2?L'33,2'? INCLUDE PTF#IW2 APPLY                                 
// IF ?2?=PTFSS1?L'33,2'? IF LOAD-#EPPTF INCLUDE PTF#EP1 APPLY                  
// RETURN                                                                       
// TAG APEND                                                                    
// IFF ?11?/ALLPTF #ERR 3361,03                                                 
// RETURN

Full view