RE: Literal chopped off by varying when passed

Did you pass in a literal value - something like 'whatever/whatever'?

-----Original Message-----
From: Pete Clifford [mailto:Pete@xxxxxxxxxxxxxxxxxx]
Sent: Thursday, April 24, 2003 2:59 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Literal chopped off by varying when passed


I've compiled this code and when I run it things are fine.

EVAL pxpath:x

000F8396 94978195 A8619799 9684A483   - ..company/produc
A3000030 41800000 00000000 00001BF7   - t... Ø.........7

What you are showing in hex looks to me like what I would expect to be in
the variable, but with a zero length. It looks to me like something has
changed the length to zero. The previous value is still visible because when
you change the length of a variable length field, only the length bytes are
updated and the previous contents remain in place.

Pete

"Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>
wrote in message
news:2497EFFF2CEDF746A51832AD269D45D947E17F@xxxxxxxxxxxxxxxxxxxxxxxxx
> I must be missing something here.  I am executing the following line of
> code:
>
> gNode = DOMXPath_getElem(gRoot: 'company/product': *Omit);
>
> ...here is what the PI looks like...
>
>      D DOMXPath_getElem...
>      D                 PI              *
>      D pNode                           *   Value
>      D pXPath                     32767A   Value Varying
>      D pElemIter                      4P 0 Options(*Omit)
>
> and when I go into debug and display the value of pXPath it shows
> 'mpany/product'.  When I view it in hex it is:
>
> > EVAL pxpath:x
>      00000     83969497 8195A861 97999684 A483A340   - company/product
>
> I am guessing this is because 'co' is getting put into the "length"
> characters, but should it be?
>
> Thanks In Advance,
> Aaron Bartell
> _______________________________________________
> 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.
>
>



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