calling rexx from cobol using IKJTSOEV utility
Posted: Fri May 04, 2012 1:33 pmHi,
i called a rexx program from cobol using IRXJCL and IKJTSOEV utility and submitted JCL for this Cobol program.
In my REXX i wrote few ALLOC and a REPRO. ALLOC is working but im getting error for REPRO. below is a snapshot of ther error.
Can anyone tell me what might be the problem for REPRO ?
here is part of my code snapshot that has REPRO
/* COPYING DATA INTO DYNAMIC PS FROM VSAM USING REPRO */
INPUT = 'XXXX.JUN11LC.KSDS'
"ALLOC DA("INPUT") DD(INF) SHR"
"ALLOCATE DSN('XXXX.TOOLS.PS') RECFM(F B) DSORG(PS) TR LRECL(80)
BLK(800) SP(5 5) MOD "
"ALLOC DA('XXXX.TOOLS.PS') DD(TREPORT) SHR"
SAY RC
"REPRO IFILE(INF) OFILE(TREPORT)"
i called a rexx program from cobol using IRXJCL and IKJTSOEV utility and submitted JCL for this Cobol program.
In my REXX i wrote few ALLOC and a REPRO. ALLOC is working but im getting error for REPRO. below is a snapshot of ther error.
IKJ56652I You attempted to run an authorized command or program. This is not supported under the Dynamic TSO Environment.
37 *-* "REPRO IFILE(INF) OFILE(TREPORT)"
+++ RC(-3) +++
IKJ79204I You attempted to run an unsupported function in a dynamic TSO Environment.
37 *-* "REPRO IFILE(INF) OFILE(TREPORT)"
+++ RC(-3) +++
IKJ79204I You attempted to run an unsupported function in a dynamic TSO Environment.
Can anyone tell me what might be the problem for REPRO ?
here is part of my code snapshot that has REPRO
/* COPYING DATA INTO DYNAMIC PS FROM VSAM USING REPRO */
INPUT = 'XXXX.JUN11LC.KSDS'
"ALLOC DA("INPUT") DD(INF) SHR"
"ALLOCATE DSN('XXXX.TOOLS.PS') RECFM(F B) DSORG(PS) TR LRECL(80)
BLK(800) SP(5 5) MOD "
"ALLOC DA('XXXX.TOOLS.PS') DD(TREPORT) SHR"
SAY RC
"REPRO IFILE(INF) OFILE(TREPORT)"