It is timing out waiting on the reply? Change the 3 to a higher value on the GETMSG and see if it helps.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, October 02, 2013 2:52 PM To: [email protected] Subject: TSO REXX and GRS Commnad Output Dear REXX people, I am trying to get the result from a GRS command into an array. We are running z/OS V1R13 and the TSO/E REXX Reference shows some "Examples". It shows mcode = getmsg('dispmsg.','sol',,,120). So the stem dispmsg. will have the solicited messages. I tried to get this EXEC to work. I traced it. The GRS command works and produces four messages: ISG343I 09.19.51 GRS STATUS NO ENQ RESOURCE CONTENTION EXITS NO REQUESTS PENDING FOR ISGLOCK STRUCTURE NO LATCH CONTENTION EXISTS My Return code is 4. Perhaps the return code tells me how many messages I got back. My EXEC dies on the Do i = 1 to CNSL.0 with Bad arithmetic conversion. CNSL.0 shows up as "CNSL.0" in the trace. address TSO 'CONSOLE ACTIVATE' address CONSOLE 'D GRS,C' mrc = 0 msgindex = 0 /* RETRIEVE OUTPUT COMMAND */ mrc = getmsg('CNSL.','SOL',,,3) Do i = 1 to CNSL.0 msgindex = msgindex + 1 msg.msgindex = CNSL.i End msg.0 = msgindex Do i = 1 to msg.0 Say msg.i End address TSO 'CONSOLE DEACTIVATE' Q). What am I missing? Why doesn't CNSL. Get populated? I saw the EXAMPLE 4 and tried to get that to work with solicited messages. I noticed that while I traced the above EXEC that it looked like I got the messages back to my terminal screen. So I tried OUTTRAP. No luck. address TSO 'CONSOLE ACTIVATE' X = OUTTRAP(CNSL.) address CONSOLE 'D GRS,C' X = OUTTRAP('OFF') Say 'CNSL.0' CNSL.0 address TSO 'CONSOLE DEACTIVATE' In this EXEC my CNSL. Did get set to "0". Thank you, Dave ---------------------------------------------------------------------- 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
