Technical data

Example 8–6 (Cont.) Creating New Record Relationships
MOVE 07000 TO EMP_ID.
MOVE "NEILS" TO EMP_LAST_NAME.
MOVE "ALBERT" TO EMP_FIRST_NAME.
MOVE 7777777 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 05000 TO EMP_ID.
MOVE "KLEIN" TO EMP_LAST_NAME.
MOVE "DON" TO EMP_FIRST_NAME.
MOVE 8888888 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 02000 TO EMP_ID.
MOVE "DEANE" TO EMP_LAST_NAME.
MOVE "FRANK" TO EMP_FIRST_NAME.
MOVE 9999999 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 01400 TO EMP_ID.
MOVE "RILEY" TO EMP_LAST_NAME.
MOVE "GEORGE" TO EMP_FIRST_NAME.
MOVE 1234567 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 05500 TO EMP_ID.
MOVE "BAKER" TO EMP_LAST_NAME.
MOVE "DOUGH" TO EMP_FIRST_NAME.
MOVE 7654321 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 07400 TO EMP_ID.
MOVE "FIFER" TO EMP_LAST-NAME.
MOVE "MIKE" TO EMP_FIRST_NAME.
MOVE 1212121 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
A200-CONNECTING-TO-CONSISTS-OF.
MOVE 10500 TO EMP_ID.
FIND FIRST EMPLOYEE WITHIN ALL_EMPLOYEES USING EMP_ID.
MOVE "A" TO GROUP_NAME.
STORE WK_GROUP.
MOVE 08400 TO EMP_ID.
FIND FIRST EMPLOYEE WITHIN ALL_EMPLOYEES USING EMP_ID.
CONNECT EMPLOYEE TO CONSISTS_OF.
MOVE 06600 TO EMP_ID.
FIND FIRST EMPLOYEE WITHIN ALL_EMPLOYEES USING EMP_ID.
CONNECT EMPLOYEE TO CONSISTS_OF.
MOVE 08400 TO EMP_ID.
FIND FIRST EMPLOYEE WITHIN ALL_EMPLOYEES USING EMP_ID.
MOVE "B1" TO GROUP_NAME.
STORE WK_GROUP.
MOVE 01000 TO EMP_ID.
FIND FIRST EMPLOYEE WITHIN ALL_EMPLOYEES USING EMP_ID.
CONNECT EMPLOYEE TO CONSISTS_OF.
(continued on next page)
8–24 Database Programming Examples