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

⟦ad862bf59⟧ 

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

Derivation

└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
    └─⟦10fd7efe5⟧ 
        └─⟦this⟧ ».SEUMRI  «

Text Member

*********************************************************************           
*                                                                   *           
*  THIS PROCEDURE ADDS THE MACHINE READABLE INFORMATION (MRI)       *           
*  TO #SEULIB.                                                      *           
*  PARAMETER 1 - MEDIUM TO COPY FROM                                *           
*                                                                   *           
*********************************************************************           
*                                                                               
****************                                                                
*              *                                                                
* COPY SEU MRI *                                                                
*              *                                                                
****************                                                                
*                                                                               
// LOAD $MAINT                                                                  
// FILE NAME-SEUMRI,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO                    
// RUN                                                                          
// COPY FROM-DISK,TO-#SEULIB,FILE-SEUMRI                                        
// END                                                                          
****************************************                                        
*                                      *                                        
* COPY SEU SOURCE FORMATS FOR #LIBRARY *                                        
*                                      *                                        
****************************************                                        
*                                                                               
// LOAD $MAINT                                                                  
// FILE NAME-SEUFMRI,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO                   
// RUN                                                                          
// COPY FROM-DISK,TO-#LIBRARY,FILE-SEUFMRI,RETAIN-R                             
// END                                                                          
********************                                                            
*                  *                                                            
* SET CNFIG RECORD *                                                            
*                  *                                                            
********************                                                            
*                                                                               
// IFF ?CD?/0000 RETURN                                                         
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUMRI  43'                                 
// LOAD $CNAD                                                                   
// RUN

Full view