Additional CA IDMS/DB Facilities › Accessing Multiple-Member Sets › Demonstration

Demonstration

Objective

This report lists employee hospital and dental claims. The HOSPITAL-CLAIM and DENTAL-CLAIM records are owned by the COVERAGE record.

Procedure

• The INPUT parameter specifies an input buffer size of 4000 bytes to accommodate the five record types (EMPLOYEE, COVERAGE, HOSPITAL-CLAIM, NON-HOSP-CLAIM, and DENTAL-CLAIM), overhead, and DB-keys that are read into the buffer.

  The NON-HOSPITAL-CLAIM record, while not used for this report, must be included in the buffer size.

• The ALL-MEMBERS option on the PATH parameter specifies access to each occurrence of the records in the multiple-member set COVERAGE-CLAIMS.
• The SELECT BUFFER parameter with REC-NAME specifies access to two of the three records of the COVERAGE-CLAIMS set.
• REC parameters redefine the claim date fields as numeric to allow for automatic date formatting.

  Field redefinition is based upon the starting point in the record, as opposed to the position in the input buffer, by including the record type name immediately after the field name.

Complete Code

col. 2
▼
IN 4000 DB SS=EMPSS01
PATH01 EMPLOYEE COVERAGE ALL-MEMBERS (COVERAGE-CLAIMS)
SELECT BUFFER WHEN REC-NAME EQ ('HOSPITAL-CLAIM' 'DENTAL-CLAIM')
REC CLAIM-DATE-0430(HOSPITAL-CLAIM) 1  6  2
REC CLAIM-DATE-0405(DENTAL-CLAIM)   1  6  2
01OUT D
0141*010 'PATIENT'
0141*020 'HOSPITAL CLAIMS'
0141*030 'DENTAL CLAIMS'
0141*040 'EMPLOYEE'
0142*001 ' '
0151*010 PATIENT-NAME-0430
0151*020 CLAIM-DATE-0430  FD
0151*040 EMP-NAME-0415
0152*010 PATIENT-NAME-0405
0152*030 CLAIM-DATE-0405  FD
0152*040 EMP-NAME-0415
017010 IF REC-NAME EQ 'HOSPITAL-CLAIM' 300
017    TAKE 2
017300 TA
LANCHESTER
                   HELOISE   HENDON                                           77/05/23          HENRIETTA HENDON
                   HATFIELD  HENDON                     82/11/07                                HENRIETTA HENDON
                   JESSICA   CRANE                                            80/10/04          HERBERT   CRANE