Delete all generations of a table

*
*     ELIMINATE ALL GENERATIONS OF A TABLE
*
      MOVE 'XT'                   TO xxxx-COMMAND.
      MOVE 'TABLE1'               TO xxxx-TABLE.
      CALL 'TBLBASE' USING        TB-PARM 	
                                  xxxx-COMMAND-AREA
                                  xxxx-PASSWORD.