I am trying to invoking a jcl program which I passed in my rexx code.
I am trying to achieving this by using "QUEUE" command, but it not working. Below is the snippet
ADDRESS TSO
SAY "PLEASE ENTER NUMBER"
PULL NUM
IF NUM == 1 THEN DO
SIGNAL SUBMIT
END
EXIT
SUBMIT:
ADDRESS TSO
"DELSTACK"
QUEUE "//SAMPJCL1 JOB (0000,XXXX),'JCL_INVOKER', "
QUEUE "// CLASS=Z, "
QUEUE "// MSGCLASS=9, "
QUEUE "// REGION=0M "
QUEUE "//* "
QUEUE "//*---------- SERVICE EXCI TEST PROCESS -----------------"
QUEUE "//* "
QUEUE "//DELSVCO EXEC PGM=IEFBR14 "
QUEUE "//FIL11 DD DSN=MYFILE.TEST1.DEL.SE, "
QUEUE "// DISP=(MOD,DELETE,DELETE), "
QUEUE "// SPACE=(TRK,0) "
QUEUE "//* "
QUEUE "/* "
QUEUE "$$"
EXIT
I am executing this rexx by giving 'ex' command infront of the member name.