Description:
You can retrieve record occurrences that do not participate in defined paths, as well as path-related records, by calling or branching to the DB-EXIT facility in type 7 logic.
Solution:
How to Do It
You can call or branch to the DB-EXIT facility in type 7 logic.
A call to the DB-EXIT facility which has the following selection criteria arguments:
To use the DB-EXIT facility you will need to:
For example:
col. 2 ▼ //SYSIN DD * DATABASE DICTNAME=SYSDICT IN DB SS=EMPSS01 PATH--EMPLOYEE 01OUT 80 D 010 IDS.5 '0302' '0048' '0054' '0301' '0001' $Employee ID values 010 INDEX 1 010 DUMP 010 MESSAGE 'EMPLOYEE NOT FOUND' 0151*005 IDMS-STATUS HH 'IDMS-STATUS' 'FIELD' 0151*010 EMP-ID-0415 FM '9999' HH 'EMPLOYEE' 'ID' 0151*020 EMP-NAME-0415 HH 'EMPLOYEE' 'NAME' 0152*005 IDMS-STATUS 0152*010 IDS.INDEX 0152*020 MESSAGE 017100 CALL DB-EXIT ('CALC' 'EMPLOYEE ' EMP-ID-0415 IDS.INDEX 4) 017 IF IDMS-STATUS EQ '0326' 200 $Employee not found 017 IDMS-STATUS NE '0000' 400 017 RELS 1 017 B 300 017200 MOVE 'EMPLOYEE NOT FOUND' TO MESSAGE 017 RELS 2 017300 INDEX + 1 INDEX 017 IF INDEX LE 5 100 017 STOP-RUN 017400 DUMP / DUMP DUMP $Forces a buffer dump 017 STOP-RUN
Result
<Please see attached file for image>