|
View previous topic :: View next topic
|
| Author |
Message |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| You can of course use IGGCSI00 (basic example usually found in SYS1.SAMPLIB) to get the SHR parameters. |
|
| Back to top |
|
 |
chavinash2004
New User
Joined: 30 Jun 2010
Posts: 37
Location: hyderabad
|
|
|
|
Thanks a lot for your help Marso.
Have a great day ahead:)
Stay safe from corona. |
|
| Back to top |
|
|
chavinash2004
New User
Joined: 30 Jun 2010
Posts: 37
Location: hyderabad
|
|
|
|
Thanks a lot for your help expat.
Have a great day ahead:)
Stay safe from corona. |
|
| Back to top |
|
|
chavinash2004
New User
Joined: 30 Jun 2010
Posts: 37
Location: hyderabad
|
|
|
|
| Joerg.Findeisen wrote: |
This works for me.
| Code: |
/* REXX */
address "ISREDIT"
"macro"
"c r'(SHR|SHAREOPTIONS)"!!,
"[ ]*\([ ]*[1-4]([ ]+|[ ]*,[ ]*)[34][ ]*\)' 'SHR (2 3)' all"
exit |
|
Hi Joerg,
Sorry to bother again on this topic.
Since you given very simple command to solve my issue. I'm posting my question again.
I just encountered another scenario. If user added "0" prefix then the code not working. I have provided the examples below.
Not working in below Scenario:
| Code: |
SHR (04 03)
SHR (01 03)
SHR (04 04)
|
Working fine in below Scenario:
If "0" prefix is not there then it's working fine.
| Code: |
SHR (4 3)
SHR (1 3)
SHR (4 4)
|
Input:
| Code: |
SHR (3 3) -
SHR (03 03) -
STAGE SHR (1 3) NERAS -
SHAREOPTIONS(2 3) -
SHR(3,3) -
SHR(2,3) -
SHR(4,3) -
SHR (04,03) -
SHR(4,4) -
SHR(04,04) -
SHR(3,3) -
SHR (1,3) -
SHR (01,03) -
SHR ( 3 4 )
SHR (3 , 4 )
SHAREOPTIONS ( 1 , 4)
SHAREOPTIONS ( 2 , 1)
SHAREOPTIONS ( 1 , 2)
SHAREOPTIONS ( 1 , 3)
SHAREOPTIONS ( 01 , 03)
SHAREOPTIONS ( 4 , 4)
SHAREOPTIONS ( 2 , 4)
SHAREOPTIONS ( 4, 3)
|
Output:
We can see which are "0" as prefix did not changed.
| Code: |
SHR (2 3) -
SHR (03 03) -
STAGE SHR (2 3) NERAS -
SHR (2 3) -
SHR (2 3) -
SHR (2 3) -
SHR (2 3) -
SHR (04,03) -
SHR (2 3) -
SHR(04,04) -
SHR (2 3) -
SHR (2 3) -
SHR (01,03) -
SHR (2 3)
SHR (2 3)
SHR (2 3)
SHR (2 3)
SHR (2 3)
SHR (2 3)
SHAREOPTIONS ( 01 , 03)
SHR (2 3)
SHR (2 3)
SHR (2 3)
|
Can we add some thing in this command to resolve this issue. |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1252
Location: Bamberg, Germany
|
|
|
|
Try the following update, please.
Input:
| Code: |
/* REXX */
address "ISREDIT"
"macro"
"c r'(SHR|SHAREOPTIONS)"||,
"[ ]*\([ ]*[0]?[1-4]([ ]+|[ ]*,[ ]*)[0]?[34][ ]*\)' 'SHR (2 3)' all"
exit
|
Output:
| Code: |
SHR(2 3) -
SHR(2 3) -
STAGE SHR(2 3) NERAS -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3)
SHR(2 3)
SHR(2 3)
SHAREOPTIONS ( 2 , 1)
SHAREOPTIONS ( 1 , 2)
SHR(2 3)
SHR(2 3)
SHR(2 3)
SHR(2 3)
SHR(2 3) |
|
|
| Back to top |
|
|
chavinash2004
New User
Joined: 30 Jun 2010
Posts: 37
Location: hyderabad
|
|
|
|
| Joerg.Findeisen wrote: |
Try the following update, please.
Input:
| Code: |
/* REXX */
address "ISREDIT"
"macro"
"c r'(SHR|SHAREOPTIONS)"||,
"[ ]*\([ ]*[0]?[1-4]([ ]+|[ ]*,[ ]*)[0]?[34][ ]*\)' 'SHR (2 3)' all"
exit
|
Output:
| Code: |
SHR(2 3) -
SHR(2 3) -
STAGE SHR(2 3) NERAS -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3) -
SHR(2 3)
SHR(2 3)
SHR(2 3)
SHAREOPTIONS ( 2 , 1)
SHAREOPTIONS ( 1 , 2)
SHR(2 3)
SHR(2 3)
SHR(2 3)
SHR(2 3)
SHR(2 3) |
|
Thank you Joerg. It worked.
Looks like you are Master of shortcuts  .
Good to see you in this forum. |
|
| Back to top |
|
|
|
|
