Search and copy a part of a string using DFSORT

maki_psg · New User Joined: 28 Jan 2010 Posts: 47 Location: India

Hi,

I would like to search for a string from one file and copy a part of a string (GDG name) into another file. The string would be available anywhere in line between column 01 and 80.

Sample Input file -

SYSMSG IEF100I ETC..
IEF375I DSN=MYTEST.MNCFILE.WEEKLY.G0101V00 CREATED
SYSMSG IEF200I ETC..

Expected Output file -

MYTEST.MNCFILE.WEEKLY.G0101V00

I found a way to search and copy the record using the INCLUDE statement.

INCLUDE COND=(1,80,SS,EQ,C'MYTEST.MNCFILE.WEEKLY.G').

However, the requirement is just to copy the string alone, but NOT the complete record into output file as shown below.

IEF375I DSN=MYTEST.MNCFILE.WEEKLY.G0101V00 CREATED

maki_psg · New User Joined: 28 Jan 2010 Posts: 47 Location: India

Forgot to update another important thing..

The string (GDG name) would be matched at many places in any column (01 to 80). However, I would like to copy the string only once in the output file.

Bill Woodger · Posted: Fri Oct 12, 2012 7:41 pm

Having filtered to just the records you want, it is then a simple PARSE to get the dataset name, with STARTAFT=C'DSN=' and ENDBEFR=BLANKS.

If you are only searching for one value, you can limit the file to one record with OUTFIL.

Skolusu · Posted: Fri Oct 12, 2012 10:07 pm

Maki_psg,

Use the following Control cards which will give you the desired results.

maki_psg · New User Joined: 28 Jan 2010 Posts: 47 Location: India

Thank you, Bill and Skolusu. Your suggestions were working fine..

Bill Woodger · Posted: Wed Oct 17, 2012 9:49 pm

With Kolusu's neat solution, symbols/SYMNAMES would work really well. No chance of a typo giving different values...