Just in case we are getting hung up on quotes, please put the command in a
variable:
con_input = 'F CACEPS71,CMD,CACDS,"REPORT") '
Then reference it like this:
pass_arg. = "CONSOLE SYSCMD("con_input") CART(CARTREVP)"
then after the console activation just this:
pass_arg.
The next statement should be the getcode = 0
Let me know if this makes a difference.
Bob
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Jorge Garcia
Sent: Tuesday, September 19, 2017 9:40 AM
To: [email protected]
Subject: Re: GETMSG null with out ADABAS command
Excuse me Bob. I post the REXX code
/* REXX */
TRACE I
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE NAME("USERID()")"
if rc <> 0 then
do
say "CONSOLE Activation problem - " rc
end
"CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)"
/*ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" */
getcode = 0
Do while getcode = 0 /* get console message */
getcode = GETMSG('salida.','SOL',CARTEVEP,,10)
If getcode = 0 then
Do
Do i = 1 to salida.0
k = i + j
wto.k = salida.i
End
j = j + salida.0
End
End
Do ii = 1 to wto.0
Say wto.ii
ii = ii + 1
End
Thanks
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
