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

**Defined in:** [[george:source:LOBS-MACROS|LOBS-MACROS]]

**Used in:** [[george:source:LDSTART850|LDSTART850]]

<code - PPCUBS.mac.txt>
 7Y7Y ...[??? PPCUBS SECT FILE FGN 5 DOC 
 7YCQ    [   
 7YXB    #MAC  PPCUBS
 7^C2          MHUNTW  1,FILE,ENT
 7^WL          LDX   0  EALLOC(1)
 82?6 ...      ANDN  0  #77  
 82ML ...      SBN   0  48   
 8346 ...      BPZ   0  M1PPCUBS            [J IF FILE ALLOCATED TO SPECIAL RESID
 83DL ...      JBS   M1PPCUBS,1,BEALLINCS
 83T6          LDX   7  ECOPS(1) 
 84#Q          SRL   7  15   
 84H= ...      INCREAMBS %A,7
 84PQ ...      TESTRPN2 OK,%B               [TO %B IF INCREASE REFUSED   
 84Y= ...      LDN   1  BJOBQ
 856Q ...M2PPCUBS
 85*= ...      LDX   1  FPTR(1)  
 85HQ ...      BXE   1  CXJO,(GEOERR)
 85Q= ...      BXU   0  JOBNUM(1),M2PPCUBS   
 85YQ ...      ADX   7  CUBS(1)  
 867= ...      BXL   7  GUBS(1),M1PPCUBS    [UPDATE GUBS IF OLD VALUE WOULD BE EX
 86*Q ...      STO   7  GUBS(1)  
 86J= ...M1PPCUBS
 86QW          LDX   1  FX1  
 87=G    #NOR
</code>