Submitting JCL using REXX

The rexx code is as below:

QUEUE "//CPYTAPE1 JOB (),'COPY',CLASS=b,MSGCLASS=a,"
QUEUE "// REGION=0M,NOTIFY=&SYSUID"
QUEUE "//STEP1 EXEC PGM=IEBGENER"
QUEUE "//SYSOUT DD SYSOUT=*"
QUEUE "//SYSPRINT DD SYSOUT=*"
QUEUE "//SYSUT1 DD DSN="DDIN",DISP=SHR"
QUEUE "//SYSUT2 DD DSN="DDIN".NEW,"
QUEUE "// DISP=(NEW,CATLG,DELETE),"
QUEUE "// DATACLAS=MEDIUM,"
QUEUE "// UNIT=CART"
QUEUE "//SYSIN DD *"

"ALLOC F(JCL) SYSOUT WRITER(INTRDR) RECFM(F B) LRECL(80)"
"EXECIO" QUEUED() "DISKW JCL (FINIS"
"FREE F(JCL)"