List of members in a PDS

kanna n · New User Joined: 04 Oct 2007 Posts: 12 Location: pune

Hi,

Do we have any utility to get the information of a PDS like the list of members present in a PDS, when they modified last time.

PeterHolland · Posted: Wed Jan 06, 2010 3:14 pm

superk · Posted: Wed Jan 06, 2010 4:08 pm

If you need to write your own, remember working with a PDS means using the ISPF Library Management Services. In this case, the LMMLIST service.

PeterHolland · Posted: Wed Jan 06, 2010 4:14 pm

Hi Kevin,

as far as I see it he is opting for a ready for use solution.

expat · Posted: Wed Jan 06, 2010 5:06 pm

Or of course you could research IEHLIST as an option.

Bill Dennis · Posted: Wed Jan 06, 2010 8:21 pm

Go to ISPF Option 3.1 and print the index listing of the PDS (option 'X').

viveksurya · New User Joined: 08 Jun 2009 Posts: 36 Location: Bangalore

Hi Kanna,

Besides utility, u can get the required details using the following procedure:

Open PDS & type following in the command line,
"SAVE '2nd level qualifier' "
This will save all the members' name and attributes into a flat file named <ur userid>.<2nd level qualifier>.MEMBERS

Here is the illustration:

dick scherrer · Posted: Thu Jan 07, 2010 9:45 pm

Hello,

sam_ok · New User Joined: 22 Mar 2007 Posts: 18 Location: Hong Kong

expat · Posted: Thu Oct 21, 2010 12:39 pm

Please DO NOT tag your question onto an existing one, even though YOU might think this a good idea.

And to answer your question, Yes I do.
Go read my previous post in this thread and you will find your answer.

sam_ok · New User Joined: 22 Mar 2007 Posts: 18 Location: Hong Kong

You mean "IEHLIST with LISTPDS " ?

expat · Posted: Thu Oct 21, 2010 2:47 pm

Exactement

sam_ok · New User Joined: 22 Mar 2007 Posts: 18 Location: Hong Kong

The output of "IEHLIST with LISTPDS" is great different from PX line command (print index) in ISPF 3.4 menu, or using 'SAVE' primary command.

expat · Posted: Thu Oct 21, 2010 3:15 pm

Yes, but you asked for a utility that will list PDS members. IEHLIST does exactly what you requested.

If you want further information from the PDS then you have to actually say exactly what it is that you want to see.

sam_ok · New User Joined: 22 Mar 2007 Posts: 18 Location: Hong Kong

HERE IS MY FINAL SOLUTION....

(1) Go to www.jaymoseley.com/hercules/cbtware/listpds.htm
(2) Download listpds.tgz (There is a download link)
(3) Extract the source code from listpds.tgz. The source code is written by Assembler language.
(4) Upload the source to your MVS host
(5) Compile it. Remember using the following SYSLIB:
.....
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
.....
//SYSLMOD DD DSN=SYS2.LINKLIB,DISP=SHR
.....

(6) Submit the following JCL to run LISTPDS. For details, you may refer to point no. (1)

//JOBLIB DD DISP=SHR,DSN=SYS2.LINKLIB
//STEP1 EXEC PGM=LISTPDS
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=DRVUSER.JCL.SSL

Hope the above information is useful.

enrico-sorichetti · Posted: Thu Oct 21, 2010 6:32 pm

Your final solution disregards the most elementary rules of a good organization
what has been requested can be achieved using vanilla system utilities!
loading and installing software without proper authorization is sometimes cause for lawful termination

Robert Sample · Posted: Thu Oct 21, 2010 6:46 pm

sam_ok, if an application programmer tried your solution at my site, their first problem would be that library SYS2.LINKLIB does not exist. Then if they changed the JCL you provided to use an existing SYSx.LINKLIB, they would find that they cannot update any of the SYSx.LINKLIB at all and would generate a RACF error message. There would then be close management scrutiny of the approval process used to implement the software solution you proposed. Your solution is site-specific, not generic, and ignores a number of common security protocols designed to prevent system problems -- all of which could, very easily, cause an application programmer's employment status to change rapidly.

There are very good reasons why software installations at mainframe sites are typically handled by systems programmers.

sam_ok · New User Joined: 22 Mar 2007 Posts: 18 Location: Hong Kong

I am a system programmer.

I provided the solution. There should be lot of procedures to follow for promoting such a program to production environment.

Of course, the whole process must conform to the security policy of a company.

sam_ok · New User Joined: 22 Mar 2007 Posts: 18 Location: Hong Kong

No need to compile an alien program....

I copied it from another forum.

Step 1: Create the following REXX (saved it as "LIST01")

=============================================
/* REXX */
/* QUICK ISPF SAVE OF MEMBER STATS. */
ARG DS G
/* DS IS THE DATA SET NAME TO GET THE STATS FROM. */
/* G IS THE MIDDLE QUALIFER OF THE SAVED DATA SET */
/* THE SAVED DATA SET NAME WILL BE USERID.G.MEMBERS */
IF G = '' THEN G = 'LIST01'
IF DS = '' THEN DS = 'TCPIP.AEZAMODS'
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN"
"LMINIT DATAID(STATID) DATASET('"DS"')"
IF RC = 0 THEN DO
"LMOPEN DATAID("STATID")"
"LMMLIST DATAID("STATID") OPTION(SAVE) STATS(YES) GROUP("G")"
END
"LMFREE DATAID("STATID")"
=============================================

Step 2: Create the following JCL:

=============================================
//ALOCPROF EXEC PGM=IEFBR14
//PROFILE DD UNIT=3390,DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1,5)),DCB=(LRECL=80,
// BLKSIZE=0,DSORG=PO,RECFM=FB),VOL=SER=PSPP01,
// DSN=DRVUSER.ISPF.TEMPPROF
//*-------------------------------------------------------------------*
//* INVOKE ISPF *
//*-------------------------------------------------------------------*
//BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB
// DD DISP=SHR,DSN=ISP.SISPSENU
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPROF DD DSN=DRVUSER.ISPF.TEMPPROF,DISP=(OLD,DELETE)
//ISPTABL DD DSN=DRVUSER.ISPF.TEMPPROF,DISP=OLD
//ISPTLIB DD DSN=DRVUSER.ISPF.TEMPPROF,DISP=OLD
// DD DISP=SHR,DSN=ISP.SISPTENU
//ISPLOG DD SYSOUT=*,
// DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB)
//ISPLIST DD SYSOUT=*,
// DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//SYSEXEC DD DISP=SHR,DSN=ISP.SISPEXEC
//SYSPROC DD DISP=SHR,DSN=ISP.SISPCLIB
// DD DISP=SHR,DSN=DRVUSER.JCL.CNTL <== contains "LIST01" REXX code
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE PREFIX(DRVUSER)
ISPSTART CMD(%LIST01) NEWAPPL(ISR)
=============================================

*** RESULT ***

You will get the print PDS listing formatted output or "SAVE" PDS listing output.

HORRAY !!! :P