SJCHAINY [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

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

<code - SJCHAINY.mac.txt>
 3DPQ ...[??? SJCHAINY SECT CENT FGN 7 DOC   
 3DPW ...#   
 3DQ6 ...#   
 3DQB ...#MAC  SJCHAINY  
 3DQC ...      FSHCODE  B,MFSHBNOLINK
 3DQD ...(   
 3DQF ...      CHAIN    %A,FX2   
 3DQG ... MOD  LDX   1  JWAITER,%A   
 3DQH ...      LDN   0  FSHNOID  
 3DQJ ...      BNZ   1  MSJNOAUT 
 3DQK ...      ADN   0  FSHZAUT+FSHZSUP  
 3DQL ...MSJNOAUT
 3DQM ...      LDN   2  GMON+JRNAL   
 3DQN ...      SLL   2  12   
 3DQP ...      LDX   1  FX1  
 3DQQ ...      TRANSBEX FSHNOID,MSJLINK(1),2,ACOMMUNE3,MFSHBNOLINK   
 3DQR ...      BRN      MSJCHAIN2
 3DQS ...MSJLINK 
 3DQT ...      LINK     SJLOOP,2 
 3DQW ...MFSHBNOLINK 
 3DQX ...)   
 3DQY ...      CHAIN    %A,BSJC+BPTR 
 3DQ^ ...      STARTACT SJ   
 3DR6 ... MOD  LDX   0  JWAITER,%A   
 3DRB ...      BZE   0  MSJCHAIN2
 3DRL ...      COOR1 
 3DRW ...MSJCHAIN2   
 3DS6 ...      LDX   1  FX1  
 3DSB ...      LDX   2  FX2  
 3DSL ...#NOR
</code>