MVSFORUMS.com

nin_Ta · Beginner Joined: 02 Mar 2004 Posts: 6 Topics: 3

Hi,

Here is the requirement.
I have to find the text that is there between two ':'. And these can be anywhere in the record. And the string length that is in between two ':' can vary. Total record length is 80. I just wanted to know whether this can be done using JCL.

Thanks,
Nin

kolusu · Posted: Tue Mar 02, 2004 8:00 am Post subject:

nin_Ta,

Can you please elaborate more on your request? what do you want to do when : is found? Please post a sample input and desired output so that we can provide a solution

Thanks,

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

nin_Ta,
Use batch SearchFor.

nin_Ta · Beginner Joined: 02 Mar 2004 Posts: 6 Topics: 3

I have to copy the string that is there in between colons. Also we don't the string. We have to copy whatever data that is there in between.

nin_Ta · Beginner Joined: 02 Mar 2004 Posts: 6 Topics: 3

And the sample data is:

AAAAAAAAAAAAA:MDPAB:AAAAAAAAAAAAAAAAAAAAAAAA till 80 bytes
:GHLK:AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa...

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

Do yo have file-Aid ?

Cogito-Ergo-Sum · Posted: Tue Mar 02, 2004 8:36 am Post subject:

Suresh,
I must say that, this usage of SUPERC was not known to me. But, isn't it same as

Cogito-Ergo-Sum · Posted: Tue Mar 02, 2004 8:38 am Post subject:

Yes, they are same. I just tested with the above SYSIN statements. I get the same (correct) output as above.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

Cogito-Ergo-Sum,
maybe the solution is simple and your method works, i will test it. What I provided was a generic process :

SRCHFOR ':' First search records have ":"
SRCHFORC 'SEARCH STRING',+ then search if the search string is anywhere after ":"
SRCHFORC ':',+ then search if there is a ":" after the previous search
In this process the search string can be floating anywhere inbetween the ::, anyway nina_ta requirement is to get all data between ::.
nina you can try
SRCHFOR ':'
SRCHFORC ':',+
this will give you all lines with :xxx:, then use a dort to remove the :: or isolate what is between the ::

kolusu · Posted: Tue Mar 02, 2004 8:56 am Post subject:

Nin_ta,

As I said please post all the details.

Input:

Cogito-Ergo-Sum · Posted: Tue Mar 02, 2004 9:07 am Post subject:

Suresh,
I am not suggesting any solution! I am saying that, what you initially posted is same as what I posted as modified SYSIN.

Frankly, I am not sure, if any utility can do this as there is no pattern available (unless, of course, too much efforts are expended). We do not know starting and/or ending column of columns. The string itself and/or its length is also not known. In such a situation, perhaps, a REXX program using PARSE instruction sounds better.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

Cogito-Ergo-Sum · Posted: Tue Mar 02, 2004 12:12 pm Post subject:

Here is a REXX code for your purpose. I am assuming only a pair of colons per record.

This the REXX code saved as NINTA in ABC.DEF.XYZ PDS.

nin_Ta · Beginner Joined: 02 Mar 2004 Posts: 6 Topics: 3

Kolusu,

I want the output in the format mentioned by you.

Thanks for the REXX solution. It worked.

I am just curious to know whether we can achieve the same with JCL.

Thanks,
NIN

Cogito-Ergo-Sum · Posted: Wed Mar 03, 2004 8:33 am Post subject:

You are welcome, NIN.

You are executing the REXX code via a job, right? So, this is the JCL way of doing. Smile

I am not aware of a quick way of doing this by a utility.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Wed Mar 03, 2004 8:34 am Post subject:

Ninta,

I am afraid that there are no utilities( sort , file-aid , IBM utilities..) which can give you the desired results.

If easytrieve is an option then the following code will give you the desired results.