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

⟦192023f04⟧ 

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

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

Text Member

***********************************************************                     
*                                                         *                     
*   SEULOAD                                               *                     
*                                                         *                     
*   THIS PROCEDURE COPIES THE SEU PROGRAM PRODUCT FROM    *                     
*   DISKETTE TO FIXED DISK.                               *                     
*                                                         *                     
*   THE ITEMS COPIED ARE:                                 *                     
*                                                         *                     
*     - SEU EXECUTABLE MODULES, MESSAGE AND SCREEN FORMAT *                     
*       MEMBERS ON DISKETTE TO #SEULIB ON DISK            *                     
*     - THE SCREEN FORMAT MEMBER: #SE@XTRA IS COPIED      *                     
*       TO #LIBRARY                                       *                     
*                                                         *                     
*   PARAMETER 1 - DISK PREFERENCE                         *                     
*   PARAMETER 2 - MEDIUM TO COPY FROM                     *                     
*   PARAMETER 3 - LOAD SEU FORMAT SOURCE MEMBERS          *                     
*                                                         *                     
***********************************************************                     
*                                                                               
// MEMBER USER1-##MSGC                                                          
************                                                                    
*          *                                                                    
* COPY SEU *                                                                    
*          *                                                                    
************                                                                    
*                                                                               
// IF JOBQ-NO IF EVOKED-NO * ' SEULOAD?M3500?'                                  
// TAG CHKDISK                                                                  
// IF DATAI1-'SEUMODS,,?2'S1'?' GOTO CALPROC                                    
// * 3290                                                                       
// #ERR 3291,13,CNFG                                                            
// GOTO CHKDISK                                                                 
// TAG CALPROC                                                                  
SEUILOD ?2?,?1?                                                                 
// IFF LOAD-'#SE#M1,#SEULIB' GOTO MRI                                           
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEULOAD 43'                                 
// LOAD $CNAD                                                                   
// RUN                                                                          
// GOTO MRI1                                                                    
// TAG MRI                                                                      
// PAUSE '?M'3502,1,60'? PPUTIL'                                                
****************                                                                
*              *                                                                
* COPY SEU MRI *                                                                
*              *                                                                
****************                                                                
*                                                                               
SEUMRI ?2?,?1?                                                                  
// TAG MRI1                                                                     
// IF ?3?/N GOTO ALLDONE                                                        
// IF ?3?/Y GOTO ADDSEUF                                                        
// * '?M3505?'                                                                  
// IF ?R'3507'?/N GOTO ALLDONE                                                  
// TAG ADDSEUF                                                                  
**********************************                                              
*                                *                                              
* COPY SEU FORMAT SOURCE MEMBERS *                                              
*                                *                                              
**********************************                                              
*                                                                               
SEUFMRI ?2?,?1?,SEULOAD                                                         
// TAG ALLDONE

Full view