Store a new generation

*
*     STORE A NEW GENERATION OF A TABLE AND DISPLAY THE NEW
*     GENERATION NUMBER
*
      MOVE 'OW'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  xxxx-GENERATION.
***END OF PROCESSING. SAVE UPDATED TABLE.
 E-O-J.
     MOVE 'ST'                    TO xxxx-COMMAND.
     CALL 'TBLBASE' USING         TB-PARM
                                  xxxx-COMMAND-AREA.
     MOVE 'GD'                    TO xxxx-COMMAND.
     CALL 'TBLBASE' USING         TB-PARM
                                  xxxx-COMMAND-AREA
                                  xxxx-DEFINITION-BLOCK.
     DISPLAY 'GENERATION OF TABLE xxxx CREATED IS ' xxxx-ABS-GEN-NO.
     MOVE 'CL'                    TO xxxx-COMMAND.
     CALL 'TBLBASE' USING         TB-PARM
                                  xxxx-COMMAND-AREA.