Re: Looking for a utility to create a master listing of all PDS members on a system
Radoslaw, Have you mistyped there? I really don't think PDSE is 40 years old. That would mean it was around in 1979. In 1979 we were still working on a 16MB system. We did not even have cross memory services, that came in with MVS/SP 1.2. I joined IBM in 1996 and worked in the support centre for a while. We were dealing with early problems with PDSE then. So I think PDSE may be older than 25 years. Or have I misunderstood? Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd ‘Dance like no one is watching. Encrypt like everyone is.’ -Original Message- From: IBM Mainframe Discussion List On Behalf Of R.S. Sent: 12 December 2019 17:14 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [IBM-MAIN] Looking for a utility to create a master listing of all PDS members on a system W dniu 2019-12-11 o 17:01, Paul Gilmartin pisze: > On Wed, 11 Dec 2019 10:40:33 -0500, Don Leahy wrote: > >> I have a rexx program that reads in a list of data set names and / or >> masks and creates a “master” member list consisting of all of the PDS/E >> members >> found in the data sets. The output is a file containing the member name, >> the DSN, last update date (from ISPF stats, if available) and the >> number of lines in the member. >> > Grrr... > FAMS keeps timestamps for PDSE members with microsecond precision. > The interface spec is available for a price, perhaps NDA. > > It boggles the mind that a vendor would keep customers' file > timestamps secret. It's both: funny and annoying. PDSE is almost 40 years old, AFAIK and many features of it is still secret, not in use, etc. Note, it's not discussion about source code, it is about really basic features. I can't imagine any reason to keep it secret. -- Radoslaw Skorupka Lodz, Poland == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2019 r. wynosi 169.347.928 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.347.928 as at 1 January 2019. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
On Thu, 12 Dec 2019 09:22:47 -0800, Charles Mills wrote: >I think IBM has a problem with making something free that used to be charged. >Not sure exactly what the problem is; perhaps a fear that those who paid years >ago will want their money back. It is solvable by creating a new free offering >that is a lot like, but not exactly the same as, the former paid offering, but >that is an additional internal hurdle to be overcome. > AOPBATCH vs. BPXBATCH? IT may be that IBM fears that providing a new facility with a useful feature will provoke a demand that feature be retrofitted into the older facility. (E.g. "Why can't PDS members automatically be timestamped like PDSE?) >-Original Message- >From: R.S. >Sent: Thursday, December 12, 2019 9:14 AM > >> Grrr... >> FAMS keeps timestamps for PDSE members with microsecond precision. >> The interface spec is available for a price, perhaps NDA. >> >> It boggles the mind that a vendor would keep customers' file timestamps >> secret. > >It's both: funny and annoying. PDSE is almost 40 years old, AFAIK and >many features of it is still secret, not in use, etc. Note, it's not >discussion about source code, it is about really basic features. >I can't imagine any reason to keep it secret. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
I *think* that 99% of all code written to process a PDS directory works correctly with a PDSE directory. DFSMS simulates the 256-byte directory blocks and so forth. Perhaps read-only -- not sure you can update a PDSE directory as though it were a PDS -- but that is irrelevant here. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of CM Poncelet Sent: Thursday, December 12, 2019 1:48 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Looking for a utility to create a master listing of all PDS members on a system (Here it is again, without the line numbers in cols 73-80:) FWIW This program dumps all members' names in a PDS. It can be modified to display any other PDS directory data, and can be invoked recursively (e.g. from REXX) to process any number of PDS datasets. No idea whether it can process PDSEs (I wrote it in the 1980's), but it might do. "EQUREGS" is a macro to copy in the register equates: MACRO EQUREGS R0 EQU 0REDEFINE REGISTERS R1 EQU 1 ... AR0 EQU 0 MEND HTH / Cheers, Chris Poncelet (retired sysprog) * * LIST ALL MEMBERS OF A PDS * * * * * * * * * PRINT NOGEN PDSMEM CSECT EQUREGS * * START OF MACROS * * MACRO READREC READ DECB,SF,,BUFFER,256 CHECK DECB,DSORG=ALL MEND * MACRO WRITEREC PUT REPORT,OUTPUT MEND * * END OF MACROS ** * * DIRECT DSECT DATA DSXL2 LENGTH OF THIS DIRECTORY BLOCK NAME DSCL8 NAME OF THIS/NEXT MEMBER TTR DSXL3 TRACK ADDRESS OF MEMBER CDSX 0:ALIAS;1-2:#UBLOCKS;3-7:#HALFWORDS * PDSMEM CSECT STM R14,R12,12(R13) SAVE REGISTERS LRR11,R15 LOAD ENTRY POINT ADDRESS USING PDSMEM,R11 BASE REGISTER = R11 STR13,SAVEBLK+8 BACKWARD POINTER LRR6,R13 LAR13,SAVEBLK OUR SAVE AREA STR13,4(,R6) FORWARD POINTER * STARTOPEN (PDS,(INPUT)) OPEN DIRECTORY OPEN (REPORT,(OUTPUT)) OPEN LIST OF MEMBERS FILE * USING DIRECT,R9 BASE DIRECTORY BUFFER ON R9 * NEXTREC READREC PDS READ DIRECTORY BLOCK LAR9,BUFFER-2 MAP DSECT OVER IT LESS 'DATA' LENGTH LHR7,DATA+2 LOAD BUFFER LENGTH INTO R7 ARR7,R9 R7 <- END OF BUFFER ADDRESS LAR9,2(,R9) R9 <- START OF BUFFER ADDRESS NEXT CLR R9,R7 AT END OF BUFFER? BENEXTREC - YES: READ NEXT DIRECTORY BLOCK MVC C_S,C - NO: CHECK WHETHER ALIAS NIC_S,B'1000' ALIAS? BNE SKIP - YES: SKIP THIS ENTRY CLI NAME,X'FF'- NO: END OF DIRECTORY? BEEOJ - YES: TERMINATE MVC OUTPUT,NAME - NO: TAKE THIS MEMBER NAME WRITEREC AND WRITE IT TO REPORT SKIP MVC C_S,C FIND OFFSET TO NEXT MEMBER NAME NIC_S,B'0001' ZERO-OUT IRRELEVANT BITS XRR8,R8 CLEAR R8 FOR USE AS WORK REGISTER ICM R8,B'0001',C_S R8 <- NUMBER OF HALFWORDS SLL R8,1R8 <- NUMBER OF BYTES LAR9,12(R8,R9)R9 <- ADDRESS-2 OF NEXT MEMBER NAME B NEXTGO PROCESS NEXT MEMBER NAME * EOJ CLOSE (PDS,,REPORT) CLOSE FILES * FINISH L R13,SAVEBLK+8 RESTORE CALLER'S R13 LMR14,R12,12(R13) RESTORE REGISTERS XRR15,R15 CLEAR RETURN CODE BRR14 RETURN TO CALLER * * FILES ** * * REPORT DCB DDNAME=REPORT, X DSORG=PS,
Re: Looking for a utility to create a master listing of all PDS members on a system
(Here it is again, without the line numbers in cols 73-80:) FWIW This program dumps all members' names in a PDS. It can be modified to display any other PDS directory data, and can be invoked recursively (e.g. from REXX) to process any number of PDS datasets. No idea whether it can process PDSEs (I wrote it in the 1980's), but it might do. "EQUREGS" is a macro to copy in the register equates: MACRO EQUREGS R0 EQU 0 REDEFINE REGISTERS R1 EQU 1 ... AR0 EQU 0 MEND HTH / Cheers, Chris Poncelet (retired sysprog) * * LIST ALL MEMBERS OF A PDS * * * * * * * * * PRINT NOGEN PDSMEM CSECT EQUREGS * * START OF MACROS * * MACRO READREC READ DECB,SF,,BUFFER,256 CHECK DECB,DSORG=ALL MEND * MACRO WRITEREC PUT REPORT,OUTPUT MEND * * END OF MACROS ** * * DIRECT DSECT DATA DSXL2 LENGTH OF THIS DIRECTORY BLOCK NAME DSCL8 NAME OF THIS/NEXT MEMBER TTR DSXL3 TRACK ADDRESS OF MEMBER CDSX 0:ALIAS;1-2:#UBLOCKS;3-7:#HALFWORDS * PDSMEM CSECT STM R14,R12,12(R13) SAVE REGISTERS LRR11,R15 LOAD ENTRY POINT ADDRESS USING PDSMEM,R11 BASE REGISTER = R11 STR13,SAVEBLK+8 BACKWARD POINTER LRR6,R13 LAR13,SAVEBLK OUR SAVE AREA STR13,4(,R6) FORWARD POINTER * STARTOPEN (PDS,(INPUT)) OPEN DIRECTORY OPEN (REPORT,(OUTPUT)) OPEN LIST OF MEMBERS FILE * USING DIRECT,R9 BASE DIRECTORY BUFFER ON R9 * NEXTREC READREC PDS READ DIRECTORY BLOCK LAR9,BUFFER-2 MAP DSECT OVER IT LESS 'DATA' LENGTH LHR7,DATA+2 LOAD BUFFER LENGTH INTO R7 ARR7,R9 R7 <- END OF BUFFER ADDRESS LAR9,2(,R9) R9 <- START OF BUFFER ADDRESS NEXT CLR R9,R7 AT END OF BUFFER? BENEXTREC - YES: READ NEXT DIRECTORY BLOCK MVC C_S,C - NO: CHECK WHETHER ALIAS NIC_S,B'1000' ALIAS? BNE SKIP - YES: SKIP THIS ENTRY CLI NAME,X'FF'- NO: END OF DIRECTORY? BEEOJ - YES: TERMINATE MVC OUTPUT,NAME - NO: TAKE THIS MEMBER NAME WRITEREC AND WRITE IT TO REPORT SKIP MVC C_S,C FIND OFFSET TO NEXT MEMBER NAME NIC_S,B'0001' ZERO-OUT IRRELEVANT BITS XRR8,R8 CLEAR R8 FOR USE AS WORK REGISTER ICM R8,B'0001',C_S R8 <- NUMBER OF HALFWORDS SLL R8,1R8 <- NUMBER OF BYTES LAR9,12(R8,R9)R9 <- ADDRESS-2 OF NEXT MEMBER NAME B NEXTGO PROCESS NEXT MEMBER NAME * EOJ CLOSE (PDS,,REPORT) CLOSE FILES * FINISH L R13,SAVEBLK+8 RESTORE CALLER'S R13 LMR14,R12,12(R13) RESTORE REGISTERS XRR15,R15 CLEAR RETURN CODE BRR14 RETURN TO CALLER * * FILES ** * * REPORT DCB DDNAME=REPORT, X DSORG=PS, X MACRF=(PM) PUT AND MOVE TRANSMITTAL * PDS DCB BLKSIZE=256,X DDNAME=PDS, X DSORG=PSU, X EODAD=EOJ, X RECFM=VB, X MACRF=(R) READ * * STORAGE
Re: Looking for a utility to create a master listing of all PDS members on a system
FWIW This program dumps all members' names in a PDS. It can be modified to display any other PDS directory data, and can be invoked recursively (e.g. from REXX) to process any number of PDS datasets. No idea whether it can process PDSEs (I wrote it in the 1980's), but it might do. "EQUREGS" is a macro to copy in the register equates: MACRO EQUREGS R0 EQU 0 REDEFINE REGISTERS R1 EQU 1 ... AR0 EQU 0 MEND HTH / Cheers, Chris Poncelet (retired sysprog) * 0100 * LIST ALL MEMBERS OF A PDS * 0200 * * 0300 * * 0400 * * 0500 * 0600 * 0700 PRINT NOGEN 0800 PDSMEM CSECT 0900 EQUREGS 1000 * 1100 * 1200 START OF MACROS 1300 * 1400 * 1500 MACRO 1600 READREC 1700 READ DECB,SF,,BUFFER,256 1800 CHECK DECB,DSORG=ALL 1900 MEND 2000 * 2100 MACRO 2200 WRITEREC 2300 PUT REPORT,OUTPUT 2400 MEND 2500 * 2600 * 2700 END OF MACROS ** 2800 * 2900 * 3000 DIRECT DSECT 3100 DATA DS XL2 LENGTH OF THIS DIRECTORY BLOCK 3200 NAME DS CL8 NAME OF THIS/NEXT MEMBER 3300 TTR DS XL3 TRACK ADDRESS OF MEMBER 3400 C DS X 0:ALIAS;1-2:#UBLOCKS;3-7:#HALFWORDS 3500 * 3600 PDSMEM CSECT 3700 STM R14,R12,12(R13) SAVE REGISTERS 3800 LR R11,R15 LOAD ENTRY POINT ADDRESS 3900 USING PDSMEM,R11 BASE REGISTER = R11 4000 ST R13,SAVEBLK+8 BACKWARD POINTER 4100 LR R6,R13 4200 LA R13,SAVEBLK OUR SAVE AREA 4300 ST R13,4(,R6) FORWARD POINTER 4400 * 4500 START OPEN (PDS,(INPUT)) OPEN DIRECTORY 4600 OPEN (REPORT,(OUTPUT)) OPEN LIST OF MEMBERS FILE 4700 * 4800 USING DIRECT,R9 BASE DIRECTORY BUFFER ON R9 4900 * 5000 NEXTREC READREC PDS READ DIRECTORY BLOCK 5100 LA R9,BUFFER-2 MAP DSECT OVER IT LESS 'DATA' LENGTH 5200 LH R7,DATA+2 LOAD BUFFER LENGTH INTO R7 5300 AR R7,R9 R7 <- END OF BUFFER ADDRESS 5400 LA R9,2(,R9) R9 <- START OF BUFFER ADDRESS 5500 NEXT CLR R9,R7
Re: Looking for a utility to create a master listing of all PDS members on a system
I think IBM has a problem with making something free that used to be charged. Not sure exactly what the problem is; perhaps a fear that those who paid years ago will want their money back. It is solvable by creating a new free offering that is a lot like, but not exactly the same as, the former paid offering, but that is an additional internal hurdle to be overcome. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of R.S. Sent: Thursday, December 12, 2019 9:14 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Looking for a utility to create a master listing of all PDS members on a system W dniu 2019-12-11 o 17:01, Paul Gilmartin pisze: > On Wed, 11 Dec 2019 10:40:33 -0500, Don Leahy wrote: > >> I have a rexx program that reads in a list of data set names and / or masks >> and creates a “master” member list consisting of all of the PDS/E members >> found in the data sets. The output is a file containing the member name, >> the DSN, last update date (from ISPF stats, if available) and the number of >> lines in the member. >> > Grrr... > FAMS keeps timestamps for PDSE members with microsecond precision. > The interface spec is available for a price, perhaps NDA. > > It boggles the mind that a vendor would keep customers' file timestamps > secret. It's both: funny and annoying. PDSE is almost 40 years old, AFAIK and many features of it is still secret, not in use, etc. Note, it's not discussion about source code, it is about really basic features. I can't imagine any reason to keep it secret. -- Radoslaw Skorupka Lodz, Poland == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2019 r. wynosi 169.347.928 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.347.928 as at 1 January 2019. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
W dniu 2019-12-11 o 17:01, Paul Gilmartin pisze: On Wed, 11 Dec 2019 10:40:33 -0500, Don Leahy wrote: I have a rexx program that reads in a list of data set names and / or masks and creates a “master” member list consisting of all of the PDS/E members found in the data sets. The output is a file containing the member name, the DSN, last update date (from ISPF stats, if available) and the number of lines in the member. Grrr... FAMS keeps timestamps for PDSE members with microsecond precision. The interface spec is available for a price, perhaps NDA. It boggles the mind that a vendor would keep customers' file timestamps secret. It's both: funny and annoying. PDSE is almost 40 years old, AFAIK and many features of it is still secret, not in use, etc. Note, it's not discussion about source code, it is about really basic features. I can't imagine any reason to keep it secret. -- Radoslaw Skorupka Lodz, Poland == Jeśli nie jesteś adresatem tej wiadomości: - powiadom nas o tym w mailu zwrotnym (dziękujemy!), - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś na dysku). Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać karze. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 01.01.2019 r. wynosi 169.347.928 złotych. If you are not the addressee of this message: - let us know by replying to this e-mail (thank you!), - delete this message permanently (including all the copies which you have printed out or saved). This message may contain legally protected information, which may be used exclusively by the addressee.Please be reminded that anyone who disseminates (copies, distributes) this message or takes any similar action, violates the law and may be penalised. mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital City of Warsaw, 12th Commercial Division of the National Court Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 169.347.928 as at 1 January 2019. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
On Wed, 11 Dec 2019 10:40:33 -0500, Don Leahy wrote: >I have a rexx program that reads in a list of data set names and / or masks >and creates a “master” member list consisting of all of the PDS/E members >found in the data sets. The output is a file containing the member name, >the DSN, last update date (from ISPF stats, if available) and the number of >lines in the member. > Grrr... FAMS keeps timestamps for PDSE members with microsecond precision. The interface spec is available for a price, perhaps NDA. It boggles the mind that a vendor would keep customers' file timestamps secret. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
I have a rexx program that reads in a list of data set names and / or masks
and creates a “master” member list consisting of all of the PDS/E members
found in the data sets. The output is a file containing the member name,
the DSN, last update date (from ISPF stats, if available) and the number of
lines in the member.
It uses LMDLIST to process the list of data set names, and for each data
set it uses LMMLIST to retrieve the member name and ISPF stats.
It is quite simple and I have found a lot of uses for it.
On Tue, Dec 10, 2019 at 15:05 ITschak Mugzach wrote:
> /* Rexx */
> "free f(List)"
> "alloc f(list) da(mylisy_dataset) shr"
> "ExecIO * DiskR list (stem List. finis"
> Do i = 1 to list.0
>xdsn = list.0
>TrapMode = outtrap('mem.')
>"LISTD" xDsn "Members"
>TrapMode = Outtrap('OFF')
>Do j = 7 to Mem.0
> Say Left(xDsn,44) mem.i /* print as you like */
> End
>End
> End
>
>
>
> best,
> ITschak
>
> On Tue, Dec 10, 2019 at 8:26 PM Lizette Koehler
> wrote:
>
> > Depending on the number of datasets you need to do.
> >
> > A quick process is ISPF Option 3.4 and use PX next to the PDS. It will
> > create a
> > pretty listing that might do what you want. I am not sure how to run
> this
> > in
> > batch.
> >
> >
> >
> > Not sure what the utility you are looking to run would do.
> >
> > But for quick and dirty, ISPF Option 3.4 with PX might give you some
> ideas
> > of
> > what you want to produce in your own utility.
> >
> > Lizette
> >
> >
> >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List On
> > Behalf Of
> > > Lionel B Dyck
> > > Sent: Tuesday, December 10, 2019 10:49 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: Looking for a utility to create a master listing of all
> PDS
> > > members on a system
> > >
> > > Except that LISTDSI does not list the member names - LISTDS however
> will
> > > using the Members keyword.
> > >
> > > Would need to use one of the many vtoc commands on the cbttape, or even
> > > iehlist, process the results to find the pds dsnames and then do the
> > LISTDS
> > > for each.
> > >
> > >
> > > Lionel B. Dyck <
> > > Website: http://www.lbdsoftware.com
> > >
> > > "Worry more about your character than your reputation. Character is
> > what you
> > > are, reputation merely what others think you are." - John Wooden
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List On
> > Behalf Of
> > > Seymour J Metz
> > > Sent: Tuesday, December 10, 2019 11:37 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: Looking for a utility to create a master listing of all
> PDS
> > > members on a system
> > >
> > > IMHO the best options are ISPF and SAS, but the LISTDSI suggestion also
> > > works.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3
> > >
> > >
> > >
> > > From: IBM Mainframe Discussion List on
> > behalf of
> > > Tony Thigpen
> > > Sent: Tuesday, December 10, 2019 8:11 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Looking for a utility to create a master listing of all PDS
> > members
> > > on a system
> > >
> > > I am looking for a utility that will take a list of PDS libraries and
> > > generate a list of all members in the PDS.
> > >
> > > I have hundreds of PDSs on an old system I have to maintain and all the
> > old
> > > staff with any knowledge are gone. There are hundreds of PDS libraries
> > and no
> > > doc as to where anything is stored. I want, as a one time job, to
> create
> > a
> > > listing with a single line per member/PDS set:
> > > Member_name PDS_name
> > >
> > > I figure there is something already available before I start writing
> > > something new.
> > >
> > > This system does *not* have any PDSE libraries as it is OS/390 02.10.
> > >
> > > --
> > > Tony Thigpen
> > >
> > > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to
> > > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > >
> > > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to
> > > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > >
> > > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to
> > > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
>
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
> for Legacy **| *
>
>
Re: Looking for a utility to create a master listing of all PDS members on a system
/* Rexx */
"free f(List)"
"alloc f(list) da(mylisy_dataset) shr"
"ExecIO * DiskR list (stem List. finis"
Do i = 1 to list.0
xdsn = list.0
TrapMode = outtrap('mem.')
"LISTD" xDsn "Members"
TrapMode = Outtrap('OFF')
Do j = 7 to Mem.0
Say Left(xDsn,44) mem.i /* print as you like */
End
End
End
best,
ITschak
On Tue, Dec 10, 2019 at 8:26 PM Lizette Koehler
wrote:
> Depending on the number of datasets you need to do.
>
> A quick process is ISPF Option 3.4 and use PX next to the PDS. It will
> create a
> pretty listing that might do what you want. I am not sure how to run this
> in
> batch.
>
>
>
> Not sure what the utility you are looking to run would do.
>
> But for quick and dirty, ISPF Option 3.4 with PX might give you some ideas
> of
> what you want to produce in your own utility.
>
> Lizette
>
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List On
> Behalf Of
> > Lionel B Dyck
> > Sent: Tuesday, December 10, 2019 10:49 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Looking for a utility to create a master listing of all PDS
> > members on a system
> >
> > Except that LISTDSI does not list the member names - LISTDS however will
> > using the Members keyword.
> >
> > Would need to use one of the many vtoc commands on the cbttape, or even
> > iehlist, process the results to find the pds dsnames and then do the
> LISTDS
> > for each.
> >
> >
> > Lionel B. Dyck <
> > Website: http://www.lbdsoftware.com
> >
> > "Worry more about your character than your reputation. Character is
> what you
> > are, reputation merely what others think you are." - John Wooden
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List On
> Behalf Of
> > Seymour J Metz
> > Sent: Tuesday, December 10, 2019 11:37 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Looking for a utility to create a master listing of all PDS
> > members on a system
> >
> > IMHO the best options are ISPF and SAS, but the LISTDSI suggestion also
> > works.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> >
> > From: IBM Mainframe Discussion List on
> behalf of
> > Tony Thigpen
> > Sent: Tuesday, December 10, 2019 8:11 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Looking for a utility to create a master listing of all PDS
> members
> > on a system
> >
> > I am looking for a utility that will take a list of PDS libraries and
> > generate a list of all members in the PDS.
> >
> > I have hundreds of PDSs on an old system I have to maintain and all the
> old
> > staff with any knowledge are gone. There are hundreds of PDS libraries
> and no
> > doc as to where anything is stored. I want, as a one time job, to create
> a
> > listing with a single line per member/PDS set:
> > Member_name PDS_name
> >
> > I figure there is something already available before I start writing
> > something new.
> >
> > This system does *not* have any PDSE libraries as it is OS/390 02.10.
> >
> > --
> > Tony Thigpen
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to
> > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to
> > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to
> > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring
for Legacy **| *
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
Depending on the number of datasets you need to do. A quick process is ISPF Option 3.4 and use PX next to the PDS. It will create a pretty listing that might do what you want. I am not sure how to run this in batch. Not sure what the utility you are looking to run would do. But for quick and dirty, ISPF Option 3.4 with PX might give you some ideas of what you want to produce in your own utility. Lizette > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Lionel B Dyck > Sent: Tuesday, December 10, 2019 10:49 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Looking for a utility to create a master listing of all PDS > members on a system > > Except that LISTDSI does not list the member names - LISTDS however will > using the Members keyword. > > Would need to use one of the many vtoc commands on the cbttape, or even > iehlist, process the results to find the pds dsnames and then do the LISTDS > for each. > > > Lionel B. Dyck < > Website: http://www.lbdsoftware.com > > "Worry more about your character than your reputation. Character is what you > are, reputation merely what others think you are." - John Wooden > > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Seymour J Metz > Sent: Tuesday, December 10, 2019 11:37 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Looking for a utility to create a master listing of all PDS > members on a system > > IMHO the best options are ISPF and SAS, but the LISTDSI suggestion also > works. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > > From: IBM Mainframe Discussion List on behalf of > Tony Thigpen > Sent: Tuesday, December 10, 2019 8:11 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Looking for a utility to create a master listing of all PDS members > on a system > > I am looking for a utility that will take a list of PDS libraries and > generate a list of all members in the PDS. > > I have hundreds of PDSs on an old system I have to maintain and all the old > staff with any knowledge are gone. There are hundreds of PDS libraries and no > doc as to where anything is stored. I want, as a one time job, to create a > listing with a single line per member/PDS set: > Member_name PDS_name > > I figure there is something already available before I start writing > something new. > > This system does *not* have any PDSE libraries as it is OS/390 02.10. > > -- > Tony Thigpen > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
Except that LISTDSI does not list the member names - LISTDS however will using the Members keyword. Would need to use one of the many vtoc commands on the cbttape, or even iehlist, process the results to find the pds dsnames and then do the LISTDS for each. Lionel B. Dyck < Website: http://www.lbdsoftware.com "Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - John Wooden -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Tuesday, December 10, 2019 11:37 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Looking for a utility to create a master listing of all PDS members on a system IMHO the best options are ISPF and SAS, but the LISTDSI suggestion also works. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Tony Thigpen Sent: Tuesday, December 10, 2019 8:11 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for a utility to create a master listing of all PDS members on a system I am looking for a utility that will take a list of PDS libraries and generate a list of all members in the PDS. I have hundreds of PDSs on an old system I have to maintain and all the old staff with any knowledge are gone. There are hundreds of PDS libraries and no doc as to where anything is stored. I want, as a one time job, to create a listing with a single line per member/PDS set: Member_name PDS_name I figure there is something already available before I start writing something new. This system does *not* have any PDSE libraries as it is OS/390 02.10. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
IMHO the best options are ISPF and SAS, but the LISTDSI suggestion also works. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Tony Thigpen Sent: Tuesday, December 10, 2019 8:11 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for a utility to create a master listing of all PDS members on a system I am looking for a utility that will take a list of PDS libraries and generate a list of all members in the PDS. I have hundreds of PDSs on an old system I have to maintain and all the old staff with any knowledge are gone. There are hundreds of PDS libraries and no doc as to where anything is stored. I want, as a one time job, to create a listing with a single line per member/PDS set: Member_name PDS_name I figure there is something already available before I start writing something new. This system does *not* have any PDSE libraries as it is OS/390 02.10. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
Tony, Rexx the wonder horse can do it too , ‘LISTDSI’ Scott On Tue, Dec 10, 2019 at 8:36 AM PINION, RICHARD W. wrote: > Run the TSO command LISTD 'partitioned.data.set' M in a batch job > executing IKJEFT01. > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Vernooij, Kees (ITOP NM) - KLM > Sent: Tuesday, December 10, 2019 8:17 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Looking for a utility to create a master listing of all PDS > members on a system > > [External Email] > > If you have SAS I would use this, because then you can produce all kinds > of statistics on the PDSs and members. > - Use PROC SOURCE to produce a memberlist of each PDS. > - Create a database with the PDS / member info. > - Produce all desired statistics and cross checks from that database. > > Kees. > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Tony Thigpen > Sent: 10 December 2019 14:11 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Looking for a utility to create a master listing of all PDS > members on a system > > I am looking for a utility that will take a list of PDS libraries and > generate a list of all members in the PDS. > > I have hundreds of PDSs on an old system I have to maintain and all the > old staff with any knowledge are gone. There are hundreds of PDS libraries > and no doc as to where anything is stored. I want, as a one time job, to > create a listing with a single line per member/PDS set: > Member_name PDS_name > > I figure there is something already available before I start writing > something new. > > This system does *not* have any PDSE libraries as it is OS/390 02.10. > > -- > Tony Thigpen > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > For information, services and offers, please visit our web site: > http://www.klm.com. This e-mail and any attachment may contain > confidential and privileged material intended for the addressee only. If > you are not the addressee, you are notified that no part of the e-mail or > any attachment may be disclosed, copied or distributed, and that any other > action related to this e-mail or attachment is strictly prohibited, and may > be unlawful. If you have received this e-mail by error, please notify the > sender immediately by return e-mail, and delete this message. > > Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its > employees shall not be liable for the incorrect or incomplete transmission > of this e-mail or any attachments, nor responsible for any delay in receipt. > Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch > Airlines) is registered in Amstelveen, The Netherlands, with registered > number 33014286 > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > Confidentiality notice: > This e-mail message, including any attachments, may contain legally > privileged and/or confidential information. If you are not the intended > recipient(s), or the employee or agent responsible for delivery of this > message to the intended recipient(s), you are hereby notified that any > dissemination, distribution, or copying of this e-mail message is strictly > prohibited. If you have received this message in error, please immediately > notify the sender and delete this e-mail message from your computer. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Scott Ford IDMWORKS z/OS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
Run the TSO command LISTD 'partitioned.data.set' M in a batch job executing IKJEFT01. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Tuesday, December 10, 2019 8:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Looking for a utility to create a master listing of all PDS members on a system [External Email] If you have SAS I would use this, because then you can produce all kinds of statistics on the PDSs and members. - Use PROC SOURCE to produce a memberlist of each PDS. - Create a database with the PDS / member info. - Produce all desired statistics and cross checks from that database. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tony Thigpen Sent: 10 December 2019 14:11 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for a utility to create a master listing of all PDS members on a system I am looking for a utility that will take a list of PDS libraries and generate a list of all members in the PDS. I have hundreds of PDSs on an old system I have to maintain and all the old staff with any knowledge are gone. There are hundreds of PDS libraries and no doc as to where anything is stored. I want, as a one time job, to create a listing with a single line per member/PDS set: Member_name PDS_name I figure there is something already available before I start writing something new. This system does *not* have any PDSE libraries as it is OS/390 02.10. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a utility to create a master listing of all PDS members on a system
If you have SAS I would use this, because then you can produce all kinds of statistics on the PDSs and members. - Use PROC SOURCE to produce a memberlist of each PDS. - Create a database with the PDS / member info. - Produce all desired statistics and cross checks from that database. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tony Thigpen Sent: 10 December 2019 14:11 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for a utility to create a master listing of all PDS members on a system I am looking for a utility that will take a list of PDS libraries and generate a list of all members in the PDS. I have hundreds of PDSs on an old system I have to maintain and all the old staff with any knowledge are gone. There are hundreds of PDS libraries and no doc as to where anything is stored. I want, as a one time job, to create a listing with a single line per member/PDS set: Member_name PDS_name I figure there is something already available before I start writing something new. This system does *not* have any PDSE libraries as it is OS/390 02.10. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Looking for a utility to create a master listing of all PDS members on a system
I am looking for a utility that will take a list of PDS libraries and generate a list of all members in the PDS. I have hundreds of PDSs on an old system I have to maintain and all the old staff with any knowledge are gone. There are hundreds of PDS libraries and no doc as to where anything is stored. I want, as a one time job, to create a listing with a single line per member/PDS set: Member_name PDS_name I figure there is something already available before I start writing something new. This system does *not* have any PDSE libraries as it is OS/390 02.10. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
