Re: Ds and MCH1202.

["George Amaya" <George.Amaya@xxxxxxxxxxxxx>]

When you initialize a data structure, it initializes all fields to
blanks... the last field is causing the problem.

>>> facchinetti@xxxxxxxxx 09/16/03 7:16 AM >>>
Just want to know if I'm misunderstanding the coding/usage
of DS with indexes, otherwise I'll call IBM support.

My DS is:

dtotali           ds                  dim(10) qualified inz
d dest                          45                         
d qta                                 dim(20) like(w1qta01)
d val                                 dim(20) like(w1imp01)
d con                           10i 0 dim(20)              

if I code (sum each element in totali(2).qta to
totali(1).qta):

totali(i2).qta+=totali(i3).qta;

I got an MCH1202 (decimal data....) but the dump clealry
states the data in totali().qta are ok.

in fact if I code:

totali(i2).qta(01)+=totali(i3).qta(01);
totali(i2).qta(02)+=totali(i3).qta(02);
totali(i2).qta(03)+=totali(i3).qta(03);
....

no errors and the result is correct.

Any comments?

Marco

__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.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.