Additional CA IDMS/DB Facilities › Retrieving Stand-alone Records › Demonstration

Demonstration

Objective

This report lists the start date of five employees selected from the database EMPLOYEE record type. The selection occurs by means of the DB-exit facility.

Procedure

The code for this report includes:

• A dummy path, PATH--, allocates space in the input buffer for the retrieved records.
• The work field IDS.5 contains employee ID values.
• A call to the DB-EXIT facility has the following selection criteria arguments:
  • Argument 1 ('CALC') generates an OBTAIN CALC EMPLOYEE retrieval command.
  • Argument 2 ('EMPLOYEE ') specifies the EMPLOYEE record. The trailing blank is required (the record name is less than 16 characters).
  • Argument 3 (EMP-ID-0415) specifies the name of the CALC-key field for the EMPLOYEE record.
  • Argument 4 ('IDS.INDEX') specifies an occurrence of the work field IDS.5 that has the value of the EMP-ID-0415 field being selected.
  • Argument 5 specifies the length of the EMP-ID-0415 field.
• IDMS-STATUS NE '0000' 400 checks the IDMS Status for values that indicate error conditions or records not retrieved. If the condition is true, CA Culprit generates a buffer dump and stops the run.
• STOP-RUN terminates the run.

Complete Code

col. 2
▼
DATABASE DICTNAME=DOCUDICT
IN DB SS=EMPSS01 $RPT707
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'
0151*030 START-YEAR-0415          HH 'START' 'YEAR'
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

      IDMS-STATUS      EMPLOYEE               EMPLOYEE              START
         FIELD            ID                    NAME                 YEAR

          0326           0302            EMPLOYEE NOT FOUND
          0000           0048        NANCY     TERNER                 82
          0326           0054            EMPLOYEE NOT FOUND
          0000           0301        BURT      LANCHESTER             75
          0000           0001        JOHN      RUPEE                  75