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

**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]

**Used in:** [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:ENWELL867|ENWELL867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:SCHDJOBA867|SCHDJOBA867]]

<code - JWELLADD.mac.txt>
 229S ...[??? JWELLADD SECT CENT FGN 72 DOC  
 22FL    #MAC  JWELLADD  
 22LS ...#STR  NCAND,%A  
 22S2 ...(   
 22^=    #STR  LIVE,%A   
 23DW    (   
 23YG    #STR  WELL,%A   
 24D6    (   
 24XQ    ! PARAMS TO JWELLADD NOT VALID  
 25CB    #EXI
 25X2    )   
 26BL          LDN   0  JWELLONE 
 26W=    )   
 27*W    #STR  WELL,%A   
 27TG          LDN   0  1
 28*6          SMO      FX2  
 28SQ          STO   0  ACOMMUNE2
 28^Y ...      SMO      FX2  
 2976 ...      STOZ     ACOMMUNE3
 29#B    #STR  SUB,%B
 29S2    (   
 2=?L          DOWN     JWUPDATE,1   
 2=R=    #EXI
 2?=W    )   
 2?QG          DOWN     JWUPDATE,2   
 2?SD ...#EXI
 2?WB ...)   
 2?Y# ...      LDX   2  FX2  
 2#2= ...      STOZ     ACOMMUNE2(2) 
 2#48 ...      NGN   0  1
 2#66 ...      STO   0  ACOMMUNE3(2) 
 2#84 ...      DOWN     JWUPDATE,1   
 2#=6    #NOR
</code>