View previous topic :: View next topic
|
Author |
Message |
prafull
New User
Joined: 08 Dec 2006 Posts: 48
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
INPUT.PDS is RECFM=FB, LRECL=80? |
|
Back to top |
|
|
prafull
New User
Joined: 08 Dec 2006 Posts: 48
|
|
|
|
yes
Record format . . . : FB
Record length . . . : 80 |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Um, your input dataset is a PDS?
I think you need to specify PRINT TYPORG=PO |
|
Back to top |
|
|
vkphani
New User
Joined: 29 Oct 2003 Posts: 29
|
|
|
|
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 |
|
|
prafull
New User
Joined: 08 Dec 2006 Posts: 48
|
|
|
|
thanks for replies all
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
|
prafull
New User
Joined: 08 Dec 2006 Posts: 48
|
|
|
|
I used SORT after vkphani 's code |
|
Back to top |
|
|
|