Using Subscripts › Explicit Subscripts › Demonstration (2): Using a Counter as a Subscript

Demonstration (2): Using a Counter as a Subscript

Objective

This report lists data occurrences that are stored in a work field.

Procedure

The value of the counter INDEX is used as a subscript on a type 5 parameter.

Complete Code

 col. 2
 ▼
 IN 80
 REC CODE 1 2  2
 020 FOREIGN-MAKES.30  'ROLLS ROYCE' 'ALPHA ROMEO' 'FIAT'
*'VOLKSWAGEN' 'PORCHE' 'LANCIA' 'BMW' 'AUDI' 'DATSUN' 'TOYOTA'
*'MERCEDES' 'MASERATI' 'LADA' 'SAAB' 'HONDA' 'MAZDA' 'RENAULT'
*'VOLVO' 'LAMBORGHINI' 'TRIUMPH' 'LOTUS' 'FERRARI' ' '
 020 INDEX                             $Counter work field
 02OUT 80
 0251*010 FOREIGN-MAKES.INDEX
 027010   INDEX + 1  INDEX              $Increment counter
 027020   IF INDEX GT 30  STOP-RPT         $Check for subscript value
 027      RELS
 027      B 10

Result

                                                           ROLLS ROYCE
                                                           ALPHA ROMEO
                                                           FIAT
                                                           VOLKSWAGEN
                                                           PORCHE
                                                           LANCIA
                                                           BMW
                                                           DATSUN
                                                           MERCEDES
                                                           SAAB
                                                           HONDA
                                                           MAZDA
                                                           VOLVO
                                                           LAMBORGHINI
                                                           TRIUMPH
                                                           LOTUS
                                                           FERRARI