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

⟦85f43dc85⟧ 

    Length: 1280 (0x500)
    Notes: MEMBER_P, Member_Text
    Names: »UPDATEAF«

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⟧ ».UPDATEAF«

Text Member

// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB                       
// REGION SIZE-48                                                               
// LOCAL AREA-SYSTEM,OFFSET-1,BLANK-8,DATA-'MIGRATE'                            
// LOCAL AREA-SYSTEM,OFFSET-262,BLANK-8,DATA-'?1?'                              
// IF ?2?/CNF LOCAL AREA-SYSTEM,OFFSET-261,DATA-'C'                             
// IF ?2?/IDDU LOCAL AREA-SYSTEM,OFFSET-261,DATA-'D'                            
// IF ?2?/RPG LOCAL AREA-SYSTEM,OFFSET-261,DATA-'G'                             
// IF ?2?/SOURCE LOCAL AREA-SYSTEM,OFFSET-261,DATA-'I'                          
// IF ?2?/MAST LOCAL AREA-SYSTEM,OFFSET-261,DATA-'M'                            
// IF ?2?/OCL LOCAL AREA-SYSTEM,OFFSET-261,DATA-'O'                             
// IF ?2?/SEC LOCAL AREA-SYSTEM,OFFSET-261,DATA-'S'                             
// IF ?2?/QRY LOCAL AREA-SYSTEM,OFFSET-261,DATA-'Q'                             
// IF ?2?/CBL LOCAL AREA-SYSTEM,OFFSET-261,DATA-'B'                             
// IFF ?2?/CNF IFF ?2?/IDDU IFF ?2?/RPG IFF ?2?/SOURCE GOTO MORE                
// GOTO UPDATE                                                                  
// TAG MORE                                                                     
// IFF ?2?/MAST IFF ?2?/OCL IFF ?2?/SEC IFF ?2?/QRY IFF ?2?/CBL RETURN          
// TAG UPDATE                                                                   
// LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8                                         
// IFF ?3?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?3?'                     
// IF ?L'117,8'?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'$MYAUD'            
// LOCAL AREA-SYSTEM,OFFSET-290,BLANK-1,DATA-'?4?'                              
// LOCAL AREA-SYSTEM,OFFSET-278,BLANK-6,DATA-'?5?'                              
// LOCAL AREA-SYSTEM,OFFSET-284,BLANK-6,DATA-'?6?'                              
// LOAD #MYAU,#MYLIB                                                            
// RUN

Full view