Example 1

    Modify a field value in a record:

       DISPLAY "Enter employee's ID number: " WITH NO ADVANCING.
       ACCEPT ID.
       DISPLAY "Enter new status code: " WITH NO ADVANCING.
       ACCEPT STATUS_CODE.

    &RDB&  START_TRANSACTION READ_WRITE

    &RDB&  FOR E IN EMPLOYEES WITH E.EMPLOYEE_ID = ID
    &RDB&    MODIFY E USING
    &RDB&        ON ERROR
                   GO TO ERROR-PAR
    &RDB&        END_ERROR
    &RDB&      E.STATUS_CODE = STATUS_CODE
    &RDB&    END_MODIFY
    &RDB&  END_FOR

    &RDB&  COMMIT