|
midrange.com
I don't know about others, but I'm really having trouble understanding what
you want.
If you want to reverse the string. How about moving the string to an array
that is one character long dimmed the number of characters there are in the
string.
D DS
D stringArray 1 Dim(25)
D string 25
/Free
// read the array backwards
For iX = 25 DownTo 1;
character = stringarray(iX);
EndFor;
Mind you, that this is coming from memory, you may need to tweak the DS
around.
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 11:03 Re: RPGLE pgm to parse a string
AM
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
I asked for reverse of string bcoz i can take values b/w 2nd and 3rd '_' 's
flatly
then reverse obtained string
The problem with earlier post is ,how can i correctly gusses a charecter
just after third but last '_' , it is error prone, otherwise that logic is
good
Any one plse guide me, is there any way other than reversing string?
On 4/4/06, Alan Shore <AlanShore@xxxxxxxx> wrote:
>
>
> Could you please post before and after examples of what you are looking
> to
> accomplish.
> For example, I THINK what you are looking for is as follows:-
>
> BEFORE = 'This_is_just_one_example_of_what_I_think_you_want'
> Because you "want to extract values b/w second last '_' and third last
> '_'"
> AND
> "reverse of string" (I'm not really too sure what you want here, just
> guessing
> AFTER = 'tnaw uoy_knith_I tahw fo elpmaxe eno tsuj si sihT'
>
> Now this may be totally NOT what you are looking for, so please give
> examples.
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
>
>
>
> "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 09:21 Re: RPGLE pgm to parse a string
> AM
>
>
> Please respond to
> RPG programming
> on the AS400 /
> iSeries
> <rpg400-l@midrang
> e.com>
>
>
>
>
>
>
> Its for searching a string rite
> I want to search in reverse of string ( i could only count sperator
while
> reading in that direction)
> plse help me to reverse the string.
>
> I need it soon
>
> On 4/4/06, Michael_Schutte@xxxxxxxxxxxx <Michael_Schutte@xxxxxxxxxxxx>
> wrote:
> >
> > %checkr
> >
> > 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.
> >
> >
> >
> > --
> > 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 mailing list archive is Copyright 1997-2025 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.
