Insert a new row or replace it

*
*     INSERT A NEW ROW OR REPLACE IT IN THE TABLE
*
      MOVE 'IK'                          TO xxxx-COMMAND.
      CALL 'TBLBASE' USING               TB-PARM
                                         xxxx-COMMAND-AREA
                                         xxxx-ROW-AREA.
      IF xxxx-FOUND = 'Y'
*        ROW FOUND SO NOT INSERTED.  REPLACED INSTEAD.
         MOVE 'RC'                       TO xxxx-COMMAND
         CALL 'TBLBASE' USING            TB-PARM
                                         xxxx-COMMAND-AREA
                                         xxxx-ROW-AREA.