IBM MAINFRAME HELP & SUPPORT FORUMS

Prathap Pillai P · Joined: 08 Sep 2005 Posts: 16

I have a string (say AA)in a flat file(not fora PDS member) and i want to change all the string starting with AA to BB.Is there any JCL utility to do the same.

guptae · Joined: 14 Oct 2005 Posts: 1025 Location: Bangalore,India

Hi Prathap,

please refer ur prev post.

http://ibmmainframes.com/viewtopic.php?t=14500&highlight=

Just give ur flat file name .

Prathap Pillai P · Joined: 08 Sep 2005 Posts: 16

Hi Ekta

I tried that but it didnt work,So if u have any JCl for Flat files. Please send it across me.

Thanks
Prathap

shreevamsi · Joined: 23 Feb 2006 Posts: 320 Location: Hyderabad,India

IF there is FILEAID utility in your Shop, Try this JCL:

//**
//STEP010 EXEC PGM=FILEAID
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD03 DD DISP=SHR,DSN=XXX.XXXX.XXXX
//SYSIN DD *
$$DD03 UPDATE ME=9999,
EA=(1,0,T"TAX",C"TAX1")
/*

~Vamsi

Prathap Pillai P · Joined: 08 Sep 2005 Posts: 16

Hey Vamsi,

Thanks its working

Frank Yaeger · Joined: 15 Feb 2005 Posts: 4579 Location: San Jose, CA

You can now use DFSORT's new FINDREP function available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) to do this kind of thing quite easily like this:

Code:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC FINDREP=(IN=C'AA',OUT=C'BB')
/*

For complete details on the new FINDREP function and the other new functions available with PTF UK90013, see:

www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/