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

**Defined in:** [[george:source:MACROS_VB|MACROS VB]]

**Used in:** [[george:source:MEXTSJ70|MEXTSJ70]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:SJMESS867|SJMESS867]]

<code - SJCHAIN.mac.txt>
 2N8Y ...[??? SJCHAIN SECT CENT FGN 7 DOC
 2NDQ    #   
 2NYB    #   
 2PD2    #MAC  SJCHAIN   
 2PXL          LDX   2  %A   
 2QC=          LDN   0  #41  
 2QWW          STO   0  JRECHEAD2(2) 
 2QXG ...      FSHCODE  AORB 
 2QY6 ...(   
 2QYQ ...      LDCT  1  2
 2Q^B ...      FSHCODE  A,MFSHAFORCE 
 2R22 ...(   
 2R2L ...      NOTALIEN MFSHAHOME,FX2
 2R3= ...      ORS   1  JCATS(2) 
 2R3W ...      BRN      MFSHAFORCE   
 2R4G ...MFSHAHOME   
 2R56 ...      ORS   1  JCATS(2) 
 2R5Q ...      ERS   1  JCATS(2) 
 2R6B ...MFSHAFORCE  
 2R72 ...)   
 2R7L ...      FSHCODE  B,MFSHBFORCE 
 2R8= ...(   
 2R8W ...      NOTALIEN MFSHBHOME,FX2
 2R9G ...      ORS   1  JCATS(2) 
 2R=6 ...      ERS   1  JCATS(2) 
 2R=Q ...      BRN      MFSHBFORCE   
 2R?B ...MFSHBHOME   
 2R#2 ...      ORS   1  JCATS(2) 
 2R#L ...MFSHBFORCE  
 2R*= ...)   
 2R*W ...)   
 2RBG    #STR  PACKED,%C 
 2RW6    (   
 2S*Q          LDCT  0  #40  
 2STB          ANDX  0  JCATS(2) 
 2T*2          BNZ   0  MSJCHAIN1
 2TSL          LDN   0  3
 2W#=          ANDX  0  %B   
 2WRW          BZE   0  MSJCHAIN1
 2X?G          SLL   2  2
 2XR6          ADX   2  %B   
 2Y=Q          SRC   2  2
 2YQB          ADN   2  JMESSAGE 
 2^=2          LDN   1  ACES 
 2^PL          SBN   0  4
 329=          NGX   0  0
 32NW          SMO      0
 338G          MVCH  1  0
 33N6          ADX   0  %B   
 347Q          BRN      MSJCHAIN3
 34MB    MSJCHAIN1   
 3572    )   
 35LL          LDX   0  %B   
 366=    #STR  PACKED,%C 
 36KW    MSJCHAIN3   
 375G          SRA   0  2
 37K6          ADN   0  JMESSAGE-JRECHEAD1+1 
 384Q    #STR  PACKED,%C 
 38JB          LDX   2  %A   
 3942          STO   0  JRECHEAD1(2) 
 39HL          SBN   0  JCATS-JRECHEAD1+1
 3=3=          ADN   2  JCATS
 3=GW          SMO      0
 3?2G          SUM   1  0
 3?G6          SMO      0
 3?^Q          NGS   1  0(2) 
 3#FB ...      SJCHAINY %A   
 3DBB    #NOR
</code>