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 « 

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

0x000…001 0x96
0x001…017 »// MEMBER USER1-##MSG2«
0x017…018 0x3a
0x018…019 0xae
0x019…047 »// IF JOBQ-NO IF EVOKED-NO * ' QRYDROP?M5500?'«
0x047…048 0x22
0x048…049 0xb3
0x049…07c »// IF DATAF1-#QRYLIB DELETE #QRYLIB,F1,REMOVE,,LIBR«
0x07c…07d 0x1d
0x07d…07e 0x8e
0x07e…08c »// LOAD $MAINT«
0x08c…08d 0x42
0x08d…08e 0x86
0x08e…094 »// RUN«
0x094…095 0x4a
0x095…096 0xa9
0x096…0bf »// DELETE LIBRARY-P,NAME-QRYILOD,RETAIN-S«
0x0bf…0c0 0x27
0x0c0…0c1 0xa8
0x0c1…0e9 »// DELETE LIBRARY-P,NAME-QRYMRI,RETAIN-S«
0x0e9…0ea 0x28
0x0ea…0eb 0xa9
0x0eb…114 »// DELETE LIBRARY-P,NAME-QRYLOAD,RETAIN-S«
0x114…115 0x27
0x115…116 0xa9
0x116…13f »// DELETE LIBRARY-P,NAME-QRYSAVE,RETAIN-S«
0x13f…140 0x27
0x140…141 0xa9
0x141…16a »// DELETE LIBRARY-P,NAME-QRYOMRI,RETAIN-S«
0x16a…16b 0x27
0x16b…16c 0xa5
0x16c…191 »// DELETE LIBRARY-P,NAME-QRY,RETAIN-S«
0x191…192 0x2b
0x192…193 0xa7
0x193…1ba »// DELETE LIBRARY-P,NAME-QRYDE,RETAIN-S«
0x1ba…1bb 0x29
0x1bb…1bc 0xa8
0x1bc…1e4 »// DELETE LIBRARY-P,NAME-QRYRUN,RETAIN-S«
0x1e4…1e5 0x28
0x1e5…1e6 0xaa
0x1e6…210 »// DELETE LIBRARY-P,NAME-QRYODROP,RETAIN-S«
0x210…211 0x26
0x211…212 0xa9
0x212…23b »// DELETE LIBRARY-P,NAME-QRYDROP,RETAIN-S«
0x23b…23c 0x27
0x23c…23d 0xc8
0x23d…285 »// IF LOAD-'#QRYPD01,#LIBRARY' DELETE LIBRARY-O,NAME-#QRYPD.ALL,RETAIN-S«
0x285…286 0x08
0x286…287 0x86
0x287…28d »// END«
0x28d…28e 0x4a
0x28e…28f 0x97
0x28f…2a6 »// IFF ?CD?/0000 RETURN«
0x2a6…2a7 0x39
0x2a7…2a8 0x91
0x2a8…2b9 »LOGPLD DROP,QRY36«
0x2b9…2ba 0x3f
0x2ba…2bb 0xaf
0x2bb…2ea »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'QRYDROP 32'«
0x2ea…2eb 0x21
0x2eb…2ec 0x8e
0x2ec…2fa »// LOAD $CNDRP«
0x2fa…2fb 0x42
0x2fb…2fc 0x86
0x2fc…302 »// RUN«
0x302…303 0x4a
0x303…304 0x00
0x304…320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00               ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x320…340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x6…]

Reduced view