MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Overriding the TSO command SUBmit used for JCLs

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
chandanm
Beginner


Joined: 31 Aug 2004
Posts: 12
Topics: 9

PostPosted: Sun Mar 25, 2007 10:56 pm    Post subject: Overriding the TSO command SUBmit used for JCLs Reply with quote

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
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Mon Mar 26, 2007 1:14 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Mon Mar 26, 2007 1:26 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
chandanm
Beginner


Joined: 31 Aug 2004
Posts: 12
Topics: 9

PostPosted: Mon Mar 26, 2007 8:17 am    Post subject: Reply with quote

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
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Mon Mar 26, 2007 10:23 am    Post subject: Reply with quote

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
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Mon Mar 26, 2007 1:24 pm    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
chandanm
Beginner


Joined: 31 Aug 2004
Posts: 12
Topics: 9

PostPosted: Tue Mar 27, 2007 2:54 am    Post subject: Reply with quote

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
View user's profile Send private message
ofer71
Intermediate


Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel

PostPosted: Tue Mar 27, 2007 2:31 pm    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

PostPosted: Wed Mar 28, 2007 5:12 am    Post subject: Reply with quote

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 Very Happy )
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Thu Mar 29, 2007 1:03 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group