IPBINOPID

(GIN Macro)
Defined in: MACS IPB
IPBINOPID.mac.txt
 6J^6    [???  IPBINOPID  SECT  COMM  FGN 1  DOC 
 6KDQ    [   
 6KYB    [   THIS MACRO DECIDES IF IDENTIFIER ON WHICH A JOB IS BEING RUN HAS GON
 6LD2    [   
 6LXL    [   INOPERABLE. IF NOT EXITS. IF IDENTIFIER IS INOPERABLE THEN DOWN TO  
 6MC=    [   IPBMOPB ENTRY POINT 1 WHICH WILL CRASH CLOSE AND RE-OPEN.   
 6MWW    [   
 6NBG    #MAC  IPBINOPID 
 6NW6          LDCH  0  JSOURCE1(2)         [ON ENTRY X2 PTS TO CPAT 
 6P*Q          SBN   0  #30  
 6PTB          BNZ   0  MIPBEX             [J. NOT IPB.  
 6Q*2          MHUNTW   2,AMXOR,ADCB        [HUNT IDENT INFO. BLOCK  
 6QSL          LDX   0  ISTATUS(2)          [TEST STATUS 
 6R#=          BPZ   0  MIPBEX   
 6RRW          DOWN     IPBMOPB,1           [GO DOWN TO IPBMOPB  REENTRY IS VIA  
 6S?G                                        [MULTIPLX K4 ENTRY POINT
 6SR6    MIPBEX  
 6T=Q          LDX   2  FX2  
 6TQB          LDX   1  FX1  
 6W=2    #NOR