Re: Literal chopped off by varying when passed

["Pete Clifford" <Pete@xxxxxxxxxxxxxxxxxx>]

Here's my code:

D GetElement      PR              *
D pNode                           *   Value
D pXPath                     32767A   Value Varying
D pElemIter                      4P 0 Options(*Omit)

D gNode           S               *
D gRoot           S               *

/free
    gNode = GetElement(gRoot: 'company/product': *Omit);
    return;
/end-free

P GetElement      B

D GetElement      PI              *
D pNode                           *   Value
D pXPath                     32767A   Value Varying
D pElemIter                      4P 0 Options(*Omit)

 /free
     return *null;
 /end-free

P GetElement      E

"Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>
wrote in message
news:2497EFFF2CEDF746A51832AD269D45D947E184@xxxxxxxxxxxxxxxxxxxxxxxxx
> I will try that, but this sub proc will be getting a literal 99% of the
> time, so that is why I need to get it working with a literal.
>
> Thanks for the response Roger,
> Aaron Bartell
>
> -----Original Message-----
> From: Mackie, Roger L. (Precision Press)
[mailto:RLMackie@xxxxxxxxxxxxx]
> Sent: Thursday, April 24, 2003 2:53 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Literal chopped off by varying when passed
>
>
> What happens when you put 'company/product' into a VARYING length field
and
> pass it instead of the literal?
>
> Roger Mackie
>
> -----Original Message-----
> From: Bartell, Aaron L. (TC)
[mailto:ALBartell@xxxxxxxxxxxxxx]
> Sent: Thursday, April 24, 2003 14:47
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Literal chopped off by varying when passed
>
>
> This is RPG calling RPG using a VARYING length field on the receiving end
> and a character literal on the calling end.<snip>
> _______________________________________________
> 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.
>
>