× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Is the record format name the same as the file name? If so, rename the
record format name.  See RPG Programmer's guide for the RENAME keyword

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/07/2006 11:54          Re: RPGLE pgm to parse a string     
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




i will check it out Francis,
  thanks for the tip


i am getting a strange error in compiling a RPGLE ussing a PF

 it is

1)Record-format name in externally-described file already
defined; record format ignored.
2)The name or indicator is not defined.
3)Expression contains an operand that is not defined.
All Record Formats for externally-described file ignored or


It compiles if i dont use this file
 Agian i checked i am not ussing that record format, i am sure
 can u throe some light into it?



On 4/7/06, Lapeyre, Francis <FLAPEYRE@xxxxxxxx> wrote:
>
> A word of caution, though - you need to use the fixed-format SCAN opcode
-
> the BIF %SCAN only returns the result to the first element of the array,
> at
> least on V5R1 (I got bit by that one).
>
>
> Francis
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Stiju Easo
> Sent: Friday, April 7, 2006 2:23 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: RPGLE pgm to parse a string
>
> Thanks *Jonathan Mason*
> * *
> *         *ur idea was the best,
>         i was troubled with reverse way
>
>             thanks for all who contributed to this thread
>                 hoping that i get an opportunity to return courtesy
>
>
> On 4/6/06, Jonathan Mason <jonathan.mason@xxxxxxxxxxxxxxxx> wrote:
> >
> > Terry
> >
> > >> You can populate an array with the positions of a search argument
> > >> with a string using the SCAN op code.
> >
> > Thanks for that, in 20+ years of programming RPG I had never noticed
> > that
> > -
> > just goes to show you never stop learning.
> >
> > Stiju,
> >
> > Using the SCAN op code as Terry suggests, the following sub-procedure
> > seems to do what I think you want:
> >
> >     H DFTACTGRP(*NO)
> >
> >     D ParseIt         pr           255a   Varying
> >     D  iString                    1024a   Value
> >     D  iSep                          1a   Value Options(*NoPass)
> >
> >     D wResult         s             32a
> >
> >      * Expect *NULL as only two words in string...
> >     C                   Eval      wResult=ParseIt('The_Cat')
> >     C     wResult       Dsply
> >
> >      * Expect "The" as only three words in string...
> >     C                   Eval      wResult=ParseIt('The_Cat_Sat')
> >     C     wResult       Dsply
> >
> >      * Expect "Cat" as third last word in string...
> >     C                   Eval      wResult=ParseIt('The_Cat_Sat_On')
> >     C     wResult       Dsply
> >
> >      * Expect *NULL as only two words in string...
> >     C                   Eval      wResult=ParseIt('_Cat_Sat')
> >     C     wResult       Dsply
> >
> >      * Expect *NULL as third last word is missing...
> >     C                   Eval      wResult=ParseIt('The__Cat_Sat')
> >     C     wResult       Dsply
> >
> >      * Expect "The" as third last word in string...
> >     C                   Eval      wResult=ParseIt('The-Cat-Sat':'-')
> >     C     wResult       Dsply
> >
> >     C                   Eval      *InLr = *On
> >
> >     p ParseIt         b
> >
> >     D ParseIt         pi           255a   Varying
> >     D  iString                    1024a   Value
> >     D  iSep                          1a   Value Options(*NoPass)
> >
> >     D Pos             s              5  0 Dim(1024)
> >     D Ix              s              5  0
> >
> >     D wSep            s              1a
> >     D Error           c                   Const('*ERROR')
> >     D Null            c                   Const('*NULL')
> >     D Pos1            s              5  0
> >     D Pos2            s              5  0
> >     D Pos3            s              5  0
> >     D wPos            s              5  0
> >
> >      * Check the number of parameters passed...
> >
> >     C                   Select
> >     C                   When      %Parms = 1
> >     C                   Eval      wSep = '_'
> >     C                   When      %Parms = 2
> >     C                   Eval      wSep = iSep
> >     C                   Other
> >     C                   Return    Error
> >     C                   EndSl
> >
> >      * Scan the string for all occurrences of the separator
> >      * character.  The first element of the Pos array will hold
> >      * the first occurrence, the second the second, etc.  All
> >      * elements after the last occurrence of the separator character
> >      * will be zero...
> >
> >     C     wSep          Scan      iString       Pos
> >
> >
> >      * There need to be at least two separator characters from the
> >      * end of the string.  If there are three or more then we need
> >      * return the value between the 3rd and 2nd separators, but if
> >      * there are only two and the second starts in position 2 or
> >      * later then the word we want starts in position 1...
> >
> >     C                   Eval      Pos1 = 0
> >     C                   Eval      Pos2 = 0
> >     C                   Eval      Pos3 = 0
> >
> >      * First we need to find the last occurrence of the separator
> >      * character...
> >
> >     C                   Eval      Ix = 1
> >     C     *Zero
> > Lookup    Pos(Ix)                                91
> >
> >      * ...and then Determine the last three occurrences of
> >      * the separator character in the string, Pos1 being the
> >      * last occurrence...
> >
> >     C                   If        Ix > 1
> >     C                   Eval      Pos1 = Pos(Ix-1)
> >     C                   EndIf
> >
> >     C                   If        Ix > 2
> >     C                   Eval      Pos2 = Pos(Ix-2)
> >     C                   EndIf
> >
> >     C                   If        Ix > 3
> >     C                   Eval      Pos3 = Pos(Ix-3)
> >     C                   EndIf
> >
> >      * Return a value depending on the contents of Pos3 and Pos2...
> >
> >     C                   Select
> >     C                   When      Pos3 = 0 and Pos2 = 0
> >     C                   Return    Null
> >     C                   When      Pos3 = 0 and Pos2 > 1
> >     C                   Return    %Subst(iString:1:Pos2 - 1)
> >     C                   When      Pos3 > 1 and Pos2 = Pos3 + 1
> >     C                   Return    Null
> >     C                   When      Pos3 > 1 and Pos2 > Pos3 + 1
> >     C                   Return    %Subst(iString:Pos3+1:Pos2-Pos3-1)
> >     C                   Other
> >     C                   Return    Null
> >     C                   EndSl
> >
> >     p ParseIt         e
> >
> > It returns the third last delimited "word" from the string and allows
> > you to specify the delimiter.  If no delimiter is specified then "_"
> > is used.  If there are fewer than three delimited "words" in the
> > string then "*ERROR"
> > is
> > returned.
> >
> > All the best
> >
> > Jonathan
> >
> >
> >
> >
> > --
> > 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.
> >
> >
> --
> 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.
> --
> 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.
>
>
--
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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.