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

⟦8a76f1cbb⟧

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

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

*  THIS PROCEDURE SAVES THE RPG PROGRAM PRODUCT ON DISKETTE                     
// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' RPGSAVE?M5500?'                                  
// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'                                     
// IF DATAI1-RPG DELETE RPG,I1                                                  
// IF DATAI1-RPGOBJ DELETE RPGOBJ,I1                                            
// LOAD $MAINT                                                                  
// FILE UNIT-I1,PACK-PPRPG,RETAIN-999,NAME-RPG                                  
// FILE UNIT-I1,PACK-PPRPG,RETAIN-999,NAME-RPGOBJ                               
// RUN                                                                          
// COPY FROM-#LIBRARY,TO-DISK,LIBRARY-P,NAME-RPG.ALL,FILE-RPG                   
// COPY FROM-#LIBRARY,TO-DISK,LIBRARY-P,NAME-AUTO.ALL,FILE-RPG,ADD-YES          
// IF LOAD-'#RPPPD01,#LIBRARY' COPY FROM-#LIBRARY,TO-DISK,LIBRARY-O,+           
NAME-#RPPPD.ALL,FILE-RPG,ADD-YES                                                
// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-P,NAME-RPG.ALL,FILE-RPGOBJ                 
// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-O,NAME-#RP.ALL,FILE-RPGOBJ,ADD-YES         
// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-O,NAME-#AU.ALL,FILE-RPGOBJ,ADD-YES         
// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-P,NAME-AUTO.ALL,FILE-RPGOBJ,ADD-YES        
// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-R,NAME-@PG.ALL,FILE-RPGOBJ,ADD-YES         
// END                                                                          

0x000…001 0x81
0x001…002 »*«
0x002…003 0x02
0x003…004 0xb8
0x004…03c »THIS PROCEDURE SAVES THE RPG PROGRAM PRODUCT ON DISKETTE«
0x03c…03d 0x15
0x03d…03e 0x96
0x03e…054 »// MEMBER USER1-##MSG2«
0x054…055 0x3a
0x055…056 0xae
0x056…084 »// IF JOBQ-NO IF EVOKED-NO * ' RPGSAVE?M5500?'«
0x084…085 0x22
0x085…086 0xab
0x086…0b1 »// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'«
0x0b1…0b2 0x25
0x0b2…0b3 0x9e
0x0b3…0d1 »// IF DATAI1-RPG DELETE RPG,I1«
0x0d1…0d2 0x32
0x0d2…0d3 0xa4
0x0d3…0f7 »// IF DATAI1-RPGOBJ DELETE RPGOBJ,I1«
0x0f7…0f8 0x2c
0x0f8…0f9 0x8e
0x0f9…107 »// LOAD $MAINT«
0x107…108 0x42
0x108…109 0xae
0x109…137 »// FILE UNIT-I1,PACK-PPRPG,RETAIN-999,NAME-RPG«
0x137…138 0x22
0x138…139 0xb1
0x139…16a »// FILE UNIT-I1,PACK-PPRPG,RETAIN-999,NAME-RPGOBJ«
0x16a…16b 0x1f
0x16b…16c 0x86
0x16c…172 »// RUN«
0x172…173 0x4a
0x173…174 0xbd
0x174…1b1 »// COPY FROM-#LIBRARY,TO-DISK,LIBRARY-P,NAME-RPG.ALL,FILE-RPG«
0x1b1…1b2 0x13
0x1b2…1b3 0xc6
0x1b3…1f9 »// COPY FROM-#LIBRARY,TO-DISK,LIBRARY-P,NAME-AUTO.ALL,FILE-RPG,ADD-YES«
0x1f9…1fa 0x0a
0x1fa…1fb 0xc5
0x1fb…240 »// IF LOAD-'#RPPPD01,#LIBRARY' COPY FROM-#LIBRARY,TO-DISK,LIBRARY-O,+«
0x240…241 0x0b
0x241…242 0xa0
0x242…262 »NAME-#RPPPD.ALL,FILE-RPG,ADD-YES«
0x262…263 0x30
0x263…264 0xbf
0x264…2a3 »// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-P,NAME-RPG.ALL,FILE-RPGOBJ«
0x2a3…2a4 0x11
0x2a4…2a5 0xc7
0x2a5…2ec »// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-O,NAME-#RP.ALL,FILE-RPGOBJ,ADD-YES«
0x2ec…2ed 0x09
0x2ed…2ee 0xc7
0x2ee…335 »// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-O,NAME-#AU.ALL,FILE-RPGOBJ,ADD-YES«
0x335…336 0x09
0x336…337 0xc8
0x337…37f »// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-P,NAME-AUTO.ALL,FILE-RPGOBJ,ADD-YES«
0x37f…380 0x08
0x380…381 0xc7
0x381…3c8 »// COPY FROM-#RPGLIB,TO-DISK,LIBRARY-R,NAME-@PG.ALL,FILE-RPGOBJ,ADD-YES«
0x3c8…3c9 0x09
0x3c9…3ca 0x86
0x3ca…3d0 »// END«
0x3d0…3d1 0x4a
0x3d1…3d2 0x00
0x3d2…3e0 40 40 40 00 07 66 32 00 00 00 00 00 02 00                                                         ┆   ␣ Ã ␣␣␣␣␣ ␣┆
0x3e0…400 00 02 00 03 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 00 00 00 00 00 00 00 00 00 ff   ┆␣ ␣ ␣  ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ␣␣␣␣␣␣␣␣␣ ┆

Reduced view