Re: This is confusing me. What are these lines of code doing?

Booth Martin wrote:
> 
> In looking at the dates in the program notes, I suspect Shannon has
> explained how/why the code is as it is.
> 

CVTRPGSRC wouldn't make a radical change like that.

This OPM RPG multi-occur DS:
     IDS1         DS                         10             
     I                                        1  60 COLTX1  
     I                                       61 120 COLTX2  
     I                                      301 303 COLCOD  
converts to this similar DS:
     D DS1             DS                  OCCURS(10) 
     D  COLTX1                 1     60               
     D  COLTX2                61    120               
     D  COLCOD               301    303               

Booth, your version with just the array and without the individual names
wouldn't be exactly the same as the original, if the names COLLTXT1,
COLLTXT2 etc are fields from one of the files in your program.  If you
read a file with those 5 COLLTXTn fields, the COLLTXTn subfields of the
data structure would get filled by the read operation, and then they
could be accessed by the array.  If you remove the apparently useless
COLLTXT1-5 fields from the data structure, you would break the
connection between the array and the fields in the file.