Demonstration

Additional CA IDMS/DB Facilities › Retrieving Record Types by Name › Demonstration

Demonstration

Objective

This example creates two reports:

Report 01 lists all employees for each department.
Report 02 lists the skills of employees who work in departments 4000 and 3200.

Procedure

Two paths are used to access data:
for departments 4000 and 3200.
A SELECT statement retrieves path BB when the department id is 4000 or 3200.
Type 7 procedure logic selects path AA for Report 01 and path BB for Report 02.

Complete Code

col. 2
▼
DATABASE DICTNAME=DOCUDICT
IN DB SS=EMPSS01
PATHAA DEPARTMENT EMPLOYEE
PATHBB DEPARTMENT EMPLOYEE EXPERTISE SKILL
SELECT DEPARTMENT IN PATH BB WHEN DEPT-ID-0410 EQ (4000 3200)
013 EMPLOYEES BY DEPARTMENT
0151*020 DEPT-NAME-0410    HH 'DEPARTMENT'
0151*030 EMP-NAME-0415     HH 'EMPLOYEE'
017010 IF PATH-ID NE 'AA' DROP
023 EMPLOYEE SKILL LEVELS FOR DEPTS 4000 AND 3200
0251*010 DEPT-ID-0410   FN HH 'DEPT ID'
0251*020 DEPT-NAME-0410    HH 'DEPARTMENT'
0251*030 EMP-NAME-0415     HH 'EMPLOYEE'
0251*040 START-YEAR-0415   HH 'START YEAR'
0251*050 SKILL-NAME-0455   HH 'SKILL'
027010 IF PATH-ID NE 'BB' DROP

Result

REPORT NO. 01 EMPLOYEES BY DEPARTMENT mm/dd/yy PAGE 1 DEPARTMENT EMPLOYEE ACCOUNTING AND PAYROLL JUNE BLOOMER ACCOUNTING AND PAYROLL EDWARD HUTTON ACCOUNTING AND PAYROLL RUPERT JENSON ACCOUNTING AND PAYROLL MARIANNE KIMBALL ACCOUNTING AND PAYROLL DORIS KING ACCOUNTING AND PAYROLL BRIAN NICEMAN COMPUTER OPERATIONS HERBERT CRANE COMPUTER OPERATIONS JANE FERNDALE COMPUTER OPERATIONS GEORGE FONRAD COMPUTER OPERATIONS ROBIN GARDNER COMPUTER OPERATIONS DOUGLAS KAHALLY COMPUTER OPERATIONS TERENCE KLWELLEN COMPUTER OPERATIONS SANDY KRAAMER COMPUTER OPERATIONS HERBERT LIPSICH COMPUTER OPERATIONS NANCY TERNER BLUE SKIES BETH CLOUD BLUE SKIES ALAN DONOVAN BLUE SKIES DANIEL MOON BRAINSTORMING ROY ANDALE BRAINSTORMING HARRY ARM

REPORT NO. 02 EMPLOYEE SKILL LEVELS FOR DEPTS 4000 AND 3200 mm/dd/yy PAGE 1 DEPT ID DEPARTMENT EMPLOYEE START YEAR SKILL 3200 COMPUTER OPERATIONS HERBERT CRANE 77 IDMSDC 3200 COMPUTER OPERATIONS HERBERT CRANE 77 IBM 3200 COMPUTER OPERATIONS HERBERT CRANE 77 ASSEMBLER 3200 COMPUTER OPERATIONS HERBERT CRANE 77 DEC 3200 COMPUTER OPERATIONS HERBERT CRANE 77 RPGII 3200 COMPUTER OPERATIONS JANE FERNDALE 79 IDMSDC 3200 COMPUTER OPERATIONS JANE FERNDALE 79 IBM 3200 COMPUTER OPERATIONS GEORGE FONRAD 80 DATA ENTRY 3200 COMPUTER OPERATIONS GEORGE FONRAD 80 FILING 3200 COMPUTER OPERATIONS ROBIN GARDNER 81 DATA ENTRY 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 KEYPUNCH 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 FILING 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 TYPING 3200 COMPUTER OPERATIONS DOUGLAS KAHALLY 79 PHONE 3200 COMPUTER OPERATIONS TERENCE KLWELLEN 78 COBOL 3200 COMPUTER OPERATIONS TERENCE KLWELLEN 78 ASSEMBLER 3200 COMPUTER OPERATIONS SANDY KRAAMER 81 KEYPUNCH 3200 COMPUTER OPERATIONS SANDY KRAAMER 81 TYPING 3200 COMPUTER OPERATIONS HERBERT LIPSICH 81 IBM 3200 COMPUTER OPERATIONS NANCY TERNER 82 FILING 3200 COMPUTER OPERATIONS NANCY TERNER 82 PHONE 3200 COMPUTER OPERATIONS NANCY TERNER 82 TYPING 4000 PUBLIC RELATIONS MICHAEL ANGELO 79 RAINBOW 4000 PUBLIC RELATIONS MICHAEL ANGELO 79 ART DESIGN 4000 PUBLIC RELATIONS MICHAEL ANGELO 79 PASTEUP 4000 PUBLIC RELATIONS MONTE BANK 78 PUB REL MGT 4000 PUBLIC RELATIONS CHARLES BOWER 77 PHOTO COLOR 4000 PUBLIC RELATIONS CHARLES BOWER 77 PHOTO B/W 4000 PUBLIC RELATIONS CAROL MCDOUGALL 80 CUT/PASTE 4000 PUBLIC RELATIONS CAROL MCDOUGALL 80 LAYOUT