IBM Mainframe Forum

by **whowillwait4u** » Wed Feb 22, 2012 7:22 pm

Hi,

I have input data as shown below.
// DD DSN=abcd
// 7456546 DD DSN=efgh
// 666 DD DSN=ijkl
// DD DSN=mnop 909
// 6545 DD DSN=qrst

output should be:

abcd
efgh
ijkl
mnop
qrst

Could you please help...?

by **enrico-sorichetti** » Wed Feb 22, 2012 7:46 pm

how is the substring terminated ?

by **BillyBoyo** » Wed Feb 22, 2012 8:16 pm

That doesn't look like valid DD names, but if that is what you have, some amendment of Kolusu's post from here: http://ibmmainframes.com/about57422.html might do you.

by **Frank Yaeger** » Wed Feb 22, 2012 11:37 pm

whowillwait4u,

Assuming the DSN=name field ends with a blank and that the name can be up to 44 bytes long, you can use a DFSORT job like the following:

Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC PARSE=(%1=(STARTAFT=C'DSN=',ENDBEFR=C' ',FIXLEN=44)),
BUILD=(%1)
/*

IBM Mainframe Forum

Substring anywhere in the record

Substring anywhere in the record

Re: Substring anywhere in the record

Re: Substring anywhere in the record

Re: Substring anywhere in the record