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
