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

⟦8ebefcd02⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SDASAVE «

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
    └─⟦059c4c04f⟧ 
        └─⟦this⟧ ».SDASAVE «

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' SDASAVE?M5500?'                                  
// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'                                     
// IF DATAI1-SDA DELETE SDA,I1                                                  
// IF DATAI1-SDALIB DELETE SDALIB,I1                                            
// LOAD $MAINT                                                                  
// FILE UNIT-I1,RETAIN-999,NAME-SDA,PACK-PPUTIL                                 
// FILE UNIT-I1,RETAIN-999,NAME-SDALIB,PACK-PPUTIL                              
// RUN                                                                          
// COPY FROM-#LIBRARY,TO-DISK,FILE-SDA,NAME-SDA.ALL,LIBRARY-P                   
// IF LOAD-'#SAPPD01,#LIBRARY' COPY FROM-#LIBRARY,TO-DISK,LIBRARY-O,+           
NAME-#SAPPD.ALL,FILE-SDA,ADD-YES                                                
// COPY FROM-#SDALIB,TO-DISK,FILE-SDALIB,NAME-ALL,LIBRARY-ALL                   
// END

Full view