MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » October 2012

RE: Obtaining a value from within a string using CL



fixed

Depending in whether the start of the string is in the same place every
time, you may need to scan the string, using IF and a %sst(&varname &ptr 1)
until you locate the second '/' character; add one and you have you start
value. &ptr is a *DEC number you increment by one to move along the string
(BUMP'ing)

Then , a similar process until you find the '.'; simple arithmetic can now
supply the length of your filename;

CHGVAR &filnam %sst(&string &str &len)



Regards

Jeff Bull
iSeries Technical Consultant
NYCO Ltd - iSeries & AS/400 Automation Specialists
Tel: +44(0)20 8416 3778
Fax: +44(0)20 8416 3779
Mobile: +44(0)77 5692 3335
Email: jeff.bull@xxxxxxxxxx
Website: www.nyco.co.uk
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: 03 October 2012 18:02
To: Midrange Systems Technical Discussion
Subject: RE: Obtaining a value from within a string using CL

Thanks for your reply Michael.
I'm sorry, but I am not following.
The start points and length of each example can be different.
How do I obtain the start point and length is the question

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, October 03, 2012 12:57 PM
To: Midrange Systems Technical Discussion
Subject: Re: Obtaining a value from within a string using CL

You could use %SST and a counter if it's always going to be like that,

On Wed, Oct 3, 2012 at 12:48 PM, Alan Shore <ashore@xxxxxxxx> wrote:
Hi everyone
And before I forget (as I normally do) we are on V5r4.
Within CL, is there a way to obtain a string from the following examples.

1. /weborders/PP91055370.txt
From the above, I am looking for the value PP91055370

2. /ifsdir/PP91055370,tx
From the above, I am looking for the value PP91055370

3. /ifsdir2/PP9.txt

From the above I am looking for PP9

In other words, the values between (but NOT including) the second '/' and
'.txt'
As always, any and all responses are MUCH appreciated.


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill


Disclaimer: This message contains confidential information and is intended
only for the individual named. If you are not the named addressee you should
not disseminate, distribute or copy this e-mail. Please notify the sender
immediately by e-mail if you have received this e-mail by mistake and delete
this e-mail from your system. E-mail transmission cannot be guaranteed to be
secure or error-free as information could be intercepted, corrupted, lost,
destroyed, arrive late or incomplete, or contain viruses. The sender
therefore does not accept liability for any errors or omissions in the
contents of this message, which arise as a result of e-mail transmission. If
verification is required please request a hard-copy version. Any views or
opinions presented are solely those of the author and do not necessarily
represent those of the company.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact