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

[Alan Shore <AlanShore@xxxxxxxx>]

The way I interpret this is that the field CollSO_DS is 303 bytes, whereas
CollTxt is 300 (5 * 60). If you increase the DIM from 50 to 10, I'm
guessing that the field CollCode would have to be moved,
D CollCode              601    603

so that the field CollSO_DS would be 603 bytes, whereas CollTxt is 600 (10
* 60).



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


                                                                       
             Booth Martin                                              
             <booth@xxxxxxxxxx                                         
             om>                                                        To
             Sent by:                  RPG programming on the AS400 /  
             rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx> 
             midrange.com                                               cc
                                                                       
                                                                   Subject
             02/17/2006 04:26          This is confusing me.  What are 
             PM                        these lines of code doing?      
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       





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?



--
-----------------------------------
Booth Martin
http://martinvt.com
-----------------------------------

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.