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

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

**Used in:** [[george:source:APPEND864|APPEND864]], [[george:source:REWRITE864|REWRITE864]]

<code - APPCUBS.mac.txt>
 6HQ4 ...[??? APPCUBS SECT FILE FGN 5 DOC
 6H^W    [   
 6JFG    #MAC APPCUBS
 6J^6          SETREP2  OK   
 6KDQ ...      JBS   M2APPCUBS,%B,BACOMM    [J IF OPEN COMMUNALLY
 6KYB ...      JBC   M1APPCUBS,%B,BACUBS    [J IF PUBLIC 
 6LD2          LDX   0  ACOMMUNE1(2) 
 6LXL ...      BZE   0  M2APPCUBS           [GEOERR IF NO BREAK-IN ADDRESS, "ANSW
 6MC=          LDX   0  JOBNO(2) 
 6MWW          LDN   1  BJOBQ
 6NBG    M3APPCUBS   
 6NW6          LDX   1  FPTR(1)  
 6P*Q          BXE   1  CXJO,M2APPCUBS      [JOB NOT FOUND   
 6PTB          BXU   0  JOBNUM(1),M3APPCUBS  
 6SR6          LDN   0  1
 6T=Q          ADS   0  CUBS(1)  
 6W=2          LDX   0  AMBS(1)  
 6WPL          SBX   0  CUBS(1)  
 6X9=          BNG   0  M2APPCUBS           [J IF AMBS EXCEEDED  
 6XNW          LDX   0  CUBS(1)  
 6Y8G          BXL   0  GUBS(1),M1APPCUBS
 6YN6          STO   0  GUBS(1)  
 6^7Q          BRN      M1APPCUBS
 6^MB    M2APPCUBS   
 75JB          DOWN     INCRCUBS,1   
 7642          BRN      %A                  [BREAK-IN
 76HL    M1APPCUBS   
 773=    #NOR
</code>