RE: Problem Found! Need solution

["Hopkins, Bill" <BHopkins@xxxxxxxxxxxxx>]

Jon / Mike

I saw my mistake of thinking that the "Error was not an Optional parm" but
when I look up info on this API @iSeries Info it said the following on
parms:
Required Parameter Group:


1  Receiver variable  Output  Char(*)
2  Length of receiver variable  Input  Binary(4)  <<<<<<<<<<<  Why is this
different?
3  Format name  Input  Char(8)
4  Qualified job name  Input  Char(26)
5  Internal job identifier  Input  Char(16)
6  Internal spooled file identifier  Input  Char(16)
7  Spooled file name  Input  Char(10)
8  Spooled file number  Input  Binary(4)

 Optional Parameter:

9  Error Code  I/O  Char(*)

Understand code var. length " Inz(%Len(Receiver)) " which allows you to
change length of receiver(good idea). But I not seeing length of receiver
var. field size 10I?

"Length of receiver variable
INPUT; BINARY(4)
The length of the receiver variable. If the length is larger than the size
of the receiver variable, the results are not predictable. The minimum
length is 8 bytes."

Just learning
 Thanks.
Bill Hopkins

-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@taylorcorp.com]
Sent: Monday, September 16, 2002 4:55 PM
To: 'rpg400-l@midrange.com'
Subject: RE: Problem Found! Need solution


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