I am new to REXX programming and trying to SUBMIT a JCL via REXX pgm.
The JCL needs to get the input dynamically from the REXX pgm, so i have used SKELETON TAILORING approach to execute the JCL.
The steps i followed,
1.Got the Inputs from the USER. (No issues in getting the inputs)
2.Validated the inputs(No issues in validation the inputs)
3.Calling the JCL(here Issue is happening)
a. Here i have created a PDS for the SKELETON JCL and created the member and used '&' as a Qualifier to extract input from REXX pgm.
b. I have included the SKELETION LIBRARY in my program as well
Please find the below snipet.
"LIBDEF ISPSLIB DATASET ID('TEST.SKELE')"
SKUSR=USERID() /*this is used a &SKUSER in SKELETION JCL*/
"FTINCL JCL" /* this is the name of the member in TEST.SKELE PDS */
Once i try to execute the REXX Pgm i am directly comming out of the SESSOIN means i am getting
" Invalid SERVICE NAME"
the Severe error listing is
Application : ISR
Function : COMMAND EX
SERVICE : SUBMIT
ERROR MESSAGE ID ISPS102
I am not able to find the error, please suggest me what is the mistake i have done here and thanks in advance for the time.
Joined: 03 Oct 2009 Posts: 1754 Location: Bloomington, IL
Your mistake is in executing ADDRESS ISPEXEC on a line by itself. This causes all future strings to be sent to ISPF. SUBMIT is not an ISPF service, so sending that string to ISPF causes the error. Execute ADDRESS TSO prior to the SUBMIT.