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 <[email protected]>
To: [email protected]
Date: 2015-07-28 14:08
Subject: Re: Submit job without messages
Sent by: IBM Mainframe Discussion List <[email protected]>
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 [email protected] 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 [email protected] with the message: INFO IBM-MAIN
