Demonstration (1): Accessing Records by Key

Additional CA IDMS/DB Facilities › Retrieving Record Types by Key › Demonstration (1): Accessing Records by Key

Demonstration (1): Accessing Records by Key

Objective

This example uses a KEY parameter to list the job ids, job titles, and job openings for three selected departments.

Procedure

A KEY parameter is used to directly access DEPARTMENT records with ids of 0100, 3200, and 5100.
The key field on the KEY parameter is DEPT-ID-0410 (the CALC-key value for the DEPARTMENT record).

Complete Code

col. 2
▼
DATABASE DICTNAME=DOCUDICT
IN DB SS=EMPSS01
PATH01 DEPARTMENT EMPLOYEE EMPOSITION JOB
KEY DEPT-ID-0410 (0100 3200 5100)
01OUT D
013 JOB OPENINGS
0151*010 DEPT-ID-0410   FN      HH 'DEPARTMENT'
0151*020 JOB-ID-0440    FN      HH 'JOB ID'
0151*030 TITLE-0440             HH 'JOB TITLE'
0151*040 NUMBER-OPEN-0440       HH 'JOB' 'OPENINGS'

Result

REPORT NO. 01 JOB OPENINGS mm/dd/yy PAGE 1 JOB DEPARTMENT JOB ID JOB TITLE OPENINGS 0100 9001 PRESIDENT 0100 9007 DIR WEATHER 0100 5001 MGR BRAINSTORMING 0100 9003 DIR OPERATIONS 0100 3001 MGR INTERNL SOFTWARE 0100 9005 DIR CORP CONFUSION 3200 3003 MGR COMPUTER OPS 3200 3003 MGR COMPUTER OPS 3200 3003 MGR COMPUTER OPS 3200 3029 COMPUTER OPERATOR 3200 3051 DATA ENTRY CLERK 1 3200 3051 DATA ENTRY CLERK 1 3200 3029 COMPUTER OPERATOR 3200 3023 SYSTEMS PROGRAMMER 3200 3051 DATA ENTRY CLERK 1 3200 3029 COMPUTER OPERATOR 3200 3051 DATA ENTRY CLERK 1 5100 5025 SNOWBLOWER 5100 5029 STURM/DRANG ADMIN 5100 5027 KEEPER OF THE WINDS 5100 5023 RAINDANCE CONSULTANT 5100 5021 RAINMAKER 5100 5021 RAINMAKER 5100 5021 RAINMAKER 5100 5001 MGR BRAINSTORMING 5100 5001 MGR BRAINSTORMING 5100 5025 SNOWBLOWER 5100 5029 STURM/DRANG ADMIN