RE: %TRIMR

[<BVStone@xxxxxxxxxxxxxx>]

> -----Original Message-----
> From: Rbbaird [SMTP:Rbbaird@premsys.com]
> Sent: Thursday, March 12, 1998 3:22 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: %TRIMR
> 
> Darlene K. Brengle wrote:
> 
> >  LOCATION will have the value '  Toronto, Ontario'.
>  
> >                   EVAL      LOCATION = %TRIMR('  Toronto, Ontario
> ')
> 
> to right justifify, try this:
>  
> c            eval     location = *blanks 
> c            eval     $work = %trim('   toronto, ontario  ')
> c            eval     $start = %len(location) - %len($work) + 1
> c            eval     %subst(location:$start:$len($work)) =
> %trim($work)
> 
        [Stone, Brad V (TC)]  This won't work.  %len($work) will return
the length of the field, not how many characters there are.  CHECK and
CHECKR should be used to get the starting and ending character
posistions, and then uses these to get the start posistion.

> hope this helps,
> 
> rick
> 
> "I'm not fat, I'm just big boned!"
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---