CALL OUTTRAP "M." ADDRESS TSO "SUBMIT" jcljob /* "jcljob" is tso format dataset name of a single JCL job */ CALL OUTTRAP "OFF" PARSE VAR m.1 jobname "(" jobid ")" qsub . IF( qsub<>"SUBMITTED" )THEN SIGNAL SUBMITERROR
Then you can do what you will with the message details. /Steve From: Paul Gilmartin <0000000433f07816-dmarc-requ...@listserv.ua.edu> To: IBM-MAIN@LISTSERV.UA.EDU Date: 2015-07-28 14:08 Subject: Re: Submit job without messages Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On 2015-07-28, at 05:29, Hardee, Chuck wrote: > I am not aware of an option for the TSO SUBMIT command to suppress the message, but could your REXX allocate an internal reader and write the JCL to it then close it? > I like the INTRDR option or its IEBGENER variant, particularly because it frees the programmer of the F* 80 burden. Be aware that if you write directly to INTRDR you do not get the automatic JOB statement editing by SUBMIT. Would OUTTRAP catch the message? > -----Original Message----- > From: Bill Ashton > Sent: Tuesday, July 28, 2015 7:27 AM > > Hello...I am working on a Rexx program for users, and as part of the > process, I want to submit a JCL member right away when the program starts. > There are no edits or changes needed, so I just issue a TSO SUBMIT.... > command. > > However, the users are annoyed with the "...SUBMITTED" message -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN SÃ¥vida annat inte anges ovan: / Unless stated otherwise above: IBM Svenska AB Organisationsnummer: 556026-6883 Adress: 164 92 Stockholm ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN