This is a curiosity.  I ran your code (after setting a value to volnbr
and rmmcmd.volnbr) and the 
value of rmmout.1 was:
EDG3201I THE ENTRY IS NOT DEFINED TO DFSMSrmm  

I'm not sure I understand the scenario shown in your trace results where
rmmout.1 could be equal 
to null while rmmout.0 is equal to 0.  I realize you've snipped the REXX
a little, but I tried 
and failed to force that result (using "DROP rmmout." or "rmmout. =
''").   

I guess that's no help, sorry.   
Greg Shirey
Ben E. Keith Company 

-----Original Message-----
From: IBM Mainframe Discussion List On Behalf Of Baraniecki, Ray
Sent: Thursday, August 13, 2009 9:56 AM
To: IBM-MAIN@bama.ua.edu
Subject: Rexx Question

I am issuing a Listdataset RMM command, which worked yester. Today I get
a rc of zero but no output. The actual that is issued is contained in
the above comment. I sure would like to know what went wrong.

Code:

/* RMM LD 'TSTPRB.$.TESTTAPE' VOL(V59019) */
x = Outtrap("rmmout.")
Address TSO ""rmmcmd.volnbr""
lcc = rc
x = Outtrap("OFF")
If lcc \= 0 Then Do
   lmsg = "RMM LD command failed. RC="lcc
   CMDERR:
   smsg = "Command Error"
   Call Do_Msg
   Signal EXIT                  /* Exit with
   End /* Do */
rmmlines = rmmout.0

TRACE Output:

77 *-*  /* RMM LD 'TSTPRB.$.TESTTAPE' VOL(V59019) */
78 *-*  x = Outtrap("rmmout.")
   >L>    "rmmout."
   >F>    "RMMOUT."
79 *-*  Address TSO ""rmmcmd.volnbr""
   >L>    ""
   >C>    "RMMCMD.1"
   >V>    "RMM LD 'TSTPRB.$.TESTTAPE' VOL(V59019)"
   >O>    "RMM LD 'TSTPRB.$.TESTTAPE' VOL(V59019)"
   >L>    ""
   >O>    "RMM LD 'TSTPRB.$.TESTTAPE' VOL(V59019)"
80 *-*  lcc = rc
   >V>    "0"
81 *-*  x = Outtrap("OFF")
   >L>    "OFF"
   >F>    "OFF"
82 *-*  If lcc := 0
   >V>    "0"
   >L>    "0"
    >O>    "0"
 89 *-*  Say rmmout.1
    >V>    ""

 90 *-*  rmmlines = rmmout.0
    >V>    "0"
 92 *-*  items = 0
    >L>    "0"
 93 *-*  Do cnt = 1 To rmmlines
    >L>    "1"
    >V>    "0"
131 *-* End /* Do volnbr = 1 To volcnt */

----------------------------------------------------------------------
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

Reply via email to