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

OctetView - MemberText

0x000…001 0xb9
0x001…03a »// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB«
0x03a…03b 0x17
0x03b…03c 0x91
0x03c…04d »// REGION SIZE-48«
0x04d…04e 0x3f
0x04e…04f 0xb4
0x04f…083 »// LOCAL AREA-SYSTEM,OFFSET-1,BLANK-8,DATA-'MIGRATE'«
0x083…084 0x1c
0x084…085 0xb2
0x085…0b7 »// LOCAL AREA-SYSTEM,OFFSET-262,BLANK-8,DATA-'?1?'«
0x0b7…0b8 0x1e
0x0b8…0b9 0xb3
0x0b9…0ec »// IF ?2?/CNF LOCAL AREA-SYSTEM,OFFSET-261,DATA-'C'«
0x0ec…0ed 0x1d
0x0ed…0ee 0xb4
0x0ee…122 »// IF ?2?/IDDU LOCAL AREA-SYSTEM,OFFSET-261,DATA-'D'«
0x122…123 0x1c
0x123…124 0xb3
0x124…157 »// IF ?2?/RPG LOCAL AREA-SYSTEM,OFFSET-261,DATA-'G'«
0x157…158 0x1d
0x158…159 0xb6
0x159…18f »// IF ?2?/SOURCE LOCAL AREA-SYSTEM,OFFSET-261,DATA-'I'«
0x18f…190 0x1a
0x190…191 0xb4
0x191…1c5 »// IF ?2?/MAST LOCAL AREA-SYSTEM,OFFSET-261,DATA-'M'«
0x1c5…1c6 0x1c
0x1c6…1c7 0xb3
0x1c7…1fa »// IF ?2?/OCL LOCAL AREA-SYSTEM,OFFSET-261,DATA-'O'«
0x1fa…1fb 0x1d
0x1fb…1fc 0xb3
0x1fc…22f »// IF ?2?/SEC LOCAL AREA-SYSTEM,OFFSET-261,DATA-'S'«
0x22f…230 0x1d
0x230…231 0xb3
0x231…264 »// IF ?2?/QRY LOCAL AREA-SYSTEM,OFFSET-261,DATA-'Q'«
0x264…265 0x1d
0x265…266 0xb3
0x266…299 »// IF ?2?/CBL LOCAL AREA-SYSTEM,OFFSET-261,DATA-'B'«
0x299…29a 0x1d
0x29a…29b 0xc0
0x29b…2db »// IFF ?2?/CNF IFF ?2?/IDDU IFF ?2?/RPG IFF ?2?/SOURCE GOTO MORE«
0x2db…2dc 0x10
0x2dc…2dd 0x8e
0x2dd…2eb »// GOTO UPDATE«
0x2eb…2ec 0x42
0x2ec…2ed 0x8b
0x2ed…2f8 »// TAG MORE«
0x2f8…2f9 0x45
0x2f9…2fa 0xc6
0x2fa…340 »// IFF ?2?/MAST IFF ?2?/OCL IFF ?2?/SEC IFF ?2?/QRY IFF ?2?/CBL RETURN«
0x340…341 0x0a
0x341…342 0x8d
0x342…34f »// TAG UPDATE«
0x34f…350 0x43
0x350…351 0xa7
0x351…378 »// LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8«
0x378…379 0x29
0x379…37a 0xbb
0x37a…3b5 »// IFF ?3?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'?3?'«
0x3b5…3b6 0x15
0x3b6…3b7 0xc4
0x3b7…3fb »// IF ?L'117,8'?/ LOCAL AREA-SYSTEM,OFFSET-117,BLANK-8,DATA-'$MYAUD'«
0x3fb…3fc 0x0c
0x3fc…3fd 0xb2
0x3fd…42f »// LOCAL AREA-SYSTEM,OFFSET-290,BLANK-1,DATA-'?4?'«
0x42f…430 0x1e
0x430…431 0xb2
0x431…463 »// LOCAL AREA-SYSTEM,OFFSET-278,BLANK-6,DATA-'?5?'«
0x463…464 0x1e
0x464…465 0xb2
0x465…497 »// LOCAL AREA-SYSTEM,OFFSET-284,BLANK-6,DATA-'?6?'«
0x497…498 0x1e
0x498…499 0x94
0x499…4ad »// LOAD #MYAU,#MYLIB«
0x4ad…4ae 0x3c
0x4ae…4af 0x86
0x4af…4b5 »// RUN«
0x4b5…4b6 0x4a
0x4b6…4b7 0x00
0x4b7…4c0 1e b3 61 61 40 c9 c6 40 6f                                                                        ┆ ·// IF ?┆
0x4c0…4e0 f2 6f 61 c3 d5 c6 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60   ┆2?/CNF LOCAL AREA-SYSTEM,OFFSET-┆
0x4e0…500 f2 f6 f1 6b c4 c1 e3 c1 60 7d c3 7d 1d b4 61 61 40 c9 c6 40 6f f2 6f 61 c9 c4 c4 e4 40 d3 d6 c3   ┆261,DATA-'C' ©// IF ?2?/IDDU LOC┆

Reduced view