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

⟦8017b9530⟧

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

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

// MEMBER PROGRAM1-#QU#1M,USER1-#QU#1M,USER2-#QU#2M,LIBRARY-#QRYLIB             
// IF ?64?=QRYRUN GOTO FIXLOOP                                                  
// IF ?1?/ IF ?3?/ IF EVOKED-YES #ERR 1013,C,QRY                                
// IF ?1?/ IF ?3?/ IF JOBQ-YES  #ERR 1013,C,QRY                                 
// IF ?1?/ IF ?3?/ GOTO PROMPT                                                  
// TAG FIXLOOP                                                                  
// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' QRYRUN?M5500?'                                   
// REGION SIZE-48                                                               
// LOAD #QUDA,#QRYLIB                                                           
// RUN                                                                          
// RETURN                                                                       
// TAG PROMPT                                                                   
// HELP QRYRUN,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?                    
* FIXLOOP WILL GET CONTROL WHEN RETURNING FROM THE HELP PROMPT                  
* IF QRYRUN NOT PLACED ON THE JOB QUEUE OR EVOKED                               
*    ISSUE 'QRYRUN PROCEDURE IS RUNNING' MESSAGE                                

0x000…001 0xc3
0x001…044 »// MEMBER PROGRAM1-#QU#1M,USER1-#QU#1M,USER2-#QU#2M,LIBRARY-#QRYLIB«
0x044…045 0x0d
0x045…046 0x9e
0x046…064 »// IF ?64?=QRYRUN GOTO FIXLOOP«
0x064…065 0x32
0x065…066 0xb0
0x066…096 »// IF ?1?/ IF ?3?/ IF EVOKED-YES #ERR 1013,C,QRY«
0x096…097 0x20
0x097…098 0x9e
0x098…0b6 »// IF ?1?/ IF ?3?/ IF JOBQ-YES«
0x0b6…0b7 0x02
0x0b7…0b8 0x8f
0x0b8…0c7 »#ERR 1013,C,QRY«
0x0c7…0c8 0x21
0x0c8…0c9 0x9e
0x0c9…0e7 »// IF ?1?/ IF ?3?/ GOTO PROMPT«
0x0e7…0e8 0x32
0x0e8…0e9 0x8e
0x0e9…0f7 »// TAG FIXLOOP«
0x0f7…0f8 0x42
0x0f8…0f9 0x96
0x0f9…10f »// MEMBER USER1-##MSG2«
0x10f…110 0x3a
0x110…111 0xad
0x111…13e »// IF JOBQ-NO IF EVOKED-NO * ' QRYRUN?M5500?'«
0x13e…13f 0x23
0x13f…140 0x91
0x140…151 »// REGION SIZE-48«
0x151…152 0x3f
0x152…153 0x95
0x153…168 »// LOAD #QUDA,#QRYLIB«
0x168…169 0x3b
0x169…16a 0x86
0x16a…170 »// RUN«
0x170…171 0x4a
0x171…172 0x89
0x172…17b »// RETURN«
0x17b…17c 0x47
0x17c…17d 0x8d
0x17d…18a »// TAG PROMPT«
0x18a…18b 0x43
0x18b…18c 0xbc
0x18c…1c8 »// HELP QRYRUN,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,?11?«
0x1c8…1c9 0x14
0x1c9…1ca 0xbe
0x1ca…208 »* FIXLOOP WILL GET CONTROL WHEN RETURNING FROM THE HELP PROMPT«
0x208…209 0x12
0x209…20a 0xb1
0x20a…23b »* IF QRYRUN NOT PLACED ON THE JOB QUEUE OR EVOKED«
0x23b…23c 0x1f
0x23c…23d 0x81
0x23d…23e »*«
0x23e…23f 0x04
0x23f…240 0xab
0x240…26b »ISSUE 'QRYRUN PROCEDURE IS RUNNING' MESSAGE«
0x26b…26c 0x20
0x26c…26d 0x00
0x26d…280 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff                                          ┆                   ┆
0x280…2a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
          […0x3…]

Reduced view