Re: Testing for first non-blank character

[cmassoglia@xxxxxxxxxxx (Charles L. Massoglia)]

C            ' '         CHECK    JDEDTA       X

If X > 0, X contains the position of the FIRST non-blank character in the
field JDEDTA.

C            ' '         CHEKR    JDEDTA       X

As a side note, CHEKR will find the LAST non-blank character in a field.


>Does anybody have a brilliant little piece of RPGIII code to test for the
>first non-blank character in a right-justified (sorry, JDE stuff) character
>field so that I can substring from that position to the end of the field?  I
>really don't want to use a data structure and test each character if I don't
>have to... I have my pride <g>.
>
>TIA
>


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
+---