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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:ALASB867|ALASB867]], [[george:source:COMPROA867|COMPROA867]]

<code - GETCPB.mac.txt>
 F^YS ...[??? GETCPB SECT CENT FGN 21 DOC
 G28L    #MAC  GETCPB
 G2N=          SETNCORE +AVELINE+APB,%A,CPB,CALAS
 G37W          STOZ     A1(%A)   
 G3MG          LDN   6  A1(%A)   
 G476          LDN   7  A1+1(%A) 
 G4LQ          MOVE  6  APB-1
 G56B          NGN   7  1
 G5L2          STO   7  APARAFIR(%A) 
 G65L    #NOR
</code>