COMBBZF 
COMMON
#     COMBBZF - STATUS LIST FOR BLANK OR ZERO FILLING AN ITEM. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBBZF #
  
# 
***   COMBBZF - STATUS LIST FOR BLANK OR ZERO FILLING AN ITEM.
* 
*     COMBBZF 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  # COMBBZF #
  
                                               CONTROL LIST;
