Define a new table

*
*     DEFINE A NEW TABLE
*
      MOVE 'H'                      TO xxxx-ORG.
      MOVE 'H'                      TO xxxx-METHOD.
      MOVE 'DT'                     TO xxxx-COMMAND.
      CALL 'TBLBASE' USING          TB-PARM
                                    xxxx-COMMAND-AREA
                                    xxxx-DEFINITION-BLOCK.