Technical data

Example 8–6 (Cont.) Creating New Record Relationships
REPORT SECTION.
RD PERSONNEL-LISTING
PAGE LIMIT IS 66
HEADING 1
FIRST DETAIL 3
LAST DETAIL 60
CONTROLS ARE MANAGES-GROUP
SUPERVISES-GROUP.
01 TYPE IS PAGE HEADING.
02 LINE 1 COLUMN 22
PIC X(16) VALUE "EMPLOYEE LISTING".
01 MANAGER-CONTROL TYPE IS CONTROL HEADING MANAGES-GROUP.
02 LINE IS PLUS 1.
03 COLUMN 16 PIC X(17)
VALUE "MANAGER OF GROUP ".
03 COLUMN 33 PIC XX
SOURCE MANAGES-GROUP.
03 COLUMN 35 PIC XXXX
VALUE "IS: ".
03 COLUMN 39 PIC X(20)
SOURCE MANAGER-NAME.
01 GROUP-CONTROL TYPE IS CONTROL HEADING SUPERVISES-GROUP.
02 LINE IS PLUS 1.
03 COLUMN 3 PIC XXXXXXX
VALUE "GROUP: ".
03 COLUMN 10 PIC XX
SOURCE SUPERVISES-GROUP.
02 LINE IS PLUS 1.
03 COLUMN 3 PIC X(15)
VALUE IS "SUPERVISOR IS: ".
03 COLUMN 18 PIC X(20)
SOURCE IS SUPERVISOR-NAME.
02 LINE IS PLUS 2.
03 COLUMN 3 PIC X(6)
VALUE "GROUP ".
03 COLUMN 9 PIC XX
SOURCE IS SUPERVISES-GROUP.
03 COLUMN 12 PIC X(9)
VALUE "EMPLOYEES".
03 COLUMN 24 PIC X(15)
VALUE "EMPLOYEE NUMBER".
03 COLUMN 43 PIC X(13)
VALUE "EMPLOYEE NAME".
01 EMPLOYEE-LINE TYPE IS DETAIL.
02 LINE IS PLUS 1.
03 COLUMN 28 PIC XXXXX SOURCE IS EMPLOYEE-NUMBER.
03 COLUMN 44 PIC X(20) SOURCE IS EMPLOYEE-NAME.
PROCEDURE DIVISION.
A000-BEGIN.
OPEN OUTPUT PERSONNEL-REPORT-FILE.
INITIATE PERSONNEL-LISTING.
PERFORM A100-GET-THE-BOSS THROUGH A700-DONE-THE-BOSS.
TERMINATE PERSONNEL-LISTING.
CLOSE PERSONNEL-REPORT-FILE.
EXIT PROGRAM.
(continued on next page)
Database Programming Examples 8–27