Demonstration (2): Accessing Records with a Key File

Additional CA IDMS/DB Facilities › Retrieving Record Types by Key › Demonstration (2): Accessing Records with a Key File

Demonstration (2): Accessing Records with a Key File

Objective

This report lists all employees associated with specific departments located at Dedham Place and University Avenue. Department IDs and building locations are stored in a key file.

Procedure

A KEYFILE parameter defines a key file with records 80 bytes long. The key field is a CALC-key value that begins in position 1 and is four bytes long.
A user-supplied REC parameter identifies DEPT-LOCATION as an alphanumeric field. DEPT-LOCATION starts in position 5 of the key file record for a length of ten bytes.
A SELECT parameter uses DEPT-LOCATION to select only those records in the key file that specify Lost Brook or University Avenue.
A SORT parameter sorts the output by building location. Building location appears as a heading on each page.

Complete Code

col. 2
▼
DATABASE DICTNAME=DOCUDICT
IN DB SS=EMPSS01
PATHAA DEPARTMENT EMPLOYEE
KEYFILE 80 KF=1 4
REC DEPT-LOCATION(KEYFILE) 5 10
SELECT DEPT-LOCATION EQ ('DEDHAMPLAC' 'UNIVERSITY')
01SORT DEPT-LOCATION,1
01410005 'BUILDING LOCATION'
01410025 DEPT-LOCATION
0151*001 DEPT-ID-0410   FM '9999' HH 'DEPT ID'
0151*003 EMP-ID-0415    FM '9999' HH 'EMPLOYEE' 'ID'
0151*005 EMP-NAME-0415            HH 'EMPLOYEE' 'NAME'

The standard file used to store the keys is specified in the JCL:

//SYS002   DD  DSN=user.keyfile,DISP=SHR

Result

BUILDING LOCATION DEDHAMPLAC EMPLOYEE EMPLOYEE DEPT ID ID NAME 5200 0479 TERRY CLOTH 5200 0329 PHINEAS FINN 5200 0469 JOE KASPAR 5200 0355 MARK TIME 5200 0349 ROGER WILCO 5300 0371 BETH CLOUD 5300 0366 ALAN DONOVAN 5300 0321 DANIEL MOON 3100 0024 JANE DOUGH 3100 0029 JAMES GALLWAY 3100 0003 JENNIFER GARFIELD 3100 0028 PERCY GRANGER 3100 0027 VLADIMIR HEAROWITZ 3100 0020 JAMES JACOBI 3100 0019 JULIE JENSEN 3100 0035 LARRY LITERATA 3100 0023 KATHERINE O'HEARN 3100 0021 RALPH TYRO BUILDING LOCATION UNIVERSITY EMPLOYEE EMPLOYEE DEPT ID ID NAME 5100 0466 ROY ANDALE 5100 0457 HARRY ARM 5100 0467 C. BREEZE 5100 0334 CAROLYN CROW 5100 0301 BURT LANCHESTER 5100 0015 RENE MAKER 5100 0341 RICHARD MUNYON 5100 0458 RICHARD WAGNER 3200 0004 HERBERT CRANE 3200 0032 JANE FERNDALE 3200 0045 GEORGE FONRAD 3200 0053 ROBIN GARDNER 3200 0049 DOUGLAS KAHALLY 3200 0016 TERENCE KLWELLEN 3200 0074 SANDY KRAAMER 3200 0031 HERBERT LIPSICH 3200 0048 NANCY TERNER