Rename a table

*
*     RENAME ALL GENERATIONS OF A TABLE
*
      MOVE 'RN'                   TO xxxx-COMMAND.
      MOVE 'NEWNAME'              TO NEW-TABLE-NAME.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  NEW-TABLE-NAME.
                                  XXXX-PASSWORD.