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:[email protected]] On Behalf
Of Paul Gilmartin
Sent: Thursday, September 06, 2012 6:41 AM
To: [email protected]
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 [email protected] with the message: INFO IBM-MAIN
