Calling Cobol DB2 from REXX (ISPF panel)

[DT24048]

This is how I do it:
ndvparm="DB2=DB00,PLAN=MFLTDDWA"
"CALL 'LMG.TEST.LOAD(NDVREMER)' '"ndvparm"'"

The problem is:

Display on console message from CAF interface

xxxDB01I - xxx DB2/CAF INTERFACE VERSION DB2INT01-01/02/09 @ 11.43
xxxDB19I - DB00 SUCCESSFUL OPEN FOR PLAN - MFLTDDWA
xxxDB21I - DB2 THREAD SUCCESSFULLY CLOSED
xxxDB23I - DB2 DISCONNECT SUCCESSFUL

appears on terminal.

Any way to suppress?

 

[jivetrky]

Have you tried this?

x=msg('off')
"CALL 'LMG.TEST.LOAD(NDVREMER)' '"ndvparm"'"
x=msg(x)

This will turn messages off for this call.

Or you could use outtrap if you need to process the message.

x=OUTTRAP("mymsg.")
"CALL 'LMG.TEST.LOAD(NDVREMER)' '"ndvparm"'"
x=outtrap(off)


A positive attitude may not solve all your problems, but it will annoy enough people to make it worth the effort.

 

[DT24048]

Thanks for the response. I actually did do both of what you suggested, same result. These messages are coming from a routine that is doing basically a "DISPLAY UPON CONSOLE", to use COBOL speak. I wasn't sure if there was a way to "dummy" out the console, like SYSOUT or SYSPRINT.

Appreciate the prompt feedback.

 

[DT24048]

I was able to suppress these messages by issuing the " PROFILE NOWTPMSG", to set my ISPF session to no-write-to-programmer-messages.