Rexx Stored Procedure

David Joyce · Posted: Wed Sep 24, 2008 11:06 pm

I have a Cobol/DB2 program that is calling a Rexx Stored Procedure. Within the Rexx I am trying to execute a SUBMIT command but receive error IKJ79204I - You attempted to run an unsupported function in a dynamic TSO environment. Has anybody encountered this before?

superk · Posted: Wed Sep 24, 2008 11:13 pm

SUBMIT is a TSO/E command. Is this exec running in a TSO/E Address Space (PGM=IKJEFT01)?

David Joyce · Posted: Thu Sep 25, 2008 12:01 am

Kevin,
JCL is not being used to submit this process. I have a clist, which executes a DB2/Cobol program, which calls a Rexx Stored Procedure, whcih executes the Rexx where I am attempting the SUBMIT command. Is there a way to establish a TSO/E environment in the Rexx prior to executing the SUBMIT command? Thanks.

David Joyce · Posted: Thu Sep 25, 2008 12:38 am

Kevin,
If I execute the Rexx using TSO EX 'pds.name(rexxname)' the SUBMIT command executes. What is the difference in the environment setup between how I am currently calling the Rexx and the TSO EX execution?

David Joyce · Posted: Thu Sep 25, 2008 2:37 am

RESOLUTION
add a DD to the WLM started task:
//SBMITJCL DD SYSOUT=(,INTRDR)

in the rexx write the jcl to this DD but make sure you have /*EOF as the last card of the JCL. This causes the internal reader to be flushed immediately and the job to be submitted.

ofer71 · Posted: Thu Sep 25, 2008 10:37 am

David,

Indeed, writing JCL directly to internal reader would be my first choice when I want to submit a job outside of TSO.

Alternatively, one can establish a TSO environment programmatically using IKJTSOEV service.

O.