RE: Literal chopped off by varying when passed

Hmmm. . . now I am really confused.  Here is a timeline:

1. First two characters of literal ending up in length area of Varying field
in subproc
2. Pete posts code
3. I try Pete's code and it works fine
4. I take the subproc out of the Pete's mainline program and put it into a
service program to closer emulate my scenario.  Pete's code still works.
5. Go back to my code (that looks just like Pete's) and search for possible
memory leaks.  Problem still happening and I am checking the value of the
Varying field as soon as I enter the subproc in debug.
6. Today I come in to start where I left off and it works as expected (with
Varying specified and all!) and I can't recreate what I had yesterday.  ????

I have had something similar to this happen before where something won't one
day, and then the next day it works fine.  I have no idea how it fixes
itself.  Anybody have any insight?

Weird to say the least. . .
Aaron Bartell

-----Original Message-----
From: Mel Rothman [mailto:mel@xxxxxxxxxxxxxx]
Sent: Friday, April 25, 2003 7:44 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Literal chopped off by varying when passed


Pete, I just ran your test program, unchanged, on a V5R1 system.  It worked 
perfectly.

Assuming Aaron's code is written in the same way, it should work too.

Aaron, could you compile and test Pete's code on your system?  If it runs 
correctly, it would indicate a problem in your code.  Otherwise, it would 
indicate you need one or more PTFs.

Mel Rothman
Mel Rothman, Inc.


Pete Clifford wrote:
> That's what I see too - it works fine on V5R2.
> 
> I've compiled the same code (with the /free bits reverting to fixed format
> of course) on a V4R3 system (!) and it works there too. I don't have
access
> to a V5R1 system any more, so I can't test it on that release, but,
assuming
> it's not a V5R1-specific problem, my guess is still that something is
making
> the string zero length after it's been passed in.
> 
> Pete
> 


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