Ta-da! Thanks all. The below was sufficient. (And as a bonus, it didn't even hose up my original PDS!) Thanks all.
//GENER EXEC PGM=IEBGENER //SYSUT1 DD DSN=MY.PDS,DISP=SHR,RECFM=F,DSORG=PS, // LRECL=256,BLKSIZE=256 //SYSUT2 DD DSN=THE.SAMPLE.PDSDIR,DISP=(NEW,CATLG), // SPACE=(TRK,(1,1)),RECFM=F,LRECL=256,BLKSIZE=256,DSORG=PS //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY Was good enough to make ISPF edit happy: ****** ***************************** Top 000001 8$GINCL1 0F5CCDCDF4000000000020002012020200 08B7953310081F1101198F198F640E0000 ----------------------------------------- 000002 ¹GINCLUD4 GP2INCLU GSAMPLE 0DCCDCDECF0020CDFCDCDE0000CECDDDC4 0A79533444003077295334011072147350 ----------------------------------------- Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, September 06, 2012 6:41 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Anyone know how to copy a PDS directory as a flat file? Specify LRECL On Thu, 6 Sep 2012 06:28:42 -0700, Charles Mills wrote: >I want to make a PS (flat file) copy of the series of 256-byte blocks >of a PDS directory. (I want to copy the data to another platform so I >can test some code with it more readily.) ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN