COMABZF 
COMMON
  
#     COMABZF - STATUS LIST FOR BLANK OR ZERO FILLING AN ITEM. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMABZF #
  
# 
***   COMABZF - STATUS LIST FOR BLANK OR ZERO FILLING AN ITEM.
* 
*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*     COMABZF SETS UP A STATUS LIST FOR THE TYPE OF FILLING 
*     REQUIRED IN AN ITEM.
# 
  
  
      STATUS TYPFILL
        BFILL,                       # BLANK FILL # 
        ZFILL,                       # ZERO FILL #
        LSTFILL;                     # END OF STATUS LIST # 
  
      END  # COMABZF #
  
                                               CONTROL LIST;
