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

⟦53db8e875⟧ 

    Length: 1792 (0x700)
    Notes: MEMBER_P, Member_Text
    Names: »SEUSAVE «

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

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' SEUSAVE?M5500?'                                  
// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'                                     
// IF DATAI1-SEU DELETE SEU,I1                                                  
// IF DATAI1-SEUFMRI DELETE SEUFMRI,I1                                          
// IF DATAI1-SEUMODS DELETE SEUMODS,I1                                          
// LOAD $MAINT                                                                  
// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEU                                 
// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUMODS                             
// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUFMRI                             
// FILE PACK-PPUTIL,UNIT-I1,RETAIN-999,NAME-SEUFSMRI                            
// RUN                                                                          
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEU,LIBRARY-P                       
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUDROP,LIBRARY-P,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUFDROP,LIBRARY-P,ADD-YES          
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUFMRI,LIBRARY-P,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUILOD,LIBRARY-P,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEULOAD,LIBRARY-P,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUMRI,LIBRARY-P,ADD-YES            
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEU,NAME-SEUSAVE,LIBRARY-P,ADD-YES           
// IF LOAD-'#SESPD01,#LIBRARY' COPY FROM-#LIBRARY,TO-DISK,LIBRARY-O,+           
NAME-#SESPD.ALL,FILE-SEU,ADD-YES                                                
// COPY FROM-#LIBRARY,TO-DISK,FILE-SEUFMRI,NAME-#SE.ALL,LIBRARY-O               
// COPY FROM-#SEULIB,TO-DISK,FILE-SEUMODS,NAME-#SE.ALL,LIBRARY-O                
// COPY FROM-#SEULIB,TO-DISK,FILE-SEUMODS,NAME-ALL,LIBRARY-P,ADD-YES            
// IF ?L'230,1'?/1 IFF SOURCE-'#SE$XTRA,#SEULIB' GOTO CONTIN                    
// IFF ?L'230,1'?/1 IFF SOURCE-'#SE@XTRA,#SEULIB' GOTO CONTIN                   
// COPY FROM-#SEULIB,TO-DISK,FILE-SEUFSMRI,NAME-#SE.ALL,LIBRARY-S               
// TAG CONTIN                                                                   
// END

Full view