RE: Problem Found! Need solution

["Wills, Mike N. (TC)" <MNWills@xxxxxxxxxxxxxx>]

Thanks, I will do that!

-----Original Message-----
From: Jon Paris [mailto:Jon.Paris@Partner400.com]
Sent: Monday, September 16, 2002 3:12 PM
To: rpg400-l@midrange.com
Subject: Problem Found! Need solution


 >> D Length          S              4B 0 Inz(X'000005B8')

On this occasion it was the mis-definition of Length as 4B instead of 10I
(or 9B if you're an old-fashioned boy) that caused your problem.  There's
another problem here though that's waiting to bite you.  You have hard-coded
the length of the receiver as X'5B8'  - Inz(1464) would make more sense, but
is still not the "right" way.  Instead code Inz(%Len(Receiver)) - this way
if you ever change the size of the receiver field and forget to change the
Inz length you won't cause yourself similar problems.

Just trying to save you problems in the future!

Jon Paris
Partner400


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