{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: IPBINOPID)}}
====== IPBINOPID ======
(GIN Macro)

**Defined in:** [[george:source:MACS_IPB|MACS IPB]]

**Used in:** [[george:source:INITJOB867|INITJOB867]]

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