Re: RPGLE pgm to parse a string

Here's a procedure that I use to parse a string.

This procedure returns one field, but the string that was passed into the
procedure is trimmed.  It removed the field from the string and returns
back to the caller.

   myString = 'MY_TESTING_STRING'

    field1 = getField(myString);
     // Now  field1 = 'MY'     myString = 'TESTING_STRING'


    field2 = getField(myString);
     // Now  field2 = 'TESTING'     myString = 'STRING'


    field3 = getField(myString);
     // Now field3 = 'STRING' and mystring = *Blanks



PgetField         B
D getField        PI           255
D   Record                    2000

D Pos             S              4  0
D Ret             S            255
D EndOfRec        C                   X'25'

 /Free
    Ret = *Blanks;
    Pos = %Scan('_':Record:1);
    If Pos = 0;  // If '_' not found check for linefeed
       Pos = %Scan(EndOfRec:Record:1);
    EndIf;
    If Pos <> 0;

       // Move Field To ReturnFld
       Ret = %SubSt(Record:1:Pos-1);

       // Remove Field From Result
       Record = %SubSt(Record:Pos+1:%Len(Record)-Pos);

    EndIf;
    Return Ret;

 /End-Free
PgetField         E


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


                                                                           
             "Stiju Easo"                                                  
             <stiju.as400@gmai                                             
             l.com>                                                     To 
             Sent by:                  "RPG programming on the AS400 /     
             rpg400-l-bounces@         iSeries" <RPG400-L@xxxxxxxxxxxx>    
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             04/04/2006 08:49          Re: RPGLE pgm to parse a string     
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




To be precise how can i reverse a string in RPG,
  I didnt see any inbuilt functions for this
   then how to do it?


On 4/4/06, Stiju Easo <stiju.as400@xxxxxxxxx> wrote:
>
>  I have a varible length string, which i should parse for charecter '_'
> from end of it,
>  Can any one help in this?
>
> None of the parsed parts are fixed length,
>
> I want to know how can i 1) reverse the string,
>                                      2) Read charecter by charecter
>                                      3) add seperated charecter to form a
> new string.
>
--
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.