Copy a table from one tableBASE library to another

*
*     DIVERT THE MOST RECENT GENERATION OF A TABLE FROM
*     ONE TABLEBASE LIBRARY TO ANOTHER
*
      MOVE 'OW'                    TO xxxx-COMMAND.
      CALL 'TBLBASE' USING         TB-PARM
                                   xxxx-COMMAND-AREA
                                   xxxx-PASSWORD
                                   xxxx-GENERATION.

      MOVE 'DV'                    TO xxxx-COMMAND.
      MOVE 'NEWLIB'                TO NEW-LIBNAME.
	  
      CALL 'TBLBASE' USING         TB-PARM
                                   xxxx-COMMAND-AREA
                                   NEW-LIBNAME.

      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.