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

⟦2e7eaad3a⟧ 

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

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
    └─⟦41ed29fcc⟧ 
        └─⟦this⟧ ».DFUSAVE «

Text Member

// LIBRARY NAME-#DFULIB                                                         
// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' DFUSAVE?M5500?'                                  
// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'                                     
// IF DATAI1-DFU DELETE DFU,I1                                                  
// IF DATAI1-DFULIB DELETE DFULIB,I1                                            
// LOAD $MAINT                                                                  
// FILE UNIT-I1,PACK-PPUTIL,RETAIN-999,NAME-DFU                                 
// FILE UNIT-I1,PACK-PPUTIL,RETAIN-999,NAME-DFULIB                              
// RUN                                                                          
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-DFUDROP                   
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-DFULOAD,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-DFUILOD,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-DFUMRI,ADD-YES            
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-UPDATE,ADD-YES            
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-INQUIRY,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-LIST,ADD-YES              
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-ENTER,ADD-YES             
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-UPDATE#,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-INQUIRY#,ADD-YES          
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-LIST#,ADD-YES             
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-ENTER#,ADD-YES            
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-DFU,ADD-YES               
// COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-P,NAME-DFUSAVE,ADD-YES           
// IF LOAD-'#DFSPD01,#LIBRARY' +                                                
COPY FROM-#LIBRARY,TO-DISK,FILE-DFU,LIBRARY-O,NAME-#DFSPD.ALL,ADD-YES           
// COPY FROM-#DFULIB,TO-DISK,FILE-DFULIB,LIBRARY-ALL,NAME-ALL                   
// END

Full view