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 «

Text Member

*  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?

Full view