How to issue a TSO SUBMIT command from a rexx exec

Answer

The easiest way would be to write directly to the internal reader, here is sample:

/* REXX */
"ALLOC FI(INTRDR) SYSOUT(A) WRITER(INTRDR) REUSE"
JOB.1="//HUGOJ JOB (9999),'JOHN SMITH',CLASS=A,MSGCLASS=X,"
JOB.2="// MSGLEVEL=(1,1),USER=HUGO,NOTIFY=HUGO"
JOB.3="//*"
JOB.4="//TEST1 EXEC PGM=IEFBR14,REGION=0M"
JOB.5="//"
"EXECIO * DISKW INTRDR (FINIS STEM JOB."
"FREE FI(INTRDR)"
EXIT


And here is another sample with using a dataset (a temp dataset):

/* REXX */
JOB.1="//HUGOJJ JOB (9999),'JOHN SMITH',CLASS=A,MSGCLASS=X,"
JOB.2="// MSGLEVEL=(1,1),USER=HUGO,NOTIFY=HUGO"
JOB.3="//*"
JOB.4="//TEST1 EXEC PGM=IEFBR14,REGION=0M"
JOB.5="//"
PARSE VALUE TIME("L") WITH HH ":" MM ":" SS "." SUBSEC
USER=SYSVAR('SYSUID')
T_QUAL = ".T"||HH||MM||SS||".SS"||SUBSEC
TEMP_DSN = USER".SUBMIT.D"||RIGHT(DATE("S"),7)||T_QUAL
"ALLOCATE DATASET('"||TEMP_DSN||"') FILE(TEMPSUB) NEW SPACE(1,1)",
"TRACKS UNIT(3390) LRECL(80) RECFM(F B) DELETE DSORG(PS)"
"EXECIO * DISKW TEMPSUB (FINIS STEM JOB."
"SUBMIT '"TEMP_DSN"'"
"FREE FI(TEMPSUB)"
EXIT