Page 1 of 1

HELP me OUT.... in Replacing A string and submitting

PostPosted: Thu Dec 25, 2008 1:36 pm
by manojlives
I need to edit a job and save all "DB2D' to 'DB2C' ; and '50i' to '90r' and submit the job.
i neeed to change again some variables and submit the job agian

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Thu Dec 25, 2008 5:04 pm
by MrSpock
OK, but I don't see a question/problem described anywhere here.

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Fri Dec 26, 2008 8:02 pm
by Bill Dennis
Don't SAVE the JCL. Stack the change commands with SUBMIT and CANCEL so the JCL stays intact for next time.
C 'DB2D' 'DB2C' ALL;C '50i' to '90r' ALL;SUB;CAN;
Use RETRIEVE on a PF key to recall the command and go again.

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Tue Dec 30, 2008 2:42 pm
by manojlives
Hi guys can anyone help me out in doing it thru "JCL or COBOL"
bcoz When using Cobol i have to define as many files as i need to change my variables and submit them.


Using JCL, using TSO commands in IKJEFT01 i get only the first record changed .
eg: sysin dd *
edit 'filename'
c* '33u' '50i'
c * 'db2d' 'db2e'
end save
or is there any other utility that can change bcoz its difficult to say their column position.

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Tue Dec 30, 2008 11:12 pm
by Frank Yaeger
You can use DFSORT's new FINDREP function, available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008), like this:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file
//SYSIN    DD    *
  OPTION COPY
  INREC FINDREP=(INOUT=(C'33u',C'50i',C'db2d',C'db2e'))
/*


If you don't have z/OS DFSORT V1R5 PTF UK90013, ask your System Programmer to install it (it's free).

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

http://www.ibm.com/systems/support/stor ... /mvs/ugpf/

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Wed Dec 31, 2008 5:48 am
by dick scherrer
Hello,

using TSO commands in IKJEFT01 i get only the first record changed
This is because you did not specify ALL in your change commands. Please review what Bill Dennis posted.

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Thu Jan 22, 2009 1:51 pm
by manojlives
dick scherrer wrote:Hello,

using TSO commands in IKJEFT01 i get only the first record changed
This is because you did not specify ALL in your change commands. Please review what Bill Dennis posted.



Hi
//sysin dd *
edit 'dataset(mem)'
c * 33u 50i
end save


//sysin dd *
edit 'dataset(mem)'
c 33u 50i all
end save



both did nto work , it only changes the first found 33u and not the rest

Re: HELP me OUT.... in Replacing A string and submitting

PostPosted: Fri Jan 23, 2009 2:06 am
by dick scherrer
Hello,

Try this:
//SYSTSPRT DD SYSOUT=*                                       
//SYSTSIN  DD *                                             
EDIT 'dataset(mem)' TEXT NONUM       
TOP                                                         
C * 99999999  =33u=501= ALL                             
SAVE                                                         
/*                                                           
Note: systsin rather than sysin.