It is possible to 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.
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:
For example:
col. 2
▼
//SYSIN DD *
DATABASE DICTNAME=APPLDICT
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