On Tue, 28 Jul 2015 14:26:48 +0200, Steve Coalbran wrote:
>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.
>
Thanks.
I'm not very proficient, but I've fallen into the habit of something like:
...
ZEDLMSG = m.1
if qsub=='SUBMITTED'
then ZEDSMSG = jobid 'submitted;
else ZEDSMSG = "Submit failed"
signal off Error
Trace Off
address 'ISPEXEC' 'SETMSG MSG(ISRZ000)'
if RC<>0 then say ZEDLMSG /* Panic if ISPF unavailable. */
IF( qsub<>"SUBMITTED" )THEN SIGNAL SUBMITERROR
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
