Article View: bit.listserv.tsorexx
Article #24924Re: How to get PDS directory?
From: Bruce Anderson II
Date: Thu, 27 Oct 1994 01:58
Date: Thu, 27 Oct 1994 01:58
34 lines
2220 bytes
2220 bytes
On Wed, 26 Oct 1994 22:03:13 GMT Infocon said:
>I'm trying to write a REXX program that processes a list of members of
>a PDS. I've made several attempts but had no success at getting a list
>of members of a PDS to work with. Can anybody tell me how to do this with
>the REXX language? I would appreciate any help. Also, is there a FAQ list
>for this group?
I've had good luck with the following:
pds_dsn = "MYPDS.DATASET"
memlist = ""
xx = OUTTRAP('mems.','*','NOCONCAT')
"LISTDS "pds_dsn" MEMBERS"
xx = OUTTRAP('OFF')
DO i = 1 TO mems.0
IF mems.i = "--MEMBERS--" THEN
DO i = i+1 TO mems.0
memlist = memlist mems.i /* list of members */
END
ELSE
ITERATE i
END
DROP mems.
This will work in TSO. If you have ISPF, I believe there are library
services that will do the same.
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Bruce Anderson II BITNET: OSBA2@EMUVM1 ::
:: DBA INTERNET: OSBA2@EMUVM1.CC.EMORY.EDU ::
:: I.T.D. FAX: (404) 727-2838 ::
:: Emory University Land: 2004 Ridgewood Dr. ::
:: PHONE: (404) 727-0863 Atlanta, GA 30322 USA ::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Technical Details
Message-ID:
<TSO-REXX%94102709562025@BITNIC.CREN.NET>Path:
arc1-ca.pugleaf.net!nntp.gmd.de!newsserver.jvnc.net!howland.reston.ans.net!paladin.american.edu!auvm!EMUVM1.BITNET!OSBA2Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 11415f,f5d3748a33adca71 X-Google-Attributes: gid11415f,public X-Google-ArrivalTime: 1994-10-27 07:31:02 PST Path: arc1-ca.pugleaf.net!nntp.gmd.de!newsserver.jvnc.net!howland.reston.ans.net!paladin.american.edu!auvm!EMUVM1.BITNET!OSBA2 Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU Newsgroups: bit.listserv.tsorexx Message-ID: <TSO-REXX%94102709562025@BITNIC.CREN.NET> Date: Wed, 26 Oct 1994 21:58:57 EDT Sender: TSO REXX Discussion List <TSO-REXX@BITNIC.BITNET> From: Bruce Anderson II <OSBA2@EMUVM1.BITNET> Organization: Emory University - Atlanta, Georgia, USA Subject: Re: How to get PDS directory? In-Reply-To: Message of Wed, 26 Oct 1994 22:03:13 GMT from <miles@METRONET.COM> Lines: 33