GETACTX

(GIN Macro)

Defined in: COREMACROS

Used in: ACCESS867, ANTIC867, ASSIGN860, DRUM852, IPBINB867, IPBINC865, IPBSCANB867, LISTFIND867, NETOFLNE867, ONLINCL864, ONLINEC867, RESTBLOK850, SCHEDJOB867, SETUP867, SQOPEN867

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