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 jon.nolt...@oracle.com 425-295-1733 (Cell) -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tom Sims Sent: Wednesday, May 5, 2021 1:49 PM To: IBM-MAIN@LISTSERV.UA.EDU 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:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Tom Sims > Sent: Wednesday, May 5, 2021 11:23 AM > To: IBM-MAIN@LISTSERV.UA.EDU > 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 [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> Tom Sims [trs...@att.net] >> Sent: Wednesday, May 5, 2021 2:10 PM >> To: IBM-MAIN@LISTSERV.UA.EDU >> 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 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 > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- 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