rexx submitting jcl to intrdr problem

[dav1mo]

I'm having an issue with a DB2 stored procedure that's written in rexx. I need to submit a batch job upon certain update to a column in table. I defined a trigger to call my stored proc. I've added a dd card "//INTRDR DD SYSOUT=(A,INTRDR),DCB=(RECFM=F,LRECL=80)" to my stored procedure address space. In my rexx procedure all id do is submit a job in the following manner:

queued "jcl ...."

"ALLOC F(INTRDR) sysout(a)"
"EXECIO " QUEUED() " DISKW INTRDR (FINIS"
"FREE F(INTRDR)"

The proc is running, but the JCL is not getting submitted. It did get submitted one time and when it did I found the following error meassage in my systsprnt file:
IKJ56246I SYSOUT DATA SET NOT ALLOCATED, FILE IN USE

Which I have not been able to recreate. Any help would be greatly appreciated.

 

[kevinf2349]

Maybe I am missing something (like a brain) but why do you do the ALLOC when you already have it in the JCL?

 

[dav1mo]

Kevin, Thanks. That was exactly the problem. When first started trying to write to the intrdr we were dynamically allocating a dd and that alloc and free were still in there. Removed those from the proc and it submits my JCL everytime now.