Technical data

Example 8–6 (Cont.) Creating New Record Relationships
PROCEDURE DIVISION.
A000-BEGIN.
READY USAGE-MODE IS UPDATE.
PERFORM A100-EMPLOYEE-LOAD.
PERFORM A200-CONNECTING-TO-CONSISTS-OF.
DISPLAY "Employees and groups are loaded".
DISPLAY "Personnel Report before update ..."
CALL "PERSONNEL-REPORT".
DISPLAY "Press your carriage return key to continue".
ACCEPT ANSWER.
CALL "PROMOTION-UPDATE".
DISPLAY "Promotions completed".
DISPLAY "Press your carriage return key to continue".
ACCEPT ANSWER.
DISPLAY "Personnel Report after update ...".
CALL "PERSONNEL-REPORT".
A010-EOJ.
ROLLBACK.
DISPLAY "End of PERSONNEL-UPDATE".
STOP RUN.
A100-EMPLOYEE-LOAD.
MOVE 10500 TO EMP_ID.
MOVE "HOWELL" TO EMP_LAST_NAME.
MOVE "JOHN" TO EMP_FIRST_NAME.
MOVE 1111111 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 08400 TO EMP_ID.
MOVE "NOYCE" TO EMP_LAST_NAME.
MOVE "BILL" TO EMP_FIRST_NAME.
MOVE 2222222 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 06600 TO EMP_ID.
MOVE "MOORE" TO EMP_LAST_NAME.
MOVE "BRUCE" TO EMP_FIRST_NAME.
MOVE 3333333 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 01000 TO EMP_ID.
MOVE "RAVAN" TO EMP_LAST_NAME.
MOVE "JERRY" TO EMP_FIRST_NAME.
MOVE 5555555 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
MOVE 04000 TO EMP_ID.
MOVE "BURLEW" TO EMP_LAST_NAME.
MOVE "THOMAS" TO EMP_FIRST_NAME.
MOVE 6666666 TO EMP_PHONE.
MOVE "N.H." TO EMP_LOC.
STORE EMPLOYEE.
(continued on next page)
Database Programming Examples 8–23