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

⟦6f984365f⟧

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

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

*   THIS PROCEDURE COPIES THE QUERY PROGRAM PRODUCT FROM DISKETTE TO            
*   DISK.  #QRYLIB CONTAINS QUERY EXECUTABLE MODULES, MESSAGE AND               
*   SCREEN FORMAT MEMBERS                                                       
*     - PARAMETER 1 IS DISK SPINDLE PREFERENCE                                  
*     - PARAMETER 2 IS DISKETTE LOCATION                                        
// MEMBER USER1-##MSGC                                                          
// IF JOBQ-NO IF EVOKED-NO * ' QRYLOAD?M3500?'                                  
// TAG CHKDISK                                                                  
// IF DATAI1-'QRYLIB,,?2'S1'?' GOTO CALPROC                                     
// * 3290                                                                       
// #ERR 3291,13,CNFG                                                            
// GOTO CHKDISK                                                                 
// TAG CALPROC                                                                  
QRYILOD ?2'S1'?,?1?                                                             
// IFF LOAD-'#QU#1M,#QRYLIB' GOTO MRI                                           
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'QRYLOAD 32'                                 
// LOAD $CNAD                                                                   
// RUN                                                                          
// RETURN                                                                       
// TAG MRI                                                                      
// PAUSE '?M'3502,1,60'? PPQRY'                                                 
QRYMRI ?2?                                                                      

0x000…001 0x81
0x001…002 »*«
0x002…003 0x03
0x003…004 0xc0
0x004…044 »THIS PROCEDURE COPIES THE QUERY PROGRAM PRODUCT FROM DISKETTE TO«
0x044…045 0x0c
0x045…046 0x81
0x046…047 »*«
0x047…048 0x03
0x048…049 0x85
0x049…04e »DISK.«
0x04e…04f 0x02
0x04f…050 0xb6
0x050…086 »#QRYLIB CONTAINS QUERY EXECUTABLE MODULES, MESSAGE AND«
0x086…087 0x0f
0x087…088 0x81
0x088…089 »*«
0x089…08a 0x03
0x08a…08b 0x95
0x08b…0a0 »SCREEN FORMAT MEMBERS«
0x0a0…0a1 0x37
0x0a1…0a2 0x81
0x0a2…0a3 »*«
0x0a3…0a4 0x05
0x0a4…0a5 0xa8
0x0a5…0cd »- PARAMETER 1 IS DISK SPINDLE PREFERENCE«
0x0cd…0ce 0x22
0x0ce…0cf 0x81
0x0cf…0d0 »*«
0x0d0…0d1 0x05
0x0d1…0d2 0xa2
0x0d2…0f4 »- PARAMETER 2 IS DISKETTE LOCATION«
0x0f4…0f5 0x28
0x0f5…0f6 0x96
0x0f6…10c »// MEMBER USER1-##MSGC«
0x10c…10d 0x3a
0x10d…10e 0xae
0x10e…13c »// IF JOBQ-NO IF EVOKED-NO * ' QRYLOAD?M3500?'«
0x13c…13d 0x22
0x13d…13e 0x8e
0x13e…14c »// TAG CHKDISK«
0x14c…14d 0x42
0x14d…14e 0xab
0x14e…179 »// IF DATAI1-'QRYLIB,,?2'S1'?' GOTO CALPROC«
0x179…17a 0x25
0x17a…17b 0x89
0x17b…184 »// * 3290«
0x184…185 0x47
0x185…186 0x94
0x186…19a »// #ERR 3291,13,CNFG«
0x19a…19b 0x3c
0x19b…19c 0x8f
0x19c…1ab »// GOTO CHKDISK«
0x1ab…1ac 0x41
0x1ac…1ad 0x8e
0x1ad…1bb »// TAG CALPROC«
0x1bb…1bc 0x42
0x1bc…1bd 0x93
0x1bd…1d0 »QRYILOD ?2'S1'?,?1?«
0x1d0…1d1 0x3d
0x1d1…1d2 0xa5
0x1d2…1f7 »// IFF LOAD-'#QU#1M,#QRYLIB' GOTO MRI«
0x1f7…1f8 0x2b
0x1f8…1f9 0xaf
0x1f9…228 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'QRYLOAD 32'«
0x228…229 0x21
0x229…22a 0x8d
0x22a…237 »// LOAD $CNAD«
0x237…238 0x43
0x238…239 0x86
0x239…23f »// RUN«
0x23f…240 0x4a
0x240…241 0x89
0x241…24a »// RETURN«
0x24a…24b 0x47
0x24b…24c 0x8a
0x24c…256 »// TAG MRI«
0x256…257 0x46
0x257…258 0x9f
0x258…277 »// PAUSE '?M'3502,1,60'? PPQRY'«
0x277…278 0x31
0x278…279 0x8a
0x279…283 »QRYMRI ?2?«
0x283…284 0x46
0x284…285 0x00
0x285…2a0 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                  ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x2a0…2c0 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   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x2…]

Reduced view