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: IBM-MAIN@BAMA.UA.EDU 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