Submitting a compile request from TSO Client in batch mode

Member TSCBATCH of hlq.version.JCL

//TSCBATCH JOB ,USERID,NOTIFY=&SYSUID, 
// USER=&SYSUID,CLASS=F,MSGCLASS=H,TIME=50 
//******************************************************************** 
//*                                                                  * 
//*     CLEARCASE OS/390 CONNECTORS                                  * 
//*                                                                  * 
//*         JOB TO SUBMIT THE BATCH PARAMETERIZED BUILD              * 
//*                                                                  * 
//*     BEFORE SUBMITTING:                                           * 
//*                                                                  * 
//*         1. MODIFY THE SUBSTITUTION PARAMETERS TO MEET YOUR       * 
//*            SITE REQUIREMENTS.                                    * 
//*         2. MODIFY THE LAST STATEMENT WITH CORRECT HLQ            * 
//RSERVER PROC HLQ='RCC.#version'            <== HLQ
//************************************************** 
//* ISPF BATCH AUFRUF 
//************************************************** 
//TSOBAT   EXEC PGM=IKJEFT01,DYNAMNBR=1000 
//SYSTSPRT DD SYSOUT=* 
//SYSOUT   DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SYSEXEC  DD DISP=SHR,DSN=&HLQ..TSCRX
//STEPLIB  DD DISP=SHR,DSN=&HLQ..TSCLOAD
//         PEND 
//RSERVER  EXEC RSERVER 
//SYSTSIN  DD * 
EXEC 'RCC.#version.TSCRX(EXCMDP)' 'MAP0'

Member EXCMDP of hlq.version.TSCRX

/* Rexx */
/****************************************************************/
/*    Licensed Materials - Property of IBM                      */
/*                                                              */
/*    (C) Copyright IBM Corp. 2005, 2011                        */
/*                                                              */
/*     Change "RCC.version" to the appropriate high-level       */
/*     qualifier.  The high-level qualifier must match the      */
/*     specification for the HLQ parameters in the allocation   */
/*     job, RCC01ALO.                                           */
/*                                                              */
/****************************************************************/
Parse Arg input
Parse Var input mapParm batchjob fileNames
HLQ = 'RCC.version'
USERID = Sysvar('Sysuid')
/* LOG3 = LOGnn, such as LOG01, LOG02, */
LOG3 = 'LOG'batchjob
CMDFILE = USERID'.TSC.CMD'
CMDFILEP = USERID'.TSC.CMDP'
/* get file name and assign env variable' */
pg. = ' '
Parse var fileNames pg.1 pg.2 pg.3 pg.4 pg.5
 noFile = 5
 listinx  = ' '
 ProgNames = ' '
 Do i = 1 to noFile
   if pg.i /= ' ' Then Do
    listinx = 'PBB_'i'='pg.i
    ProgNames = ProgNames' 'listinx
   End
 End
Address Tso
x = MSG('OFF')
Address Tso
 "FREE DD(RCCPROC RCCPARMS RCCMAP STDOUT STDERR RCCLOG EDCENV )"
 "FREE DD(SYSUDUMP)"
x = MSG('ON')
"ALLOC FI(RCCPROC)  DA('"USERID".TSC.JCLP')      SHR "
"ALLOC FI(RCCPARMS) DA('"USERID".TSC.CMDP(CCCMDP)') SHR "
"ALLOC FI(RCCRC) DA('"USERID".TSC.CMDP(OUTRCP)') SHR "
"ALLOC FI(RCCMAP)   DA('"USERID".TSC.JCLP("mapParm")')   SHR "
"ALLOC FI(STDOUT)   SYSOUT(A)                         "
"ALLOC FI(STDERR)   SYSOUT(A)                         "
"ALLOC FI(RCCLOG)   DUMMY                             "
"Call '"HLQ".TSCLOAD(RCCTSOC)' '"ProgNames" > ''"USERID".PBB."LOG3"''' asis"

Address Tso
x = MSG('OFF')
 "FREE DD(RCCPROC RCCPARMS RCCMAP STDOUT STDERR RCCLOG EDCENV )"
 "FREE DD(SYSUDUMP CEEDUMP )"
x = MSG('ON')
return;