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

⟦dec26db7a⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »QRYDROP «

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

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' QRYDROP?M5500?'                                  
// IF DATAF1-#QRYLIB DELETE #QRYLIB,F1,REMOVE,,LIBR                             
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE LIBRARY-P,NAME-QRYILOD,RETAIN-S                                       
// DELETE LIBRARY-P,NAME-QRYMRI,RETAIN-S                                        
// DELETE LIBRARY-P,NAME-QRYLOAD,RETAIN-S                                       
// DELETE LIBRARY-P,NAME-QRYSAVE,RETAIN-S                                       
// DELETE LIBRARY-P,NAME-QRYOMRI,RETAIN-S                                       
// DELETE LIBRARY-P,NAME-QRY,RETAIN-S                                           
// DELETE LIBRARY-P,NAME-QRYDE,RETAIN-S                                         
// DELETE LIBRARY-P,NAME-QRYRUN,RETAIN-S                                        
// DELETE LIBRARY-P,NAME-QRYODROP,RETAIN-S                                      
// DELETE LIBRARY-P,NAME-QRYDROP,RETAIN-S                                       
// IF LOAD-'#QRYPD01,#LIBRARY' DELETE LIBRARY-O,NAME-#QRYPD.ALL,RETAIN-S        
// END                                                                          
// IFF ?CD?/0000 RETURN                                                         
LOGPLD DROP,QRY36                                                               
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'QRYDROP 32'                                 
// LOAD $CNDRP                                                                  
// RUN

Full view