What's in your active IKJTSOxx?
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tom Sims [trs...@att.net] Sent: Wednesday, May 5, 2021 11:41 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] : Re: DISPLAY VTAM commands from TSO CONSOLE 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 > > 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 ---------------------------------------------------------------------- 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
