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

⟦4ff64bbbd⟧ 

    Length: 1792 (0x700)
    Notes: MEMBER_P, Member_Text
    Names: »ANLZSRC «

Derivation

└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
    └─⟦9d4f33051⟧ 
        └─⟦this⟧ ».ANLZSRC «

Text Member

// LIBRARY NAME-#MYLIB                                                          
// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB                       
// MEMBER USER2-#MY#2MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB                       
// IF ?1?/ BADPARM ANALYZE,1                                                    
// IFF DATAF1-?1?  #ERR 3832,3,MIGR,?1?                                         
// IF ?2?/ GOTO SKIP1                                                           
// IFF DATAF1-?2?  #ERR 3832,3,MIGR,?2?                                         
// TAG SKIP1                                                                    
// IF ?4?/ GOTO SKIP2                                                           
// IFF DATAF1-?4?  #ERR 3832,3,MIGR,?4?                                         
// TAG SKIP2                                                                    
// IF ?5?/ GOTO SKIP3                                                           
// IFF DATAF1-?5?  #ERR 3832,3,MIGR,?5?                                         
// TAG SKIP3                                                                    
// IF ?6?/ GOTO SKIP4                                                           
// IFF DATAF1-?6?  #ERR 3832,3,MIGR,?6?                                         
// TAG SKIP4                                                                    
// IF ?7?/ GOTO SKIP5                                                           
// IFF DATAF1-?7?  #ERR 3832,3,MIGR,?7?                                         
// TAG SKIP5                                                                    
// IF ?8?/ GOTO SKIP6                                                           
// IFF DATAF1-?8?  #ERR 3832,3,MIGR,?8?                                         
// TAG SKIP6                                                                    
// IF ?9?/ GOTO SKIP7                                                           
// IFF DATAF1-?9?  #ERR 3832,3,MIGR,?9?                                         
// TAG SKIP7                                                                    
// IF ?10?/ GOTO SKIP8                                                          
// IFF DATAF1-?10?  #ERR 3832,3,MIGR,?10?                                       
// TAG SKIP8                                                                    
// IF ?11?/ GOTO SKIP9                                                          
// IFF DATAF1-?11?  #ERR 3832,3,MIGR,?11?                                       
// TAG SKIP9                                                                    
// LOCAL AREA-SYSTEM,OFFSET-010,DATA-'?1?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-018,DATA-'?2?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-026,DATA-'?4?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-034,DATA-'?5?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-042,DATA-'?6?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-050,DATA-'?7?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-058,DATA-'?8?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-066,DATA-'?9?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-074,DATA-'?10?',BLANK-8                             
// LOCAL AREA-SYSTEM,OFFSET-082,DATA-'?11?',BLANK-8                             
// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8                           
// LOAD #MYAN                                                                   
// RUN                                                                          
UPDATEAF ?1?,SOURCE,?3?                                                         
// RETURN

Full view