View previous topic :: View next topic |
Author |
Message |
chandanm Beginner
Joined: 31 Aug 2004 Posts: 12 Topics: 9
|
Posted: Sun Mar 25, 2007 10:56 pm Post subject: Overriding the TSO command SUBmit used for JCLs |
|
|
Hi,
Is there anyway to override the TSO command SUBmit used for submitting JCLs to JES?
I also wanted to know where does the system search for these commands, i.e. what is the location at which the TSO commands are stored and is there any order of locations specified somewhere where I can go and include my library before the system library to override the SUB command?
Let me know.
Thanx
Chandan |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Mon Mar 26, 2007 1:14 am Post subject: |
|
|
This seems a little misguided. Rather than asking how to implement a solution which in many ways appears to go against the basic design principles of the operating system and most installations' procedures, please state the problem you are trying to solve, and I'm sure people will be able to provide a better proposal. |
|
Back to top |
|
 |
warp5 Intermediate

Joined: 02 Dec 2002 Posts: 429 Topics: 18 Location: Germany
|
Posted: Mon Mar 26, 2007 1:26 am Post subject: |
|
|
Here is a short example, look at the manuals for more information.
Initial setup to have an alias for Sub.
'DEFINE SUB ALIAS FAHRNSUB'
'DEFINE SUBMIT ALIAS FAHRNSUB'
Code: |
/* REXX Fahrnsub */
trace o
'ISREDIT MACRO'
lmsg = 'Submit nur im Selectmodus erlaubt!!!'
address ispexec
"SETMSG MSG(BASL100W)"
exit
Turn alias off, submit, turn alias back on.
'DEFINE SUBMIT RESET'
'DEFINE SUB RESET'
'SUBMIT'
'DEFINE SUB ALIAS FAHRSUB'
'DEFINE SUBMIT ALIAS FAHRSUB'
|
|
|
Back to top |
|
 |
chandanm Beginner
Joined: 31 Aug 2004 Posts: 12 Topics: 9
|
Posted: Mon Mar 26, 2007 8:17 am Post subject: |
|
|
Hi semigeezer,
I m writing a CLIST to override the SUBmit command.
It's just that I need to display a message to the user who does a SUB, and then write a log to some dataset. After which the actual TSO SUB command would be triggered.
I could do the same using a different command, but since everybody has got used to the SUB command, it will take them time to start using the new command. And hence, I want to override this command.
Could u plz provide some help.
Chandanm |
|
Back to top |
|
 |
Bill Dennis Advanced

Joined: 03 Dec 2002 Posts: 579 Topics: 1 Location: Iowa, USA
|
Posted: Mon Mar 26, 2007 10:23 am Post subject: |
|
|
It would seem the TSO command "SUBMIT" would be different than what ISPF does when you say "SUBMIT" during an EDIT/VIEW session. Can you handle both situations?
How about the logging dataset? Is it able to be OPENed by may users at the same time or a single-thread operation? _________________ Regards,
Bill Dennis
Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. |
|
Back to top |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Mon Mar 26, 2007 1:24 pm Post subject: |
|
|
My concern is the same as Bill's. I can issue SUBMIT from any TSO command line, CLIST, Rexx exec, or program, or use the SUBMIT command from the editor, view or browse or SDSF etc and they mean different things. If all you want is to override the editor command, use a macro as warp5 mentioned. But this will not work for TSO commands or from browse. Unfortunately, there is no good way to intercept all of them and you might need to do some odd things as you mentioned at first to intercept all of them. But even that won't intercept job streams written directly to the internal reader. |
|
Back to top |
|
 |
chandanm Beginner
Joined: 31 Aug 2004 Posts: 12 Topics: 9
|
Posted: Tue Mar 27, 2007 2:54 am Post subject: |
|
|
Hi semigeezer,
I m new to CLIST and hence could not put my query in detail.
This is what I need.
I need a REXX/CLIST code to override the TSO SUB and editor SUB commands.
When a user try to SUB a JCL, a message should appear on his screen.
If the user enters Y as the response to the message, the actual SUB command should execute, along with this the users logon id and the jobname need to saved to a dataset or PDS member.
If the user enters N, I just need to exit the CLIST and return to the editor.
Since I m a beginner in CLIST, I request you to provide as muich details as possible.
Thanx,
Chandanm |
|
Back to top |
|
 |
ofer71 Intermediate
Joined: 12 Feb 2003 Posts: 358 Topics: 4 Location: Israel
|
Posted: Tue Mar 27, 2007 2:31 pm Post subject: |
|
|
Have you considered using a JES exit?
O.
________
AUSTRALIAN COOKING
Last edited by ofer71 on Thu Mar 17, 2011 10:56 am; edited 1 time in total |
|
Back to top |
|
 |
Nic Clouston Advanced
Joined: 01 Feb 2007 Posts: 1075 Topics: 7 Location: At Home
|
Posted: Wed Mar 28, 2007 5:12 am Post subject: |
|
|
When you say 'user' do you mean EVERYONE who submits jobs e.g. sys progs, developers, others? If not, you will have to be careful where to place your CLIST. CLIST? yuck - use Rexx, if you can! (personal taste ) _________________ Utility and Program control cards are NOT, repeat NOT, JCL. |
|
Back to top |
|
 |
warp5 Intermediate

Joined: 02 Dec 2002 Posts: 429 Topics: 18 Location: Germany
|
Posted: Thu Mar 29, 2007 1:03 am Post subject: |
|
|
You sure have a big piece to chew on if you want to do this and you are a beginner in CLIST! |
|
Back to top |
|
 |
|
|