Re: bug in %editw / %trim? (V4R5)

[Rich Duzenbury <rduz@xxxxxxxxxxxxxxxxxxx>]

That worked great, thank you.

I guess I'm used to continuation lines in CL, where a '+' is necessary.  I
must have looked it over five or six times, and could not see it was a problem.

Regards,
Rich

At 03:45 PM 10/10/01, Robert Upshall wrote:
>try removeing  the + from the %trim(+ line
>
>----- Original Message -----
>From: "Rich Duzenbury" <rduz@westernmidrange.com>
>To: <RPG400-L@midrange.com>
>Sent: Wednesday, October 10, 2001 3:45 PM
>Subject: bug in %editw / %trim? (V4R5)
>
>
> > %EditW is returning a string containing a leading blank for the edit code
> > given and data given, which is fine and expected.
> >
> > For my purposes, I want to %trim any blanks.  In order to do so, I'm
>having
> > to store the edited date into an intermediate field, and then %trim it
>(The
> > second half of the sample, starting at line 10).
> >
> > If you try to compile the attached sample, it fails at line 7, with
>RNF7421
> > 'Operands are not compatible with this type of operator'.  AFAIK, that
> > should not be the case.
> >
> > Please advise.
> >
> > Regards,
> > Rich
> >
> > 0001.00 C                   z-add     7312001       #date             8 0
> > 0002.00 C                   movel     *blanks       $dv              25
> > 0003.00 C                   movel     *blanks       $dv2             25
> > 0004.00 C*
> > 0005.00 C                   eval      $dv = 'Date: ' +
> > 0006.00 C                                   %trim( +
> > 0007.00 C                                   %EditW(#date  : '  /  /    '))
> > 0008.00 C     $dv           dsply
> > 0009.00 C*
> > 0010.00 C                   eval      $dv2 = %EditW(#date : '  /  /    ')
> > 0011.00 C                   eval      $dv = 'Date: ' +
> > 0012.00 C                                   %trim( $dv2 )
> > 0013.00 C     $dv           dsply
> > 0014.00 C*
> > 0015.00 C                   seton
>lr
> >
> > _______________________________________________
> > 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.
> >
>
>_______________________________________________
>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.

Regards,
Rich