*COMDECK DLONEL 
    COMMON DLONEL;
      BEGIN 
      ARRAY ONEL S(1);
        BEGIN 
        ITEM ONFIL1 C(0,0,8)      =[" "]; 
        ITEM ONFIL2 U(0,48,12)    =[0]; 
        END 
  
      END                    # DLONEL                                  #
  
