GETACTOP [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: GETACTOP)}}
====== GETACTOP ======
(GIN Macro)

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CONSOLE867|CONSOLE867]], [[george:source:ENGAGE867|ENGAGE867]], [[george:source:PERFLOGS866|PERFLOGS866]]

<code - GETACTOP.mac.txt>
 ?#54 ...[??? GETACTOP SECT CENT FGN 32 DOC  
 ?##W    #   
 ?#SG    #MAC  GETACTOP  
 ?*#6    #STR  %C
 ?*RQ          GETCORAL %CLEN+%BLEN,N,HACTY+0%D:0
 ?B?B    #STR  %C
 ?BR2    #SKI
 ?C=L          GETCORAL %BLEN,N,HACTY+0%D:0  
 ?CQ=          BRN      MGET 
 ?D9W          BRN      %A   
 ?DPG    MGET  FINDCORE 1
 ?F96          NAME     1,%B,%C  
 ?FNQ          ADN   1  ACTRING  
 ?G8B          ENRING   1,ACTRING+BPTR(2)
 ?GN2          CHAIN    FPTR(2),BPTR(2)  
 ?GT8 ...#UNS  ICT   
 ?H2B ...      APGA  %B,%C   
 ?H7L    #NOR
</code>