Database Program Translation - Information Systems Reengineering, Integration and Normalization - page 180

Owner
Record

Department Office

Owner
Record

Set Set

Dept-Employee

Office-Employee

Member
Record

Employee

Fig. 5.2 An employee system in network schema

PROGRAM REQUEST SUBSCHEMA PATH GROUP

OBTAIN FIRST
EMP-LR
WHERE

ADD
PATH-GROUP NAME IS OBTAIN
EMP-LR
SELECT

EMP-ID EQ

'1234' FOR EMP-ID OF

EMPLOYEE
OBTAIN FIRST EMPLOYEE
WHERE CALCKEY EQ
EMP-ID OF LR
ON 0000 NEXT
ON 0326 ITERATE
IF DEPT-EMPLOYEE MEMBER
ON 0000 NEXT
ON 1601 ITERATE
OBTAIN OWNER WITHIN
EPT-EMPLOYEE
ON 0000 NEXT
FIND CURRENT EMPLOYEE
ON 0000 NEXT
IF OFFICE-EMPLOYEE
MEMBER
ON 0000 NEXT
ON 1601 ITERATE
OBTAIN OWNER WITHIN
OFFICE-EMPLOYEE
ON 0000 NEXT