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



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

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

Postby manojlives » Thu Dec 25, 2008 1:36 pm

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
manojlives
 
Posts: 37
Joined: Wed Dec 24, 2008 5:15 pm
Has thanked: 0 time
Been thanked: 0 time

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

 

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

Postby MrSpock » Thu Dec 25, 2008 5:04 pm

OK, but I don't see a question/problem described anywhere here.
User avatar
MrSpock
Global moderator
 
Posts: 810
Joined: Wed Jun 06, 2007 9:37 pm
Location: Raleigh NC USA
Has thanked: 0 time
Been thanked: 2 times

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

Postby Bill Dennis » Fri Dec 26, 2008 8:02 pm

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.
Regards,

Bill Dennis

Disclaimer: My comments on this forum are my own and do not represent the opinions or suggestions of any other person or business entity.
Bill Dennis
 
Posts: 278
Joined: Thu May 15, 2008 9:45 pm
Has thanked: 0 time
Been thanked: 0 time

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

Postby manojlives » Tue Dec 30, 2008 2:42 pm

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.
manojlives
 
Posts: 37
Joined: Wed Dec 24, 2008 5:15 pm
Has thanked: 0 time
Been thanked: 0 time

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

Postby Frank Yaeger » Tue Dec 30, 2008 11:12 pm

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/
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1080
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 14 times

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

Postby dick scherrer » Wed Dec 31, 2008 5:48 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

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

Postby manojlives » Thu Jan 22, 2009 1:51 pm

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
manojlives
 
Posts: 37
Joined: Wed Dec 24, 2008 5:15 pm
Has thanked: 0 time
Been thanked: 0 time

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

Postby dick scherrer » Fri Jan 23, 2009 2:06 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post