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

It's been awhile since I ran the CVTRPGSRC command, but wouldn't that
command have converted an RPGIII multiple occurrence DS and made it come out
like Booth's example?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mel Rothman
Sent: Friday, February 17, 2006 4:53 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: This is confusing me. What are these lines of code doing?

What makes this confusing, I think, is that it used "from - to" to define
the fields' 
positions instead of lengths and the overlay keyword.

I would have coded it like this:

D CollSO_DS       DS
D CollCode                       3
D  CollTxt1                     60
D  CollTxt2                     60
D  CollTxt3                     60
D  CollTxt4                     60
D  CollTxt5                     60
D  CollTxt                      60    DIM(5) overlay(CollSO_DS:4)


Mel Rothman
Mel Rothman, Inc.


Booth Martin wrote:
> D CollSO_DS       DS
> D CollTxt                       60    DIM(5)
> D  CollTxt1               1     60
> D  CollTxt2              61    120
> D  CollTxt3             121    180
> D  CollTxt4             181    240
> D  CollTxt5             241    300
> D CollCode              301    303
> 
> This is confusing me.  What are these lines of code doing?  How long is
> the data structure CollSO?  What happens if I increase the DIM from 5 to
10?
> 
> 
>