Empty a table

*
*     REMOVE ALL ROWS FROM A TABLE
*
      MOVE 'OW'                       TO xxxx-COMMAND.
      CALL 'TBLBASE' USING            TB-PARM
                                      xxxx-COMMAND-AREA.
      MOVE 'MT'                       TO xxxx-COMMAND.
      CALL 'TBLBASE' USING            TB-PARM
                                      xxxx-COMMAND-AREA.
      MOVE 'ST'                       TO xxxx-COMMAND.
      CALL 'TBLBASE' USING            TB-PARM
                                      xxxx-COMMAND-AREA.
      MOVE 'CL'                       TO xxxx-COMMAND.
      CALL 'TBLBASE' USING            TB-PARM
                                      xxxx-COMMAND-AREA.