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

**Defined in:** [[george:source:MACROS_SHFS|MACROS SHFS]]

**Used in:** [[george:source:LISTFIND867|LISTFIND867]], [[george:source:RETURNA867|RETURNA867]]

<code - TRANSACT.mac.txt>
 95H=    [???  TRANSACT SECT FILE FGN 1 DOC  
 962W    #MAC  TRANSACT  
 96GG          LDX   2  FX2  
 9726          CALL  1  M1TRANSACT   
 97FQ          LINK     %A,%B
 97^B    M1TRANSACT  
 98F2          LDX   0  0(1) 
 98YL          STO   0  ACOMMUNE3(2) 
 99D=          LDN   4  0
 99XW    #STR  %E
 9=CG    (   
 9=X6          BS       2,FSHALIEN   
 9?BQ          ORN   4  1
 9?WB    )   
 9#B2    #STR  %E
 9#TL    #STR
 9**=    (   
 9*SW          NOTALIEN M2TRANSACT,2 
 9B#G          ORN   4  1
 9BS6    M2TRANSACT  
 9C?Q    )   
 9CRB          TRANSBEG FSHTRANSACT,FSHTRANC,3,%C,%D,ACOMMUNE1,%F,GETACT 
 9D?2    #NOR
</code>