*DECK CUGBATX 
      PRGM CUGBATX; 
      CONTROL STEXT;
# *CALL CUGBADCLS # 
*CALL CUGBADCLS 
      TERM
