🚀 go-pugleaf

Folks,
I am firing off a APPC/MVS Inititiated Batch job from CICS. The TP
simply points to some JCL cntl statements which exec a PROC. This
proc runs my COBOL pgm under IKJEFT01.
This all works fine, the problem I am experiencing is that the 
COBOL pgm dynamically calls another pgm to write out messages to
a DD which is assigned in the JCL to be SYSOUT=*.
The COBOL pgm writing the messages abends with the following:
S013-C0 JES2 or JES3 could not open a SYSOUT or SYSING dataset
an improper MACRF= setting in the SYSIN or SYSOUT DCB or a DSORG
other than DSORG=PS can cause this error
The COBOL pgm does not specify any DCB attribs in the FD section
and assumes the JCL is specifying it correctly. The COBOL pgm 
abends on the OPEN OUTPUT statement not the WRITEs.
I have tried defining DCB attribs as follows to the DD:
RECFM=FB,LRECL=133,DSORG=PS
but it still gets the problem.
I have managed to stop it from abending by defining the DD to
point to a temporary file with DISP=(,pass) and this works fine.
However, I then need to use a IEBGENER to eventually write the
messages to SYSOUT=*
I use the same COBOL pgm to write out messages to the same DD 
when I fire off a standard Batch job using TSO submit and the
COBOL pgm has no problems OPENing the DD for OUTPUT and then
WRITing messages.
Can anyone provide any advice regards this problem and if so
please copy to the following address:
dwatkins@vitgsysa.telecom.com.au

Regards,

Darren Watkins
IT Consultant
Melb, Australia.