Very interesting, and thanks for the hint. I added a second getmsg()
after executing the VTAM command and achieved success. No CART needed,
just a straightforward CONSOLE SYSCMD(D NET,E... and 2X getmsg().
Still does not explain why it sometimes works with just 1X, though, but
again, thanks!
/Tom
On 5/5/2021 2:41 PM, Jon Nolting wrote:
I found with VTAM messages output, there were 2x messages that were provided.
The first provided the command accepted. The 2nd message, in this case, had 22
lines seen below in the REXX trace. I've always been forced to this 2x message
response for VTAM.
/* Rexx */
trace r
'consprof soldisplay(no) unsoldisplay(no)'
'console activate name(nolting)'
address console
"D NET,ID=TCP00015"
do loop = 1 to 2
x = getmsg('cmsg.','either',,,10)
if rc = 0 then
do i = 1 to cmsg.0
say '+++++++' cmsg.i
end
end
address tso
'console deactivate'
SDSF OUTPUT DISPLAY TSOBAT03 JOB35268 DSID 102 LINE 1 COLUMNS 02- 133
COMMAND INPUT ===> SCROLL ===> CSR
READY
%console1
4 *-* 'consprof soldisplay(no) unsoldisplay(no)'
>>> "consprof soldisplay(no) unsoldisplay(no)"
5 *-* 'console activate name(nolting)'
>>> "console activate name(nolting)"
6 *-* address console
8 *-* "D NET,ID=TCP00015"
>>> "D NET,ID=TCP00015"
9 *-* do loop = 1 to 2
>>> "1"
>>> "2"
10 *-* x = getmsg('cmsg.','either',,,10)
>>> "0"
11 *-* if rc = 0
>>> "1"
*-* then
12 *-* do i = 1 to cmsg.0
>>> "1"
>>> "1"
13 *-* say '+++++++' cmsg.i
>>> "+++++++ IST097I DISPLAY ACCEPTED"
+++++++ IST097I DISPLAY ACCEPTED
14 *-* end
12 *-* do i = 1 to cmsg.0
15 *-* end
9 *-* do loop = 1 to 2
10 *-* x = getmsg('cmsg.','either',,,10)
>>> "0"
11 *-* if rc = 0
>>> "1"
*-* then
12 *-* do i = 1 to cmsg.0
>>> "1"
>>> "22"
13 *-* say '+++++++' cmsg.i
>>> "+++++++ IST075I NAME = NETA.TCP00015, TYPE = APPL"
+++++++ IST075I NAME = NETA.TCP00015, TYPE = APPL
14 *-* end
Jon Nolting
System Administrator
Engineering IT
[email protected]
425-295-1733 (Cell)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Tom Sims
Sent: Wednesday, May 5, 2021 1:49 PM
To: [email protected]
Subject: [External] : Re: DISPLAY VTAM commands from TSO CONSOLE
I've tried this (2 minute delay):
netcmd = 'DISPLAY NET,E,ID=' || vtamlu
if test = 'TEST' then say 'Command:' netcmd
"CONSOLE SYSCMD(" netcmd ") CART(VTAM0000)"
msg = getmsg(netresp.,'either','VTAM0000',,120)
And this:
"CONSOLE SYSCMD(" netcmd ") CART(VPSC0002)"
msg = getmsg(netresp.,'SOL',VPSC ,'FFFFFFFF00000000'X,120)
both with 'SOL' and 'either," no difference, only one line returned.
This exec issues three system commands, one to derive the VTAM LU from
VPS, the second, above, to derive the IP address from VTAM, and then the
third to display from TCPIP NETSTAT the status of the printer. It never
gets to command #3.
Thanks,
/Tom
On 5/5/2021 12:07 PM, Charles Mills wrote:
Can you post your code with CART and a two-second delay?
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Tom Sims
Sent: Wednesday, May 5, 2021 11:23 AM
To: [email protected]
Subject: Re: DISPLAY VTAM commands from TSO CONSOLE
Thanks, I've tried with/without CART, as well as waiting up to 2 minutes
for responses, with no change in the dreary outcome.
/Tom
On 5/5/2021 11:16 AM, Seymour J Metz wrote:
Program in a delay.. I'd also suggest using a CART.
--
Shmuel (Seymour J.) Metz
https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!GqivPVa7Brio!MOBXBK9b0ffHBqazXo-IYbec0z96Lc4feclihM09EMd6rW8_9LAjKieTVmEpTapWVQ$
________________________________________
From: IBM Mainframe Discussion List [[email protected]] on behalf of Tom
Sims [[email protected]]
Sent: Wednesday, May 5, 2021 2:10 PM
To: [email protected]
Subject: DISPLAY VTAM commands from TSO CONSOLE
I am having difficulty obtaining predictable and repeatable results from
DISPLAY VTAM commands in TSO CONSOLE.
In all cases, the first response is returned, e.g., for processing via
getmsg():
10:06:05.30 SYSTVPSC 00000290 DISPLAY NET,ID=SYSTP011
10:06:05.31 SYSTVPSC 00000090 IST097I DISPLAY ACCEPTED
All too often, though, the subsequent detail display is not, and
getmsg() returns, e.g., by msgresp.0 a number of lines=1 and nothing
beyond, so though these are in the syslog, they are not returned to my exec:
10:06:05.31 SYSTVPSC 00000090 IST075I NAME = NETNAME.SYSTP011
783 00000090 IST486I STATUS= ACTIV, DESIRED...etc.
I think I have tried every combination of CONSPROF and getmsg() parms,
nothing seems to work.
Any idea what I'm missing? Thanks in advance,
Tom Sims
Trident Services, Inc.
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
