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

⟦156ef2d5f⟧

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »RPGLOAD «

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

*  THIS PROCEDURE COPIES THE RPG COMPILER AND AUTO REPORT TO A SEPARATE         
*  LIBRARY '#RPGLIB' ON FIXED DISK FROM DISKETTE BY CALLING RPGILOD AND RPGMRI. 
*  PARAMETER 1 IS DISK SPINDLE PREFERENCE.                                      
*  PARAMETER 2 IS DISKETTE LOCATION.                                            
// MEMBER USER1-##MSGC                                                          
// IF JOBQ-NO IF EVOKED-NO * ' RPGLOAD?M3500?'                                  
// TAG CHKDISK                                                                  
// IF DATAI1-'RPGOBJ,,?2'S1'?' GOTO CALLPROC                                    
// * 3290                                                                       
// #ERR 3291,13,CNFG                                                            
// GOTO CHKDISK                                                                 
// TAG CALLPROC                                                                 
RPGILOD ?2'S1'?,?1?                                                             
// IFF LOAD-'#RP#CPL1,#RPGLIB' GOTO MRI                                         
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'XRPGLOAD50'                                 
// LOAD $CNAD                                                                   
// RUN                                                                          
// RETURN                                                                       
// TAG MRI                                                                      
// PAUSE '?M'3502,1,60'? PPRPG'                                                 
RPGMRI ?2?                                                                      

0x000…001 0x81
0x001…002 »*«
0x002…003 0x02
0x003…004 0xc4
0x004…048 »THIS PROCEDURE COPIES THE RPG COMPILER AND AUTO REPORT TO A SEPARATE«
0x048…049 0x09
0x049…04a 0x81
0x04a…04b »*«
0x04b…04c 0x02
0x04c…04d 0xcd
0x04d…09a »LIBRARY '#RPGLIB' ON FIXED DISK FROM DISKETTE BY CALLING RPGILOD AND RPGMRI. «
0x09a…09b 0x81
0x09b…09c »*«
0x09c…09d 0x02
0x09d…09e 0xa7
0x09e…0c5 »PARAMETER 1 IS DISK SPINDLE PREFERENCE.«
0x0c5…0c6 0x26
0x0c6…0c7 0x81
0x0c7…0c8 »*«
0x0c8…0c9 0x02
0x0c9…0ca 0xa1
0x0ca…0eb »PARAMETER 2 IS DISKETTE LOCATION.«
0x0eb…0ec 0x2c
0x0ec…0ed 0x96
0x0ed…103 »// MEMBER USER1-##MSGC«
0x103…104 0x3a
0x104…105 0xae
0x105…133 »// IF JOBQ-NO IF EVOKED-NO * ' RPGLOAD?M3500?'«
0x133…134 0x22
0x134…135 0x8e
0x135…143 »// TAG CHKDISK«
0x143…144 0x42
0x144…145 0xac
0x145…171 »// IF DATAI1-'RPGOBJ,,?2'S1'?' GOTO CALLPROC«
0x171…172 0x24
0x172…173 0x89
0x173…17c »// * 3290«
0x17c…17d 0x47
0x17d…17e 0x94
0x17e…192 »// #ERR 3291,13,CNFG«
0x192…193 0x3c
0x193…194 0x8f
0x194…1a3 »// GOTO CHKDISK«
0x1a3…1a4 0x41
0x1a4…1a5 0x8f
0x1a5…1b4 »// TAG CALLPROC«
0x1b4…1b5 0x41
0x1b5…1b6 0x93
0x1b6…1c9 »RPGILOD ?2'S1'?,?1?«
0x1c9…1ca 0x3d
0x1ca…1cb 0xa7
0x1cb…1f2 »// IFF LOAD-'#RP#CPL1,#RPGLIB' GOTO MRI«
0x1f2…1f3 0x29
0x1f3…1f4 0xaf
0x1f4…223 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'XRPGLOAD50'«
0x223…224 0x21
0x224…225 0x8d
0x225…232 »// LOAD $CNAD«
0x232…233 0x43
0x233…234 0x86
0x234…23a »// RUN«
0x23a…23b 0x4a
0x23b…23c 0x89
0x23c…245 »// RETURN«
0x245…246 0x47
0x246…247 0x8a
0x247…251 »// TAG MRI«
0x251…252 0x46
0x252…253 0x9f
0x253…272 »// PAUSE '?M'3502,1,60'? PPRPG'«
0x272…273 0x31
0x273…274 0x8a
0x274…27e »RPGMRI ?2?«
0x27e…27f 0x46
0x27f…280 0x00
0x280…2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x3…]

Reduced view