RE: URGENT! - Program Error

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

It is called beginner's mistakes. :-) The list got me straightened out. I
LOVE this list!

-----Original Message-----
From: Barbara Morris [mailto:bmorris@ca.ibm.com]
Sent: Thursday, September 19, 2002 6:42 PM
To: rpg400-l@midrange.com
Subject: Re: URGENT! - Program Error


"Wills, Mike N. (TC)" wrote:>
> ...
>       * Spool File Information
>      D Length          S              4B 0 Inz(X'000005B8')
> ...
>      C                   Call      'QUSRSPLA'
>      C                   Parm                    Reciever
>      C                   Parm                    Length
>      C                   Parm                    FormatName
>      C                   Parm                    QJob
>      C                   Parm                    JobID
>      C                   Parm                    SplfID
>      C                   Parm                    SplfName
>      C                   Parm                    SplfNumber
> ...

Mike, try changing the definition of Length to 9B 0 instead of 4B 0.

You've defined Length as a 2-byte binary, but the API wants a 4-byte
binary.  The length that the API is actually receiving is a huge 4-byte
value, Length followed by the next 2 bytes in storage, or X'05B8????',
which is at least 95944704.  The API will feel free to change that huge
length of storage, corrupting whatever follows Receiver in storage.

I'm curious why you've initialized Length to the hex value rather than
just 1464 or even better, %size(Receiver).


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