Using Subscripts › Variable Repeating Groups › Demonstration

Demonstration

Objective

This report lists insurance policy numbers and coverage dates for several store locations. The number of policies varies for each store.

Procedure

• Three fields (LOCATION-ID, LOC-EFF-DATE, and LOC-EXP-DATE) in a variable repeating data group are defined on REC parameters:
  • LOCATION-INFO is the assigned group name.
  • LOCATION-NUMBER is the input record field containing the number of occurrences.
• INDEX, which is used as an explicit subscript, is a work field that contains the current occurrence count.

Complete Code

col. 2
▼
IN 80 F 320 PS(TAPE)
REC POLICY-NUMBER      5  10  2
REC COVERAGE-CODE     15   3
REC EFFECTIVE-DATE    18   6  2
REC LOCATION-NUMBER   24   4  2
REC LOCATION-INFO 28           GROUP AA 14.LOCATION-NUMBER
REC LOCATION-ID     1  2  2     ELMNT AA
REC LOC-EFF-DATE    3  6  2     ELMNT AA
REC LOC-EXP-DATE    9  6  2     ELMNT AA
01OUT D
010 INDEX 1                      $Counter
0141*010 'POLICY NUMBER'
0141*020 'COVERAGE'
0141*030 'EFFECTIVE DATE'
0141*040 'LOCATION ID'
0141*050 'LOC-EFF-DATE'
0141*060 'LOC-EXP-DATE'
01420001 ' '
0151*010 POLICY-NUMBER  F0
0151*020 COVERAGE-CODE
0151*030 EFFECTIVE-DATE  FD
0152*040 LOCATION-ID.INDEX
0152*050 LOC-EFF-DATE.INDEX  FD
0152*060 LOC-EXP-DATE.INDEX  FD
017      RELS 1                   $Print first detail line; continue processing
017100   RELS 2                   $Print second detail line; continue processing
017      INDEX + 1  INDEX
017      IF INDEX LE LOCATION-NUMBER 100$Test subscript value
017      MOVE 1 TO INDEX          $Reset subscript value
017      DROP

Result

          POLICY NUMBER        COVERAGE        EFFECTIVE DATE        LOCATION ID        LOC-EFF-DATE        LOC-EXP-DATE

                 111111           010               mm/dd/yy
                                                                            1               mm/dd/yy            mm/dd/yy
                                                                            5               mm/dd/yy            mm/dd/yy
                 222222           011               mm/dd/yy
                                                                           10               mm/dd/yy            mm/dd/yy
                 333333           005               mm/dd/yy
                                                                            5               mm/dd/yy            mm/dd/yy
                                                                            3               mm/dd/yy            mm/dd/yy
                                                                            1               mm/dd/yy            mm/dd/yy
                4444444           002               mm/dd/yy
                                                                            4               mm/dd/yy            mm/dd/yy
                                                                            2               mm/dd/yy            mm/dd/yy

Note: The report would show actual dates in the format shown.