CLEANEND

(GIN Macro)

Defined in: MACRO COMPRO

Used in: LOGOUT867

CLEANEND.mac.txt

 =WCJ ...[??? CLEANEND SECT CENT FGN 21 DOC  
 =WMB    [   
 =X72    [ THIS MACRO CLEANS UP TO LEVEL ZERO (USED IN LOGOUT)   
 =XLL    [     AND SETS CPLEV ACCORDINGLY.   
 =Y6=    #MAC  CLEANEND  
 =YKW          LDX   2  FX2  
 =^5G          STOZ     CPLEV(2) 
 =^K6          LDCT  0  #010 
 ?24Q          STO   0  EXT+3(2) 
 ?2JB          DOWN     CLEAN,1  
 ?2MG ...      MHUNTW   2,CPB,CALAS  
 ?2QL ...      NGN   0  1
 ?2TQ ...      STO   0  APARAFIR(2)  
 ?2YW ...      LDX   2  FX2  
 ?342    #NOR