IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

members of a pds into excel


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
shchan

New User


Joined: 06 Jun 2007
Posts: 58
Location: Hyderabad

PostPosted: Wed Mar 11, 2009 12:44 pm
Reply with quote

Hi ,
Is there any command to copy the names of the members in a PDS to an excel or a ps file atleast ??
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Mar 11, 2009 12:52 pm
Reply with quote

Yes, and the various ways of doing this via REXX are all mentioned on the forum, and you can also use utilies like IEHLIST if you are unsure about REXX.
Back to top
View user's profile Send private message
shchan

New User


Joined: 06 Jun 2007
Posts: 58
Location: Hyderabad

PostPosted: Wed Mar 11, 2009 12:57 pm
Reply with quote

Thanks expat,
can u please tell me how to use this command because i tried using it 'tso iehlist' but it did not work.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Mar 11, 2009 1:15 pm
Reply with quote

Hello,

In tso/ispf generate a member list.

In the command area, enter SAVE your.pdslist.

A dataset "userid.your.pdslist.members" will be created with what you want.

This member list could then be downloaded to the ps and imported into excel.
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Wed Mar 11, 2009 1:17 pm
Reply with quote

shchan
Just open the PDS and in the command line mention the following command
Code:

SAVE <NAME1>

and you will see the member names saved in USERID.<NAME1>.MEMBERS
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Wed Mar 11, 2009 1:19 pm
Reply with quote

dick scherrer

You were a bit quicker than me icon_cool.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Mar 11, 2009 1:29 pm
Reply with quote

Only just a little bit. . . icon_cool.gif

d
Back to top
View user's profile Send private message
shchan

New User


Joined: 06 Jun 2007
Posts: 58
Location: Hyderabad

PostPosted: Wed Mar 11, 2009 1:44 pm
Reply with quote

Thanks a lot dick scherrer and krisprems for your replies.
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Mon Oct 19, 2009 11:23 pm
Reply with quote

I am trying to do the same thing, but I need to use a batch job for it. I have tried running IEHLIST, but it keeps asking for a volume ID and the JCL book I have does not really explain it.

I am trying to run members lists of Changeman files (our migration tool) so I can compare and see if we have similiar members in different packages.

*Been doing JCL for over 25 years and right now I just feel really dumb.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Mon Oct 19, 2009 11:43 pm
Reply with quote

The syntax is <LABEL> LISTPDS DSNAME=??,VOL=<DEVTYPE>=<VOLSER>,DUMP where the device type and volume serial will be site specific (such as VOL=SYSDA=ABC001). If you don't use a label, you'll still need a space before the LISTPDS command -- standard utility command format.
Back to top
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 400
Location: Mumbai

PostPosted: Mon Oct 19, 2009 11:59 pm
Reply with quote

cardnut wrote:
*Been doing JCL for over 25 years and right now I just feel really dumb.
Welcome to my world icon_smile.gif
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 12:00 am
Reply with quote

well at least we are not alone. icon_lol.gif
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 12:26 am
Reply with quote

Robert - I have tried several ways to get it to run. Even checked with my storage guy to make sure the device type was right. It still does not want to run.

Could PDSMAN do something for what I need?


MBabu, I feel really, really dumb. and I am the tech guy that my developers come to!!
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4651
Location: Raleigh, NC, USA

PostPosted: Tue Oct 20, 2009 12:30 am
Reply with quote

What's wrong with using good ol' TSO LISTDS?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Tue Oct 20, 2009 12:31 am
Reply with quote

