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
 

 

list all members of a PDS into a PS dataset.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
prafull

New User


Joined: 08 Dec 2006
Posts: 48

PostPosted: Thu Apr 19, 2007 12:42 pm    Post subject: list all members of a PDS into a PS dataset.
Reply with quote

Hi I wanted to list all members of a PDS into a PS dataset.
I tried following things but got maxcc=12

Code:

// EXEC PGM=IEBPTPCH                                                   
//SYSPRINT DD SYSOUT=O                                                 
//SYSUT1 DD  DSN=INPUT.PDS,DISP=SHR                           
//SYSUT2 DD  DSN=OUTPUT.PS,                                 
//            DISP=(NEW,CATLG,CATLG),                                   
//            MGMTCLAS=WORKW,                                           
//            SPACE=(TRK,(10,10),RLSE),                                 
//            DCB=(LRECL=80,BLKSIZE=19040,RECFM=FB)           
//SYSIN DD *                                                           
          PRINT  TYPORG=PS
          TITLE  ITEM=('PRINT PARTITIONED DIRECTORY OF A PDS',10)
/*                                                                     


The error msg is :
1
-PRINT/PUNCH DATA SET UTILITY
PRINT TYPORG=PS
TITLE ITEM=('PRINT PARTITIONED DIRECTORY OF A PDS',10)
EOF ON SYSIN
IEB421I I/O ERROR ,F5430LST, ,62EA,D,SYSUT1 ,GET ,WRNG.LEN.RECORD,00000000017000000,QSAM

can nebody help ?
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Thu Apr 19, 2007 12:45 pm    Post subject: Re: list all members of a PDS into a PS dataset.
Reply with quote

INPUT.PDS is RECFM=FB, LRECL=80?
Back to top
View user's profile Send private message
prafull

New User


Joined: 08 Dec 2006
Posts: 48

PostPosted: Thu Apr 19, 2007 1:18 pm    Post subject:
Reply with quote

yes
Record format . . . : FB
Record length . . . : 80
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Thu Apr 19, 2007 8:49 pm    Post subject:
Reply with quote

Hello,

You might want to go into tso/ispf 3.4 and display the dataset info. The dcb info may have been corrupted. . .

Please check and let us know.
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Thu Apr 19, 2007 9:24 pm    Post subject: Re: list all members of a PDS into a PS dataset.
Reply with quote

Um, your input dataset is a PDS?

I think you need to specify PRINT TYPORG=PO
Back to top
View user's profile Send private message
vkphani

New User


Joined: 29 Oct 2003
Posts: 29

PostPosted: Fri Apr 20, 2007 11:04 am    Post subject:
Reply with quote

Try this.

Code:
// EXEC PGM=IEBPTPCH                                                   
//SYSPRINT DD SYSOUT=O                                                 
//SYSUT1 DD  DSN=INPUT.PDS,DISP=SHR                           
//SYSUT2 DD  DSN=OUTPUT.PS,                                 
//            DISP=(NEW,CATLG,CATLG),                                   
//            MGMTCLAS=WORKW,                                           
//            SPACE=(TRK,(10,10),RLSE),                                 
//            DCB=(LRECL=80,BLKSIZE=19040,RECFM=FB)           
//SYSIN DD *                                                           
          PUNCH TYPORG=PO
/*               
Back to top
View user's profile Send private message
prafull

New User


Joined: 08 Dec 2006
Posts: 48

PostPosted: Fri Apr 20, 2007 12:21 pm    Post subject: Re: list all members of a PDS into a PS dataset.
Reply with quote

thanks for replies all icon_smile.gif

vkphani
code works but I do not want the contents of every member .. I just want to list down the member-names in the PDS.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Apr 20, 2007 12:27 pm    Post subject:
Reply with quote

Try IEBGENER with the PDS allocated to SYSUT1 but DO NOT specify a member name

//SYSUT1 DD DSN=my pds name,DISP=SHR
//SYSUT2 DD SYSOUT=*
Back to top
View user's profile Send private message
prafull

New User


Joined: 08 Dec 2006
Posts: 48

PostPosted: Fri Apr 20, 2007 1:33 pm    Post subject:
Reply with quote

I used SORT after vkphani 's code
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm
No new posts Extra character appears in file when ... Balu5491 All Other Mainframe Topics 1 Wed Jul 26, 2017 2:39 pm
No new posts Browse dataset cvnlynn CLIST & REXX 4 Tue Jul 18, 2017 3:52 am
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm


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