Additional CA IDMS/DB Facilities › Testing for Record Occurrences › Demonstration

Demonstration

Objective

This report lists selected employees and their start year. If an employee record is not found, the message EMPLOYEE NOT FOUND is returned.

Procedure

• A primary path, PATHOK, returns the employee name, ID, and date of hire.
• A null path, NO, places NO in the input buffer if the employee ID is not found. selects one of two possible print lines.

Complete Code

col. 2
▼
DATABASE DICTNAME=DOCUDICT
IN DB SS=EMPSS01
REC  JOB-START(EMPOSITION) 1 6 2 'START' 'DATE'
PATHOK EMPLOYEE(NO) EMPOSITION JOB
KEY EMP-ID-0415 (0003 0023 0100 0301 3200 5100)
01OUT 80 D
013 SELECTED EMPLOYEE DETAIL LIST
010 WK-ID
0151*0100EMP-NAME-0415           HH 'EMPLOYEE NAME'
0151*020 EMP-ID-0415  FM '9999'  HH 'EMPLOYEE' 'ID'
0151*030 JOB-START    FD         HR
0151*040 TITLE-0440              HH 'JOB' 'TITLE'
0152*010 'EMPLOYEE NOT FOUND       '
0152*020 EMP-ID-0415  FM '9999'
017005   IF PATH-ID EQ 'OK'  100
017010   IF PATH-ID NE 'NO'  DROP
017020   TAKE 2
017100   IF EMP-ID-0415 EQ WK-ID  DROP
017110   MOVE EMP-ID-0415 TO WK-ID
017120   TAKE 1

Result

REPORT NO. 01            SELECTED EMPLOYEE DETAIL LIST     mm/dd/yy  PAGE     1
                                 EMPLOYEE    START             JOB
           EMPLOYEE NAME            ID        DATE            TITLE


     JENNIFER  GARFIELD            0003     82/01/01   MGR INTERNL SOFTWARE

     KATHERINE O'HEARN             0023     79/05/05   PROGRAMMER/ANALYST

     EDWARD    HUTTON              0100     77/09/07   FINANCIAL ANALYST

     BURT      LANCHESTER          0301     80/02/03   RAINMAKER
     EMPLOYEE NOT FOUND            3200
     EMPLOYEE NOT FOUND            5100