View previous topic :: View next topic
|
Author |
Message |
Abhi Nature
New User
Joined: 14 Dec 2011 Posts: 17 Location: India
|
|
|
|
Hello,
I am planning to use same user exit routine (a COBOL program) for E15 and E35.
It is possible to find out within the called COBOL program as to what exit routine (E15 or E35) has called it?
Thanks! |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
There's a whole chapter on Exits in the manual. What does that say? |
|
Back to top |
|
|
Abhi Nature
New User
Joined: 14 Dec 2011 Posts: 17 Location: India
|
|
|
|
I did not find anything in the manual which specifies the source of call to user exit routine. Is it possible to find the source of call? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
Quote: |
I did not find anything in the manual which specifies the source of call to user exit routine.
|
given the above premise
asking
Quote: |
Is it possible to find the source of call? |
is just a waste of time for everybody |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
Back to top |
|
|
Abhi Nature
New User
Joined: 14 Dec 2011 Posts: 17 Location: India
|
|
|
|
enrico-sorichetti wrote: |
Quote: |
I did not find anything in the manual which specifies the source of call to user exit routine.
|
given the above premise
asking
Quote: |
Is it possible to find the source of call? |
is just a waste of time for everybody |
I had thought I might be missing something. Thanks anyway. |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
|
|
Quote: |
I had thought I might be missing something. Thanks anyway |
YES, The Google Search. |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Abhi,
If the manual does not say much about it, try any of these as mentioned in the manual. They should be able to help you.
- Contact your IBM service representative
- Call IBM Technical Support
- Visit the IBM support portal at ibm.com/systems/z/support
You might have to register in the IBM support portal in order to submit a service incident. I have tried this in the past for some other IBM products and they were pretty quick in responding to tickets each time.
Good luck! |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
An E15 prepares or provides input for SORT.
An E35 processes output from SORT.
I'm having difficulty understanding why you want to use the same program for E15 and E35. Can you explain more?
I don't think it will work if you use the same program name for each exit. You could use the same source, different program name, I just don't get why this would be useful. |
|
Back to top |
|
|
Abhi Nature
New User
Joined: 14 Dec 2011 Posts: 17 Location: India
|
|
|
|
Bill Woodger wrote: |
I'm having difficulty understanding why you want to use the same program for E15 and E35. Can you explain more? |
E15 and E35 exit had a lot similar processing with very few differences. That's why thought of writing single code with difference separated by identifying if E15 called it or E35. Writing different codes is the final resort.
Bill Woodger wrote: |
I don't think it will work if you use the same program name for each exit. You could use the same source, different program name, I just don't get why this would be useful. |
Yes, I suppose the only things that SORT passes to user exit are return code (0, 4 or 8) and record address. So there isn't any trace as to which exit called it, or are you saying this because same program would be re- loaded in the memory? |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
If you have duplicated code (but why, what is it doing at input that it also needs to do at output) you have CALL and COPY.
My concern is whether you get a new copy of the program or not, or whether it just fails (I've never thought to try it).
However, if the "mechanics" work (you'll have to try that) there would be a way to do it. There is a separate area of defined storage which is passed to the exits which allows inter-exit communication. Which is just what you want to do.
It is in that same chapter in the current manual for your version of DFSORT. Test in the E15 (set to indicate E15 has been entered). Test in the E35 (spots that the E15 as been entered, so it must be the E35).
So possible, if the mechanics work. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Using the The Extended Parameter List you can supply a 4 character call identifier (offset 32 (dec)). |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
The Extended Parameter List is only available for program-invoked SORTs. It is not available for the interface between EXEC PGM=SORT and an exit. |
|
Back to top |
|
|
|