RE: RPGLE pgm to parse a string

True, but the original poster would have an idea of how long his full string
is likely to be and should be able to dimension his array accordingly.  In
the example sub-procedure I posted I used a maximum string length of 1024
and an array of 1024 which is probably overkill for the situation, but as
long as it caters for the requirements it can be adjusted to a more
appropriate size as necessary.

Jonathan

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Michael_Schutte@xxxxxxxxxxxx
Sent: 06 April 2006 13:29
To: RPG programming on the AS400 / iSeries
Subject: Re: RPGLE pgm to parse a string

<<The number of elements in Array must equal the number of characters in
ScanString.>>

That's exactly why it was never suggested.  The string doesn't always have
the same amount of variables.

Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             "Terry                                                        
             Richardson"                                                   
             <terry-sssc@adelp                                          To 
             hia.net>                  <rpg400-l@xxxxxxxxxxxx>             
             Sent by:                                                   cc 
             rpg400-l-bounces@                                             
             midrange.com                                          Subject 
                                       Re: RPGLE pgm to parse a string     
                                                                           
             04/05/2006 09:08                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




I didn't see anyone mention using the SCAN op code.  I know, everyone here
seems to think /free is a must, but the %scan BIF is lacking something the
good old op code gave us.  You can populate an array with the positions of
a
search argument with a string using the SCAN op code.

Take the following string.

'my_string_to_be_scanned_and_fill_array_with_positions_where_underscore_is'

Using the following:

C     '_'           SCAN      ScanString    Array

The resulting array will contain the values
3,10,13,16,24,28,33,39,44,54,60,71,0,0,0,0,0,0,0,......

The number of elements in Array must equal the number of characters in
ScanString.

So to get the word 'where' as you requested, take the resulting array, do a
LOOKUP for the first occurrence of a zero value, and subtract 2 from the
index, save the element value in Y, subtract one more from the index, save
the element value in X, then use the following to get the string you want:

C                   EVAL      WhatIWant = %subst(ScanString:X+1:Y-1)

Note:  I have not tested this, just did this off the top of my head.
****************************************


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.