Consider to do it in a JES exit instead. It is very easy to bypass IKJEFF10
you just allocate an internal reader and write your job to it.
/* REXX SUBX */
/******************************************************************/
/* This job will submit the member you are currently editing for */
/* execution. The job will be submitted using a dynamically */
/* allocated internal reader. */
/* Sam Knutson ... December 11, 1991 */
/******************************************************************/
ADDRESS ISREDIT
'ISREDIT MACRO'
'ISREDIT (LINELIM) = LINENUM .ZLAST'
x = 1
DO WHILE x <= LINELIM
'ISREDIT (LINEWORK) = LINE ' x
J.x = LINEWORK
x = x + 1
END
ADDRESS TSO
@savemsg = MSG('OFF')
"ALLOC F(INTRDR) SYSOUT(A) WRITER(INTRDR) RECFM(F) LRECL(80) REUS"
"EXECIO " LINELIM " DISKW INTRDR (STEM J. FINIS"
"FREE F(INTRDR)"
ADDRESS ISPEXEC
'SETMSG MSG('ISRS048')'
EXIT 0
If it is worth doing it is probably worth doing right. Use JES or an OEM
production like Thruput Manager that lets you inspect all jobs regardless of
point of entry.
Best Regards,
Sam Knutson, GEICO
Performance and Availability Management
mailto:[EMAIL PROTECTED]
(office) 301.986.3574
"Think big, act bold, start simple, grow fast...".
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Jón Viðar Gunnarsson
Sent: Friday, August 05, 2005 11:39 AM
To: [email protected]
Subject: TSO_EXIT-(submit cmd)
Hello all
Is there anyone out there who has an TSO - exit which I could use to control
which users can sumbit jobs. I would like to use the exit
to scan the JCL and be able to change to TYPERUN=HOLD
in specific cases.
Best reg.
Jon
====================
This email/fax message is for the sole use of the intended recipient(s) and
may contain confidential and privileged information. Any unauthorized
review, use, disclosure or distribution of this email/fax is prohibited. If
you are not the intended recipient, please destroy all paper and electronic
copies of the original message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
