Re: Convert DS into Array ?

[rob@xxxxxxxxx]

I believe that would be:
0032.00 D CITEMSTR        DS                   dim(25)
0033.00 D  MCN2                         15
0034.00 D  MSN                           5I 0
0035.00 D  MACODE1                      10
0036.00 D  MQTY1                         5I 0
0037.00 D  MPRICE1                      12  2
0038.00 D  MAMOUNT1                     12  2

Then you would refer to it like
/free
 for x = 1 to %elem(citemstr);
   citemstr(x).msn=x*2;
 endfor;
/end-free


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Luqman" <pearlsoft@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/17/2005 05:59 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Convert DS into Array ?






How can I covert this DS to an Array of 25 Elements each.

Do I have to define DIM() on each field or only on 1st line.

0032.00 D CITEMSTR        DS
0033.00 DMCN2                           15
0034.00 DMSN                             5I 0
0035.00 DMACODE1                        10
0036.00 DMQTY1                           5I 0
0037.00 DMPRICE1                        12  2
0038.00 DMAMOUNT1                       12  2



Best Regards,

Luqman




-- 
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.