MVSFORUMS.com

[ayush]

Hi,
I have to insert a paragraph depending on the parms supplied in a cobol program.
I have to design a common error routine, which will be called in IDMS and CICS programs, if this routine fails in CICS program,it'll write the error message to the TCP and if it fails in IDMS program, it'll write the error message to OLP. This error routine has to be called by online programs only.

Is it possible to do so by REXX or any other method?
Please help.
Thanks.
Ayush

[Dibakar]

Why not make a copybook and use "COPY REPLACING".

Regards,
Diba.

[ayush]

Hi Dibakar,

Thanks for the help. But I couldnt get what you mean.
Please let me know if my problem is not clear.
My code should work like:
If NOT-MQ-STATUS-OK
If IDMS
write error log to OLP
else
write error log to TCP
end-if
end-if.

When I include this in my IDMS program, the code errors because it won't recognize the CICS step to write logs into TCPI.
Similary when I compile it for CICS it won't recognize the IDMS step of error loggin (say SNAPS).
I want to dynamically generate this condition only inserting one of the either depending on what kind of program I am using.

Thanks.
Ayush


Thanks.
Ayush

[Dibakar]

Ayush,

Ok, my earlier answer wouldn't have helped in this case so here is my suggestion.

Make two copybooks, COPYCICS and COPYIDMS, and include the appropriate one while coding.

COPYCICS -