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 «

Text Member

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

Full view