Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Creating a member list of a PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
Nirav721

New User


Joined: 11 Feb 2008
Posts: 53
Location: NJ

PostPosted: Tue Jan 27, 2009 6:31 pm    Post subject: Creating a member list of a PDS
Reply with quote

Is there anyway to create a member list dataset using file-aid?

For example -- If I had a PDS with 5 members, I need to create a dataset with just the names of these 5 members, nothing else.
Back to top
View user's profile Send private message

cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed Jan 28, 2009 3:25 am    Post subject: Reply to: Creating a member list of a PDS
Reply with quote

This should work for you. The DD01O output DD statement from the 2nd FILEAID step will contain the member names starting in position 1 of an 80 byte record.

Code:

//FILEAID1 EXEC PGM=FILEAID,PARM=TSO                           
//SYSPRINT DD  SYSOUT=*                                         
//SYSLIST  DD  DSN=&&MEMBERX,UNIT=SYSDA,DISP=(NEW,PASS),       
//             SPACE=(CYL,(50,20),RLSE)                         
//DD01     DD DISP=SHR,DSN=HLQ.PDS.LIBRARY                     
//DD01O    DD DUMMY                                             
//SYSIN    DD  *                                               
$$DD01 LISTALL OUT=0                                           
/*                                                             
//DELETE  EXEC PGM=IDCAMS                                       
//SYSPRINT DD SYSOUT=*                                         
//SYSIN    DD *                                                 
 DELETE HLQ.MEMBER.LIST                                         
 SET MAXCC=0                                                   
/*                                                             
//FILEAID2 EXEC PGM=FILEAID                                     
//SYSPRINT DD  SYSOUT=*                                         
//SYSLIST  DD  SYSOUT=*                                         
//DD01     DD  DISP=(OLD,DELETE),DSN=&&MEMBERX                 
//DD01O    DD  DSN=HLQ.MEMBER.LIST,UNIT=SYSDA,DISP=(NEW,CATLG),
//             RECFM=FB,LRECL=80,BLKSIZE=0,                       
//             SPACE=(TRK,(5,2),RLSE)                             
//SYSIN    DD  *                                                 
$$DD01 COPY PADCHAR=C' ',                                         
            IF=(30,EQ,C'***MEMBER'),                             
            MOVE=(1,8,41)                                         
/*                                                               
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Browsing member from any PDS shiitiizz CLIST & REXX 7 Wed Mar 08, 2017 1:17 am
No new posts Bind plan as a member to another bind... rexx77 DB2 0 Thu Feb 16, 2017 2:02 am
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us