Re: Scanning from the right

Rick and John,

You want to use %len(%trimR(field)).  %trim would trim off any leading blanks.
>
>look at the CHECKR opcode. With a search argument of ' ', it checks
>for the first position that DOESN'T contain the search argument.
>
>also, in rpgiv, %len(%trim(field)) will return the last non-blank
>position in a string.
>
>hth,
>
>Rick
>
>John Earl wrote:
>> 
>> Is it possible to scan a string from the right in RPG?
>> 
>> I need to find the end of a character string that may have
>> embedded blanks in it.  It seems like the best way to do
>> that is to scan from the right for the first non-blank
>> character.
>> 
>> Any ideas?
>> 
>> jte
>> 
>> --
>> John Earl
>> PowerTech Toolworks
>> johne@toolnet.com
>> 253-858-7388
>> 
>> Riley Nichole Earl, Born 7/6/98 - 8lb 11oz.  Already an
>> AS/400 fan!
>> --
>> 
>> +---
>> | This is the Midrange System Mailing List!
>> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>> | To subscribe to this list send email to MIDRANGE-L-SUB@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 subscribe to this list send email to MIDRANGE-L-SUB@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
>+---
>
>


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---