RDOHELP72.HLB  —  RSE  Examples  relation-clause
    Example 1

    Use ERASE:

    RDO> FOR E IN EMPLOYEES WITH E.EMPLOYEE_ID = "00334"
    cont> ERASE E
    cont> END_FOR

    Example 2

    Use MODIFY:

    &RDB&  FOR SH IN SALARY_HISTORY
    &RDB&        WITH SH.EMPLOYEE_ID = ID-NUMBER
    &RDB&        AND SH.SALARY_END MISSING
    &RDB&        MODIFY SH USING
    &RDB&          SH.SALARY_AMOUNT =
    &RDB&          ( SH.SALARY_AMOUNT + ( 1000 * RATING ) )
    &RDB&        END_MODIFY
    &RDB&      END_FOR

    Example 3

    Use STORE:

    &RDB&  STORE D IN DEPARTMENTS USING
    &RDB&          D.DEPARTMENT_NAME = "Recreation";
    &RDB&          D.DEPARTMENT_CODE = "RECR";
    &RDB&          D.MANAGER_ID = "00445"
    &RDB&      END_STORE

    Example 4

    Use two record streams:

    &RDB&  FOR E IN EMPLOYEES CROSS
    &RDB&        J IN JOB_HISTORY WITH
    &RDB&        E.EMPLOYEE_ID = J.EMPLOYEE_ID
Close Help