View previous topic :: View next topic
|
Author |
Message |
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
Hi,
I have got a typical requirement.
When ever I find a string in statement ( say Job ) , i need to insert the string '//*' in the first column.
This is to be done with REXX.
Can anybody help me with this ??
Thanks,
ap_mainframes |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Yes, an ISPF edit macro will do exactly what you want it to do. |
|
Back to top |
|
|
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
Can you please let me know which ?? |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Here are the steps:
1. Start a FIND loop for the string in question.
2. Check the RC (RC=0 means the string was found).
3. If the string was found, get the line using LINE .ZCSR.
4. Use OVERLAY or INSERT to create the desired new line.
5. Use LINE again to override the old line.
6. Search for next occurence.
O. |
|
Back to top |
|
|
ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
Hi,
I think i need to be more clear in my requirement.
Basically the requirement is to Comment the Job Card in a JCL with a REXX routine.
Now I thought that the approach would be to find the strings
' JOB ' in the line and comment it.
' MSGCLASS ' in the line and comment it then..
Can anybody explain it now??
Thanks for all the help provided.
Thanks,
ap_mainframes |
|
Back to top |
|
|
|