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 «

Text Member

*  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

Full view