Re: Literal chopped off by varying when passed

["Pete Clifford" <Pete@xxxxxxxxxxxxxxxxxx>]

I'm running this on V5R2. What release are you on?
"Pete Clifford" <Pete@xxxxxxxxxxxxxxxxxx>
wrote in message news:b89gtd$ir7$1@xxxxxxxxxxxxxxxxx
> 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=5EXeuedLdp6bBycac4vDjsBEqOuHUx5c
4b8TPpkIZ3Q@xxxxxxxxxxxxxxxx
> > 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.
> >
> >
>
>
>
> _______________________________________________
> 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.
>
>