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

⟦d31508041⟧ 

    Length: 512 (0x200)
    Notes: MEMBER_P, Member_Text
    Names: »RPGDROP «

Derivation

└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
    └─⟦8c0250367⟧ 
        └─⟦this⟧ ».RPGDROP «

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' RPGDROP?M5500?'                                  
// IF DATAF1-#RPGLIB DELETE #RPGLIB,F1,REMOVE,,LIBR                             
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE LIBRARY-P,NAME-RPG.ALL,RETAIN-S                                       
// DELETE LIBRARY-P,NAME-AUTO.ALL,RETAIN-S                                      
// IF LOAD-'#RPPPD01,#LIBRARY' DELETE LIBRARY-O,NAME-#RPPPD.ALL,RETAIN-S        
// END                                                                          
// IFF ?CD?/0000 RETURN                                                         
LOGPLD DROP,RPG                                                                 
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'RPGDROP 50'                                 
// LOAD $CNDRP                                                                  
// RUN

OctetView - MemberText

0x000…001 0x96
0x001…017 »// MEMBER USER1-##MSG2«
0x017…018 0x3a
0x018…019 0xae
0x019…047 »// IF JOBQ-NO IF EVOKED-NO * ' RPGDROP?M5500?'«
0x047…048 0x22
0x048…049 0xb3
0x049…07c »// IF DATAF1-#RPGLIB DELETE #RPGLIB,F1,REMOVE,,LIBR«
0x07c…07d 0x1d
0x07d…07e 0x8e
0x07e…08c »// LOAD $MAINT«
0x08c…08d 0x42
0x08d…08e 0x86
0x08e…094 »// RUN«
0x094…095 0x4a
0x095…096 0xa9
0x096…0bf »// DELETE LIBRARY-P,NAME-RPG.ALL,RETAIN-S«
0x0bf…0c0 0x27
0x0c0…0c1 0xaa
0x0c1…0eb »// DELETE LIBRARY-P,NAME-AUTO.ALL,RETAIN-S«
0x0eb…0ec 0x26
0x0ec…0ed 0xc8
0x0ed…135 »// IF LOAD-'#RPPPD01,#LIBRARY' DELETE LIBRARY-O,NAME-#RPPPD.ALL,RETAIN-S«
0x135…136 0x08
0x136…137 0x86
0x137…13d »// END«
0x13d…13e 0x4a
0x13e…13f 0x97
0x13f…156 »// IFF ?CD?/0000 RETURN«
0x156…157 0x39
0x157…158 0x8f
0x158…167 »LOGPLD DROP,RPG«
0x167…168 0x41
0x168…169 0xaf
0x169…198 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'RPGDROP 50'«
0x198…199 0x21
0x199…19a 0x8e
0x19a…1a8 »// LOAD $CNDRP«
0x1a8…1a9 0x42
0x1a9…1aa 0x86
0x1aa…1b0 »// RUN«
0x1b0…1b1 0x4a
0x1b1…1b2 0x00
0x1b2…1c0 01 20 00 00 00 00 00 00 00 00 00 00 00 00                                                         ┆  ␣␣␣␣␣␣␣␣␣␣␣␣┆
0x1c0…1e0 00 80 3d 66 00 00 00 00 00 00 00 00 e2 c5 e7 d4 d7 d3 c5 40 40 00 09 1c 50 00 20 00 00 00 00 40   ┆␣Ø Ã␣␣␣␣␣␣␣␣SEXMPLE  ␣  &␣ ␣␣␣␣ ┆
0x1e0…200 00 00 00 02 00 04 20 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3d 99 00 00 00 00 00 00 00 00 ff   ┆␣␣␣ ␣  ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø r␣␣␣␣␣␣␣␣ ┆

Reduced view