I agree with Elardus. My getcode looks like this:
getcode = GETMSG('issue_back.','SOL',Cart_V,,time_value)
Random CART values avoid collisions.
I supply a default time value *but* override it with a much higher value when I
know it takes a while to get the results back from the issued command. Here is
a snippet of my select logic:
When con_input = 'D XCF,STR,STRNAME=*' then time_value = '20'
.
.
Otherwise time_value = '5'
Bob
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Elardus Engelbrecht
Sent: Monday, September 18, 2017 6:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command
Jorge Garcia wrote:
> We're trying to execute a REXX with a GETMSG statement to trap the out
> of ADABAS or event Publisher command (Software AG products). We can't
> trap anything. Below the REXX executed
>TRACE I
Try TRACE A
Yes, you will get thousand lines and getting tired to read them, but ... ;-)
>"CONSOLE DEACTIVATE"
>"CONSPROF SOLDISP(NO) SOLNUM(400)"
>"CONSOLE ACTIVATE NAME("USERID()")"
Check that the name is not active somewhere in the SysPlex.
What is the result after that ACTIVATE action?
I would advise you use something like this where "cn" is truly unique:
"CONSOLE ACTIVATE NAME("cn")"
if rc <> 0 then
do
say "CONSOLE Activation problem - " rc
end
You can also search IBM-MAIN. This CONSOLE has been discussed many times.
>ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT""
Do you see the output? Where is that output placed in the first place?
Do you have RACF authority to issue that Modify Command?
Do you have acccess via JESSPOOL RACF Class?
Also, what is the CART for your CONSOLE?
>msg = GETMSG(salida.,SOL,,,6)
Why 6? Increase it if needed.
>GETMSG always finishs with RC = 4.
Please post the full message of that RC. Also Check your TSO / Batch-job job
log to see what REXX is saying about these commands.
>We don't know if GETMSG statement only Works fine with IBM applications non
>ISV products.
GETMSG works with anything. I'm not aware of any limitations for any products.
Whatever is placed in JES2 Spool is available for you as long you have all the
accesses.
HTH!
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
