Re: Trimming off the last char

["Carsten Flensburg" <flensburg@xxxxxxxxxx>]

Hello Jon,

-Or along the same lines:

          Eval      NewX  = %SubSt( X: 1: %CheckR( ' ': X ) - 1 )
-or
          Eval      NewX  =  %Replace( ''
                                     : X
                                     : %CheckR( ' ': X )
                                     : 1
                                     )

Best regards,
Carsten Flensburg

----- Original Message -----
From: "Jon Paris" <Jon.Paris@Partner400.com>
To: <rpg400-l@midrange.com>
Sent: Saturday, March 30, 2002 1:56 PM
Subject: Trimming off the last char


> How do I go about trimming off the last character of some text when the
text
> inside could have variable lengths?
>
> Eval NewX = %Subst(X : 1 : (%Len(%TrimR(X) - 1)
>
> or maybe more obvious is to use a variable length field.
>
> Eval VarX = %TrimR(X)
> Eval %Len(VarX) = %Len(VarX) - 1
>
> Jon Paris
> Partner400
>
>
>
>
> _______________________________________________
> 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.
>