GETCPB

(GIN Macro)

Defined in: MACRO COMPRO

Used in: ALASB867, COMPROA867

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