Demonstration

Additional CA IDMS/DB Facilities › Accessing Bill-of-Materials Structures › Demonstration

Demonstration

Objective

This report lists:

The managers of the company (first level)
The supervisors reporting to each manager (second level)
The workers reporting to each supervisor (third level)

Procedure

PATHAA defines a three-level bill-of-materials relationship:
1. EMPLOYEE STRUCTURE(MANAGES)
2. EMPLOYEE(REPORTS-TO) STRUCTURE(MANAGES)
3. EMPLOYEE(REPORTS-TO)
Type 5 and type 7 parameters specify the level from which the names are extracted:
- EMP-NAME-0415 (1) prints manager's names.
- EMP-NAME-0415 (2) prints supervisor's names.
- EMP-NAME-0415 (3) prints worker's names.

Complete Code

 col. 2
 ▼
 DATABASE DICTNAME=DOCUDICT
 IN DB SS=EMPSS01 $RPT708
 PATHAA EMPLOYEE STRUCTURE(MANAGES) EMPLOYEE(REPORTS-TO)
*STRUCTURE(MANAGES) EMPLOYEE(REPORTS-TO)
 01OUT 120
 010 MGR '                         '
 010 SUP '                         '
 010 EMP '                         '
 0141*010 'MANAGER'
 0141*020 'SUPERVISOR'
 0141*030 'WORKER'
 0142*001 ' '
 0151*010 EMP-NAME-0415 (1)
 0152*020 EMP-NAME-0415 (2)
 0153*030 EMP-NAME-0415 (3)
 017010   IF EMP-NAME-0415 (1) NE MGR  100
 017020   IF EMP-NAME-0415 (2) NE SUP  200
 017030   IF EMP-NAME-0415 (3) NE EMP  300
 017      DROP
 017100   RELS 1
 017200   RELS 2
 017300   RELS 3
 017      MOVE EMP-NAME-0415 (1) TO MGR
 017      MOVE EMP-NAME-0415 (2) TO SUP
 017      MOVE EMP-NAME-0415 (3) TO EMP

Result

MANAGER SUPERVISOR WORKER ROBBY WILDER THEMIS PAPAZEUS ROGER WILCO DANIEL MOON RENE MAKER MONTE BANK BETSY ZEDI JOCK JACKSON LAURA PENMAN CAROL MCDOUGALL MICHAEL ANGELO CHARLES BOWER THEMIS PAPAZEUS ROGER WILCO TERRY CLOTH JOE KASPAR MARK TIME PHINEAS FINN DANIEL MOON BETH CLOUD ALAN DONOVAN RENE MAKER C. BREEZE ROY ANDALE RICHARD WAGNER HARRY ARM RICHARD MUNYON CAROLYN CROW BURT LANCHESTER HENRIETTA HENDON ROGER WILCO TERRY CLOTH JOE KASPAR MARK TIME PHINEAS FINN DANIEL MOON BETH CLOUD ALAN DONOVAN ELEANOR PEOPLES MADELINE ORGRATZI TOM FITZHUGH CYNTHIA JOHNSON JENNIFER GARFIELD LARRY LITERATA JAMES GALLWAY PERCY GRANGER VLADIMIR HEAROWITZ JANE DOUGH KATHERINE O'HEARN RALPH TYRO JAMES JACOBI JULIE JENSEN