This is what I ran:
Code:
 000002 //STEP1    EXEC PGM=IEHLIST,REGION=0M
 000003 //SYSPRINT DD  SYSOUT=*
 000004 //DD2      DD  DISP=SHR,DSN=TTSSRS0.JCL.CNTL
 000005 //SYSIN    DD  *
 000006       LISTPDS   DSNAME=(TTSSRS0.JCL.CNTL),VOL=SYSDA=PGMRS1,DUMP
 000007 /*
and the left part of the output starts
Code:
1                              SYSTEMS SUPPORT UTILITIES---IEHLIST
-DATE: 2009.292  TIME: 14.59.58
  DIRECTORY INFO FOR SPECIFIED PDS ON VOL PGMRS1
 TTSSRS0.JCL.CNTL
0           MEMBERS     TTRC     VARIABLE USER DATA ---(USER DATA AND TTRC ARE I
           $AVRGPRT  013B030F  0100000401 09271F0109 271F134800 1300130000 E3E3E
           $AVRPRNT  0063080F  0300000501 05215F0105 215F111200 2100210000 E3E3E
           $INST2    0030070F  0300000501 05215F0105 215F111200 8A008A0000 E3E3E
           AACOPY    00B2050F  0100001901 06305F0106 305F112300 0B000B0000 E3E3E
           AATEST    00B20F0F  0103002301 06250F0106 310F154300 0E00070008 E3E3E
           ABENDTST  01261C0F  0308005901 05215F0109 181F150200 0D000A0000 E3E3E
           ABTSTCMP  009F070F  0100005601 06039F0106 039F113800 2C002C0000 E3E3E
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 12:33 am
Reply with quote

That does fine for me to see what is there, but my problem is that I need to make this an automated process. My boss does not want it to be counting on one person to do it. Something we could schedule to run daily or weekly.
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 12:40 am
Reply with quote

Robert, I stand corrected.

Man, I hate Mondays. Brain just does not want to work. Must not have had enough coffee today.

I ran that and it worked. Thanks.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Tue Oct 20, 2009 12:42 am
Reply with quote

Glad to hear it worked -- hope the rest of it goes smoother (maybe start on Tuesday instead of Monday?) icon_smile.gif
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 12:47 am
Reply with quote

Well since I just put NEW,DELETE,KEEP in trying to create a new file, I hope tomorrow is better.

I know what I need!!

ZESTOS!! (And if I spelled it wrong, I can say it cause I am from NY and only visited Atlanta.)
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Tue Oct 20, 2009 1:16 am
Reply with quote

Maybe I should send some Varsity your way? Zesto's is the correct spelling, by the way.
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 1:18 am
Reply with quote

Now Varsity would be nice too. Always a great meal there. First time I went there almost got run over cuase I took too long to decide on what I wanted.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Oct 20, 2009 1:18 am
Reply with quote

Hello,

Quote:
Well since I just put NEW,DELETE,KEEP in trying to create a new file, I hope tomorrow is better.
Might this be an example of the extremely secure "write-only" file. . . It would only be kept on an abend and then the restart/rerun would have to know where it was as it wasn't cataloged. . . heh heh heh. . .

Years ago a co-worker/cohort and i attended a meeting where there was more than reasonable concern about the security of the data that was to be stored for a particular requirement. After to listening to an incredible round of nonsense about how to protect this data, my cohort suggested that we place the data in a write-only file (so that nothing could read it, thereby protecting it). Several of the big suits bought right in to this and were quite red in the face when the realization struck what they had bought into. . .
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Tue Oct 20, 2009 3:54 am
Reply with quote

Hi,

the only issue with IEHLIST is you need to know the volume the dataset resides on, and when the dataset is moved to a different volume, the job will fail.

So I'm with Kevin on this, less maintenance
Code:
//LISTDS   EXEC PGM=IKJEFT01       
//SYSTSPRT DD SYSOUT=*             
//SYSTSIN  DD *                     
  LISTDS 'IBM.JCL.CNTL' MEMBERS     
/*                                 


Gerry
Back to top
View user's profile Send private message
cardnut

New User


Joined: 15 Jan 2008
Posts: 15
Location: USA, St Louis, Missouri

PostPosted: Tue Oct 20, 2009 4:05 am
Reply with quote

gcicchet,

Thanks. With this and the IEHLIST, I can give my boss a choice of what he wants to see. He still has not fully explained what he is looking for or how it will help me with release management.

thanks again.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Tue Oct 20, 2009 7:01 am
Reply with quote

Quote:
...write-only file...
Is that like WOM? (write-only memory). icon_lol.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts mail attachment with excel format All Other Mainframe Topics 2
No new posts list pds members name starting with xyz CLIST & REXX 11
No new posts REXX editmacro to compare two members... CLIST & REXX 7
No new posts Easy way to delete selected members f... IBM Tools 12
No new posts To find an array of words (sys-symbol... JCL & VSAM 9
Search our Forums:

Back to Top