IEBPTPCH

This MVS utility could copy an entire PDS into a PS file.

Code:
//IEBPTPCH EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=your.pds,DISP=SHR
//SYSUT2 DD DSN=your.ps.file,DISP=(,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(pri,sec),RLSE) //SYSPRINT DD SYSOUT=*
//SYSIN DD * PUNCH TYPORG=PO
/*
This will create a PS file that has each member name and the contents of that member.