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

⟦88a96e444⟧ 

    Length: 1536 (0x600)
    Notes: MEMBER_P, Member_Text
    Names: »RPGILOD «

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

Text Member

// IFF DATAF1-#RPGLIB GOTO BLDLIB                                               
DELETE #RPGLIB,F1,REMOVE,,LIBR                                                  
// TAG BLDLIB                                                                   
// LOAD $CNKAN                                                                  
// RUN                                                                          
// LOCAL AREA-SYSTEM                                                            
// IFF ?L'230,1'?/1 GOTO CHKKANJI                                               
// ELSE BLDLIBR #RPGLIB,290,50,?2?                                              
// GOTO LOADFILE                                                                
// TAG CHKKANJI                                                                 
// IF ?L'67,1'?/1 BLDLIBR #RPGLIB,300,50,?2?                                    
// ELSE BLDLIBR #RPGLIB,250,50,?2?                                              
// TAG LOADFILE                                                                 
// LOAD $MAINT                                                                  
// FILE NAME-RPGOBJ,UNIT-I1,PACK-PPRPG,LOCATION-?1?,AUTO-NO                     
// RUN                                                                          
// COPY FROM-DISK,TO-#RPGLIB,FILE-RPGOBJ                                        
// END                                                                          
// IFF ?CD?/0000 RETURN                                                         
// LOAD $MAINT                                                                  
// RUN                                                                          
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG95,NEWNAME-SUBR95,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG01,NEWNAME-SUBR01,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG20,NEWNAME-SUBR20,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG21,NEWNAME-SUBR21,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG22,NEWNAME-SUBR22,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG23,NEWNAME-SUBR23,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG40,NEWNAME-SUBR40,RETAIN-R    
// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG41,NEWNAME-SUBR41,RETAIN-R    
// END                                                                          
LOGPLD LOAD,RPG,'#RPG,#RPGLIB',,'0006,##MSGPL2',,'#LIBRARY,#RPGLIB'             
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'XRPGILOD50'                                 
// LOAD $CNAD                                                                   
// RUN

Full view