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

⟦f0a9ef8d1⟧

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

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

// IFF DATAF1-#QRYLIB GOTO BLDLIB                                               
DELETE #QRYLIB,F1,REMOVE,,LIBR                                                  
// TAG BLDLIB                                                                   
// LOAD $CNKAN                                                                  
// RUN                                                                          
// LOCAL AREA-SYSTEM                                                            
// IFF ?L'230,1'?/1 GOTO CHKANJI                                                
// ELSE BLDLIBR #QRYLIB,600,35,?2?                                              
// GOTO LOADFILE                                                                
// TAG CHKANJI                                                                  
// IF ?L'67,1'?/1 BLDLIBR #QRYLIB,800,40,?2?                                    
// ELSE BLDLIBR #QRYLIB,350,35,?2?                                              
// TAG LOADFILE                                                                 
// LOAD $MAINT                                                                  
// FILE NAME-QRYLIB,UNIT-I1,PACK-PPQRY,LOCATION-?1?,AUTO-YES                    
// RUN                                                                          
// COPY FROM-DISK,TO-#QRYLIB,FILE-QRYLIB,RETAIN-R,RIP-YES                       
// END                                                                          
// IFF ?CD?/0000 RETURN                                                         
LOGPLD LOAD,QRY36,'#QUDA,#QRYLIB',,'0016,##MSGPL2',,'#LIBRARY,#QRYLIB'          
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'QRYILOD 32'                                 
// LOAD $CNAD                                                                   
// RUN                                                                          

0x000…001 0xa1
0x001…022 »// IFF DATAF1-#QRYLIB GOTO BLDLIB«
0x022…023 0x2f
0x023…024 0x9e
0x024…042 »DELETE #QRYLIB,F1,REMOVE,,LIBR«
0x042…043 0x32
0x043…044 0x8d
0x044…051 »// TAG BLDLIB«
0x051…052 0x43
0x052…053 0x8e
0x053…061 »// LOAD $CNKAN«
0x061…062 0x42
0x062…063 0x86
0x063…069 »// RUN«
0x069…06a 0x4a
0x06a…06b 0x94
0x06b…07f »// LOCAL AREA-SYSTEM«
0x07f…080 0x3c
0x080…081 0xa0
0x081…0a1 »// IFF ?L'230,1'?/1 GOTO CHKANJI«
0x0a1…0a2 0x30
0x0a2…0a3 0xa2
0x0a3…0c5 »// ELSE BLDLIBR #QRYLIB,600,35,?2?«
0x0c5…0c6 0x2e
0x0c6…0c7 0x90
0x0c7…0d7 »// GOTO LOADFILE«
0x0d7…0d8 0x40
0x0d8…0d9 0x8e
0x0d9…0e7 »// TAG CHKANJI«
0x0e7…0e8 0x42
0x0e8…0e9 0xac
0x0e9…115 »// IF ?L'67,1'?/1 BLDLIBR #QRYLIB,800,40,?2?«
0x115…116 0x24
0x116…117 0xa2
0x117…139 »// ELSE BLDLIBR #QRYLIB,350,35,?2?«
0x139…13a 0x2e
0x13a…13b 0x8f
0x13b…14a »// TAG LOADFILE«
0x14a…14b 0x41
0x14b…14c 0x8e
0x14c…15a »// LOAD $MAINT«
0x15a…15b 0x42
0x15b…15c 0xbc
0x15c…198 »// FILE NAME-QRYLIB,UNIT-I1,PACK-PPQRY,LOCATION-?1?,AUTO-YES«
0x198…199 0x14
0x199…19a 0x86
0x19a…1a0 »// RUN«
0x1a0…1a1 0x4a
0x1a1…1a2 0xb9
0x1a2…1db »// COPY FROM-DISK,TO-#QRYLIB,FILE-QRYLIB,RETAIN-R,RIP-YES«
0x1db…1dc 0x17
0x1dc…1dd 0x86
0x1dd…1e3 »// END«
0x1e3…1e4 0x4a
0x1e4…1e5 0x97
0x1e5…1fc »// IFF ?CD?/0000 RETURN«
0x1fc…1fd 0x39
0x1fd…1fe 0xc6
0x1fe…244 »LOGPLD LOAD,QRY36,'#QUDA,#QRYLIB',,'0016,##MSGPL2',,'#LIBRARY,#QRYLIB'«
0x244…245 0x0a
0x245…246 0xaf
0x246…275 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'QRYILOD 32'«
0x275…276 0x21
0x276…277 0x8d
0x277…284 »// LOAD $CNAD«
0x284…285 0x43
0x285…286 0x86
0x286…28c »// RUN«
0x28c…28d 0x4a
0x28d…28e 0x00
0x28e…2a0 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