[Fwd: REXX and VTAM command responses]

2010-04-07 Thread Bruce Schaefer
Thanks for the responses. I neglected to mention that I am using a 30 
second time on the getmsg. However, it still comes back with just the 
initial 'accepted' msg.  I understand this time to be a maximum wait 
time and not a hard wait time.


As for system rexx, I'm not sure how that would change this behavior.

Bruce

Hello list,
I have a rexx that issues console commands and writes the responses to a 
dd after using getmsg to retrieve the response. Everything is good for 
MVS commands and JES2 commands if L=Z is included.  Is there a similar 
option for VTAM commands? For D NET,options, I am only getting: 
IST097I DISPLAY ACCEPTED
I've tried adding the CART parameter to my emcs console and the getmsg 
with same results.

Thanks,
Bruce Schaefer

--
/*
//* Bruce Schaefer
//* mailto:bruce.s...@gmail.com
// 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


Re: [Fwd: REXX and VTAM command responses]

2010-04-07 Thread Michael Schmutzok
I had this problem with multi-line output from JES2 commands (e.g. $DSPOOL). I 
was only getting the first line of the output. I opened an incident with IBM 
and eventually we came up with the solution. I had to recursively re-issue the 
AXRCMD command, minus the actual command itself. I went ahead and tried this 
with a D NET command to see if this solution would work the same way. 
Following is the system REXX code I used for the test. Following that, is the 
results clipped out of the system log. I used the AXRWTO to just redisplay the 
command output instead of parsing it out into variables.
 

 
System Rexx Code (QUERYTST):
 
/* REXX */
NUMERIC DIGITS 4
mycmd1  = 'D NET,ID=TRLDC,E'
result1 =  AXRCMD(mycmd1,netvar.,10);
If result1 = 0 Then
  Do While result1 = 0
If netvar.0  1 Then
  Do linenum = 1 to netvar.0
CALL AXRWTO 'System Rexx output line #'linenum  netvar.linenum
  End
result1 = AXRCMD(,netvar.,4)==recursive to get all lines
  End
Else
  CALL AXRWTO 'D NET command failed. RC=' result1
Exit 00
 

Output from System Rexx EXEC (QUERYTST)
 
@QUERYTST
D NET,ID=TRLDC,E
IST097I DISPLAY ACCEPTED
IST075I NAME = TRLDC, TYPE = TRL MAJOR NODE 911
IST1314I TRLE = TRLDCASTATUS = ACTIV   CONTROL = MPC
IST314I END
System Rexx output line #1  IST075I NAME = TRLDC, TYPE = TRL MAJOR NODE
System Rexx output line #2  IST1314I TRLE = TRLDCASTATUS = ACTIV
   CONTROL = MPC
System Rexx output line #3  IST314I END
 

 
As you can see, I was able to capture all lines from the D NET command and 
then redisplay them.
 
I hope this helps.
 
Mike Schmutzok
 

 On 4/7/2010 at 7:58 AM, in message 4bbc7350.6010...@gmail.com, Bruce 
 Schaefer bruce.s...@gmail.com wrote:

Thanks for the responses. I neglected to mention that I am using a 30 
second time on the getmsg. However, it still comes back with just the 
initial 'accepted' msg.  I understand this time to be a maximum wait 
time and not a hard wait time.

As for system rexx, I'm not sure how that would change this behavior.

Bruce

Hello list,
I have a rexx that issues console commands and writes the responses to a 
dd after using getmsg to retrieve the response. Everything is good for 
MVS commands and JES2 commands if L=Z is included.  Is there a similar 
option for VTAM commands? For D NET,options, I am only getting: 
IST097I DISPLAY ACCEPTED
I've tried adding the CART parameter to my emcs console and the getmsg 
with same results.
Thanks,
Bruce Schaefer

-- 
/*
//* Bruce Schaefer
//* mailto:bruce.s...@gmail.com
// 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


[Fwd: [Fwd: REXX and VTAM command responses]]

2010-04-07 Thread Bruce Schaefer
Thanks to all, and especially to taltyman.  Based on his sample, I added 
a second getmsg for NET commands and I now get the desired results.


--
/*
//* Bruce Schaefer
//* mailto:bruce.s...@gmail.com
// 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html