Schema Statements › COPY ELEMENTS Substatement › Examples

Examples

In the following example, the structure of NEW-COVERAGE is generated by copying elements from the COVERAGE record and the DDDL-built CARRIER-DETAIL record, and by coding new element descriptions in line.

add record name is new-coverage
    location mode is via emp-coverage set
    within emp-demo-region area.
    copy elements from record coverage
        of schema empschm version 1.
    02  cov-carrier-id          pic 99.
    02  cov-carrier-name        pic x(20).
    copy elements from record carrier-detail.

The previous example effectively produces a new record description, NEW-COVERAGE, that has the following structure:

01 new-coverage.
   02 cov-select-date.
      03 cov-select-year   pic 99.
      03 cov-select-month  pic 99.
      03 cov-select-day    pic 99.
   02 cov-termin-date.
      03 cov-termin-year   pic 99.
      03 cov-termin-month  pic 99.
      03 cov-termin-day    pic 99.
   02 cov-type             pic x.
   02 cov-insplan-code     pic xxx.
   02 cov-carrier-id       pic 99.
   02 cov-carrier-name     pic x(20).
   02 cov-carr-no-of-claims
                           pic 99 comp.
   02 cov-carr-claims-processed
                 occurs 0 to 100
                 depending on
                 cov-carr-no-of-claims.
      03 cov-carr-payment  pic x.
        88 prompt          value '9'.
        88 over-30-days    value '4'.
        88 over-60-days    value '1'.
      03 cov-carr-courtesy pic x.
      03 cov-carr-check    pic x.
         88 cleared        value 'c'.
         88 bounced        value 'b'.