Hi all,
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
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE NAME("USERID()")"
ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT""
msg = GETMSG(salida.,SOL,,,6)
if msg = 0 then nop
else
do
say 'Command error'
exit 8
end /* do 11 */
do a = 1 to salida.0
say salida.a
end /* do */
exit
GETMSG always finishs with RC = 4. We don't know if GETMSG statement only Works
fine with IBM applications non ISV products.
Any help would be appreciated
Regards
Jorge Garcia Juanino
Coordinador sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559
jgarc...@mapfre.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
