🚀 go-pugleaf

On 1 May 2003 12:20:03 -0700 chuck_leviton@yahoo.com (charles leviton) wrote:

:>I am trying to write a REXX utility that will look for the presence of
:>a member in a list of PDS's.  The list is provided via a dataset.

:>In the program I read this list from the PDS into a Stem Variable
:>using DISKR.  But when I try to do the LISTDS for each stem variable
:>member I get an error.
:>This is the code

:>"ALLOC DA(CLIST(inlist)) F(myindd) SHR REUSE"
:>                                     /*alloc input dataset*/
:>"EXECIO  *  DISKR  myindd  (STEM newvar. FINIS"
:>                                     /*read into a stem and close*/
:>do jj = 1 to newvar.0             /*for each stemvar member*/
:>   "LISTDS '"newvar.jj"'  M"     /*get member list for each PDS*/
              ^STRIP()
:>end

:>This is the output I get
:>IKJ56709I INVALID DATA SET NAME, 'DATA.SET.NAME
:>IKJ56709I INVALID DATA SET NAME, '
:>***

:>The member USERID.CLIST(inlist) has a single line in it
:>DATA.SET.NAME (no quotes or apostrophes or anything)

:>It looks like there is something wrong with the quotation marks.

--
Binyamin Dissen <bdissen@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

Hi Charles -

Try it like this:

  mydsn = 'CICS410.PROD.XXXLOAD'
  myQuotedDsn = "'" || mydsn || "'"   
  pdsmem. = ''                                                    
  x = outtrap("pdsmem.","*")                                      
                                   
  LISTDS myQuotedDsn MEMBERS                                               
                                                                     
  do n = 7 to pdsmem.0                                             
     say 'pds member name: ' pdsmem.n
  end
   
Its very fussy about the quotes, and the trapped output has non-member 
names in the first 6 entries.

G'luck,

Ian
       



charles leviton wrote:

>I am trying to write a REXX utility that will look for the presence of
>a member in a list of PDS's.  The list is provided via a dataset.
>
>In the program I read this list from the PDS into a Stem Variable
>using DISKR.  But when I try to do the LISTDS for each stem variable
>member I get an error.
>This is the code
>
>"ALLOC DA(CLIST(inlist)) F(myindd) SHR REUSE"
>                                     /*alloc input dataset*/
>"EXECIO  *  DISKR  myindd  (STEM newvar. FINIS"
>                                     /*read into a stem and close*/
>do jj = 1 to newvar.0             /*for each stemvar member*/
>   "LISTDS '"newvar.jj"'  M"     /*get member list for each PDS*/
>end
>
>This is the output I get
>IKJ56709I INVALID DATA SET NAME, 'DATA.SET.NAME
>IKJ56709I INVALID DATA SET NAME, '
>***
>
>The member USERID.CLIST(inlist) has a single line in it
>DATA.SET.NAME (no quotes or apostrophes or anything)
>
>It looks like there is something wrong with the quotation marks.
>
>I would appreciate any help in this regard
>
>Thanks
>
>PS I trust posting this in both the REXX forums is not considered bad
>form
>  
>

In <d280a253.0305011120.70123a3a@posting.google.com>, on 05/01/2003
   at 12:20 PM, chuck_leviton@yahoo.com (charles leviton) said:

>I am trying to write a REXX utility that will look for the presence
>of a member in a list of PDS's.  The list is provided via a dataset.

This sort of problem is generally easier to track if you

 1. Echo the input, with delimitors so you can easily spot 
    extraneous blanks.

 2. Add a trace i or trace ?i before the failing code

My guess is that you have a trailing space, but why guess; the above
will tell you for sure.

-- 
     Shmuel (Seymour J.) Metz, SysProg and JOAT

Any unsolicited commercial junk E-mail will be subject to legal
action.  I reserve the right to publicly post or ridicule any
abusive E-mail.

I mangled my E-mail address to foil automated spammers; reply to
domain Patriot dot net user shmuel+news to contact me.  Do not
reply to spamtrap@library.lspace.org

As Bin said, use strip(), but the TSO extension SYSDSN() will save you all this trouble.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4a310/4.4.10

>I am trying to write a REXX utility that will look for the presence of
>a member in a list of PDS's.  The list is provided via a dataset.
>
>In the program I read this list from the PDS into a Stem Variable
>using DISKR.  But when I try to do the LISTDS for each stem variable
>member I get an error.
>This is the code
>
>"ALLOC DA(CLIST(inlist)) F(myindd) SHR REUSE"
>                                     /*alloc input dataset*/
>"EXECIO  *  DISKR  myindd  (STEM newvar. FINIS"
>                                     /*read into a stem and close*/
>do jj = 1 to newvar.0             /*for each stemvar member*/
>   "LISTDS '"newvar.jj"'  M"     /*get member list for each PDS*/
>end
>
>This is the output I get
>IKJ56709I INVALID DATA SET NAME, 'DATA.SET.NAME
>IKJ56709I INVALID DATA SET NAME, '
>***
>
>The member USERID.CLIST(inlist) has a single line in it
>DATA.SET.NAME (no quotes or apostrophes or anything)
>
>It looks like there is something wrong with the quotation marks.
>
>I would appreciate any help in this regard
>
>Thanks
>
>PS I trust posting this in both the REXX forums is not considered bad
>form


Doug Nadel
----------------------------------------
ISPF and OS/390 Tools & Toys page:
http://www.sillysot.com/mvs
Mail containing HTML or any attachments, including vcf files, is
automatically discarded. If you need to send me an attachment,
please let me know so that I can change my email filters.

Just STRIP your newvar.jj before LISTDS - that will do the thing. 

Sergey

chuck_leviton@yahoo.com (charles leviton) wrote in message news:<d280a253.0305011120.70123a3a@posting.google.com>...
> I am trying to write a REXX utility that will look for the presence of
> a member in a list of PDS's.  The list is provided via a dataset.
> 
> In the program I read this list from the PDS into a Stem Variable
> using DISKR.  But when I try to do the LISTDS for each stem variable
> member I get an error.
> This is the code
> 
> "ALLOC DA(CLIST(inlist)) F(myindd) SHR REUSE"
>                                      /*alloc input dataset*/
> "EXECIO  *  DISKR  myindd  (STEM newvar. FINIS"
>                                      /*read into a stem and close*/
> do jj = 1 to newvar.0             /*for each stemvar member*/
>    "LISTDS '"newvar.jj"'  M"     /*get member list for each PDS*/
> end
> 
> This is the output I get
> IKJ56709I INVALID DATA SET NAME, 'DATA.SET.NAME
> IKJ56709I INVALID DATA SET NAME, '
> ***
> 
> The member USERID.CLIST(inlist) has a single line in it
> DATA.SET.NAME (no quotes or apostrophes or anything)
> 
> It looks like there is something wrong with the quotation marks.
> 
> I would appreciate any help in this regard
> 
> Thanks
> 
> PS I trust posting this in both the REXX forums is not considered bad
> form

Thanks all, the STRIP was all I needed to do.  I will try the option
suggested by Doug Nadel.