/* REXX */
/* TRACE R */
/* **************************************************************
* DATE CREATED: 3-MAR-00
* DATE LAST MODIFIED:
*
* ORIGINAL AUTHOR: ProTech Professional Technical Services
*
* REXX EXEC = JOBSUBMIT
*
* PURPOSE = READ IN A CALLDECK AND SUBMIT THE JOB TO THE MVS/OS
*           JES SYSTEM VIA THE TSO SUBMIT COMMAND. RETURN THE
*           JOB NUMBER OR A ERROR RETURN CODE.
*
*   =====>  NOTE THAT THE JCL WILL BE DELETED AFTER SUBMITTING.
*
*   INPUT ARGUMENT = DATASET NAME CONTAINING JCL TO SUBMIT
*   OUTPUT IS RETURN CODE
*             RC VALUES   99 = DATASET NOT CATALOGED
*                         98 = JOB WAS NOT SUBMITTED
*                         OR THE JOBNUMBER.
*****************************************************************
*/
/* GET NAME OF DATASET CONTAINING THE JCL */
/* TRACE R  */
PARSE UPPER ARG INDSN .
DQUOTE = ''
QUOTE  = ''''
JCLDATA = DQUOTE||QUOTE||INDSN||QUOTE||DQUOTE

/* CHECK IF DATA DATASETS EXIST, IF NOT END WITH 999X RETURN CODE */
IF SYSDSN(JCLDATA) ^= 'OK'
THEN CALL EXITCOM 99


/* SUBMIT JOBSTREAM */
TRAPCNTL = OUTTRAP("SCREENLINE.")
"SUBMIT" JCLDATA
TRAPCNTL = OUTTRAP(OFF)
MSGSTAT = MSG('OFF')   /* TURN TSO/E MESSGES OFF */

/* GET THE JOB NUMBER */
RPAREN = ')'
LPAREN = '('
DO I = 1 TO SCREENLINE.0
   START = POS(LPAREN,SCREENLINE.I)
   END   = POS(RPAREN,SCREENLINE.I)
   LEN   = END - (START + 4)
   IF START ^=0
   THEN DO
        RETCODE = SUBSTR(SCREENLINE.I,(START + 4),LEN)
        SAY SCREENLINE.I
        CALL EXITCOM RETCODE
        END
   ELSE CALL EXITCOM 98
END

/* EXIT WITH RETURN CODE */
EXITCOM: PARSE ARG EXITRC .
          "DELSTACK"
      /*  "DELETE" JCLDATA    */
          EXIT EXITRC

_