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 « 

// 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                                                                          

0x000…001 0x96
0x001…017 »// MEMBER USER1-##MSG2«
0x017…018 0x3a
0x018…019 0xae
0x019…047 »// IF JOBQ-NO IF EVOKED-NO * ' QRYSAVE?M5500?'«
0x047…048 0x22
0x048…049 0xab
0x049…074 »// IF JOBQ-NO IF EVOKED-NO PAUSE ' ?M2196?'«
0x074…075 0x25
0x075…076 0x9e
0x076…094 »// IF DATAI1-QRY DELETE QRY,I1«
0x094…095 0x32
0x095…096 0xa4
0x096…0ba »// IF DATAI1-QRYLIB DELETE QRYLIB,I1«
0x0ba…0bb 0x2c
0x0bb…0bc 0x8e
0x0bc…0ca »// LOAD $MAINT«
0x0ca…0cb 0x42
0x0cb…0cc 0xae
0x0cc…0fa »// FILE UNIT-I1,PACK-PPQRY,RETAIN-999,NAME-QRY«
0x0fa…0fb 0x22
0x0fb…0fc 0xb1
0x0fc…12d »// FILE UNIT-I1,PACK-PPQRY,RETAIN-999,NAME-QRYLIB«
0x12d…12e 0x1f
0x12e…12f 0x86
0x12f…135 »// RUN«
0x135…136 0x4a
0x136…137 0xb9
0x137…170 »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRY«
0x170…171 0x17
0x171…172 0xc3
0x172…1b5 »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYDE,ADD-YES«
0x1b5…1b6 0x0d
0x1b6…1b7 0xc5
0x1b7…1fc »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYDROP,ADD-YES«
0x1fc…1fd 0x0b
0x1fd…1fe 0xc5
0x1fe…243 »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYILOD,ADD-YES«
0x243…244 0x0b
0x244…245 0xc5
0x245…28a »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYLOAD,ADD-YES«
0x28a…28b 0x0b
0x28b…28c 0xc4
0x28c…2d0 »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYMRI,ADD-YES«
0x2d0…2d1 0x0c
0x2d1…2d2 0xc6
0x2d2…318 »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYODROP,ADD-YES«
0x318…319 0x0a
0x319…31a 0xc5
0x31a…35f »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYOMRI,ADD-YES«
0x35f…360 0x0b
0x360…361 0xc4
0x361…3a5 »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYRUN,ADD-YES«
0x3a5…3a6 0x0c
0x3a6…3a7 0xc5
0x3a7…3ec »// COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-P,NAME-QRYSAVE,ADD-YES«
0x3ec…3ed 0x0b
0x3ed…3ee 0xa0
0x3ee…40e »// IF LOAD-'#QRYPD01,#LIBRARY' +«
0x40e…40f 0x30
0x40f…410 0xc5
0x410…455 »COPY FROM-#LIBRARY,TO-DISK,FILE-QRY,LIBRARY-O,NAME-#QRYPD.ALL,ADD-YES«
0x455…456 0x0b
0x456…457 0xbd
0x457…494 »// COPY FROM-#QRYLIB,TO-DISK,FILE-QRYLIB,LIBRARY-ALL,NAME-ALL«
0x494…495 0x13
0x495…496 0x86
0x496…49c »// END«
0x49c…49d 0x4a
0x49d…49e 0x00
0x49e…4a0 e3 c1                                                                                             ┆TA┆
0x4a0…4c0 c9 f1 60 d8 d9 e8 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 d8 d9 e8 d3 c9 c2 6b c9 f1 2c 8e 61 61 40 d3   ┆I1-QRYLIB DELETE QRYLIB,I1 þ// L┆
0x4c0…4e0 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 ae 61 61 40 c6 c9 d3 c5 40 e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2   ┆OAD $MAINTâÞ// FILE UNIT-I1,PACK┆
0x4e0…500 60 d7 d7 d8 d9 e8 6b d9 c5 e3 c1 c9 d5 60 f9 f9 f9 6b d5 c1 d4 c5 60 d8 d9 e8 22 b1 61 61 40 c6   ┆-PPQRY,RETAIN-999,NAME-QRY £// F┆

Reduced view