Using Subscripts › Fixed Repeating Fields › Demonstration

Demonstration

Objective

This report prints interest rates in three columns.

Procedure

The input records contain three repeating rates:

• INTEREST-RATE-DATA defines the group.
• INTEREST-RATE defines the individual elements.
• Explicit subscripts reference the elements on type 5 parameters.

Complete Code

col. 2
▼
IN 80
REC INTEREST-RATE-DATA  1             GROUP AA 4.3
REC INTEREST-RATE       1 4  2  DP=4  ELMNT AA
00OUT 80 D
003 INTEREST RATE TABLE
0051*010 INTEREST-RATE.1  HH ' ' 'RATE CODE 1' '(ACCOUNT TYPE 1)'
0051*020 INTEREST-RATE.2  HH 'RATE CODE 2' '(ACCOUNT TYPE 2)'
0051*030 INTEREST-RATE.3  HH 'RATE CODE 3' '(ACCOUNT TYPE 3)'

Result

REPORT NO. 00                 INTEREST RATE TABLE           mm/dd/yy PAGE     1

          RATE CODE 1             RATE CODE 2             RATE CODE 3
        (ACCOUNT TYPE 1)        (ACCOUNT TYPE 2)        (ACCOUNT TYPE 3)

             .0500                   .0525                   .0550
             .0525                   .0550                   .0575
             .0550                   .0575                   .0600
             .0550                   .0575                   .0625