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

⟦e5351f305⟧ 

    Length: 1280 (0x500)
    Notes: MEMBER_P, Member_Text
    Names: »QRYSAVE «

Derivation

└─⟦631246a38⟧ Bits:30009808 REF.NO PWG83 PGM 5727-QU6 FEAT9074 QUERY/36 DA Z250-0037-2 REL/LEV 05.01 SEQ. 1/3 DISKET 2S 96TPI INTERNAL 88.01.08 31
    └─⟦625cdda84⟧ 
        └─⟦this⟧ ».QRYSAVE «

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' QRYSAVE?M5500?'                                  
// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'                                     
// IF DATAI1-QRY DELETE QRY,I1                                                  
// IF DATAI1-QRYLIB DELETE QRYLIB,I1                                            
// LOAD $MAINT                                                                  
// FILE UNIT-I1,PACK-PPQRY,RETAIN-999,NAME-QRY                                  
// FILE UNIT-I1,PACK-PPQRY,RETAIN-999,NAME-QRYLIB                               
// RUN                                                                          
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRY                       
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYDE,ADD-YES             
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYDROP,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYILOD,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYLOAD,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYMRI,ADD-YES            
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYODROP,ADD-YES          
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYOMRI,ADD-YES           
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYRUN,ADD-YES            
// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYSAVE,ADD-YES           
// IF LOAD-'#QRYPD01,#LIBRARY' +                                                
COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-O,NAME-#QRYPD.ALL,ADD-YES           
// COPY FROM-#QRYLIB,TO-DISK,FILE-QRYLIB,LIBRARY-ALL,NAME-ALL                   
// END

Full view