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

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:ANTIC867|ANTIC867]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:DRUM852|DRUM852]], [[george:source:IPBINB867|IPBINB867]], [[george:source:IPBINC865|IPBINC865]], [[george:source:IPBSCANB867|IPBSCANB867]], [[george:source:LISTFIND867|LISTFIND867]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:RESTBLOK850|RESTBLOK850]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SETUP867|SETUP867]], [[george:source:SQOPEN867|SQOPEN867]]

<code - GETACTX.mac.txt>
 ?HCD ...[??? GETACTX SECT CENT FGN 32 DOC   
 ?HM=    #   
 ?J6W    #MAC  GETACTX   
 ?JLG          GETCORAL %B,X,HMANDAT+HACTY+0%C:0 
 ?K66          FINDCORE 1
 ?KKQ          STO   %A ATYPE(1) 
 ?L5B          ADN   1  ACTRING  
 ?LK2          ENRING   1,ACTRING+BPTR(2)
 ?M4L          CHAIN    FPTR(2),BPTR(2)  
 ?M9S ...#UNS  ICT   
 ?MC2 ...      APGAX  %A 
 ?MJ=    #NOR
</code>