I have a JCL which i want to execute through REXX without submitting a batch job(I have the Rexx by which am able to execute the same by submitting batch job)
//CAPKSCAN EXEC PGM=PKRSCAN,REGION=1024K
//STEPLIB DD DSN=TECHPRD.JMR.CAILIB,DISP=SHR
//OPTIONS DD DSN=TECHPRD.SMR.JMR.PPOPTION(PROD#B),DISP=SHR
//SMRPRINT DD DUMMY
//JMRPRINT DD SYSOUT=* /* ALL RETRIEVAL OUTPUT HERE */
//SYSUDUMP DD SYSOUT=D /* OPTIONAL */
//JMRIN DD DSN=Input Dataset
I did a search and went through couple of posts and tried the below, but got errors:
/***************************REXX**********************************/
TRACE I
PARM1 = '1024K'
FILE1 = TECHPRD'.'SMR'.'JMR'.'PPOPTION
FILE2 = XXXXX'.'JMR'.'INPUT
FILE3 = XXXXX'.'JMR'.'OUTPUT
"ALLOC FI(OPTIONS) DATASET('"FILE1"') SHR"
"ALLOC FI(JMRIN) DATASET('"FILE2"') SHR"
"ALLOC FI(JMRPRINT) DATASET('"FILE3"') SHR"
ADDRESS TSO " CALL 'TECHPRD.JMR.CAILIB(PKRSCAN)'"
TRACE I
PARM1 = '1024K'
FILE1 = TECHPRD'.'SMR'.'JMR'.'PPOPTION
FILE2 = XXXXX'.'JMR'.'INPUT
FILE3 = XXXXX'.'JMR'.'OUTPUT
"ALLOC FI(OPTIONS) DATASET('"FILE1"') SHR"
"ALLOC FI(JMRIN) DATASET('"FILE2"') SHR"
"ALLOC FI(JMRPRINT) DATASET('"FILE3"') SHR"
ADDRESS TSO " CALL 'TECHPRD.JMR.CAILIB(PKRSCAN)'"
Error that i got is :
14 *-* ADDRESS TSO " CALL 'TECHPRD.JMR.CAILIB(PKRSCAN)'"
>L> " CALL 'TECHPRD.JMR.CAILIB(PKRSCAN)'"
+++ RC(-193) +++
>L> " CALL 'TECHPRD.JMR.CAILIB(PKRSCAN)'"
+++ RC(-193) +++
Can any one let me know whether the synatx i have used is correct, if not , please correct me.
Also suggest any links regarding the same
Thanks Nara