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  «

Text Member

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

Full view