This should work for you. //GENER EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=MY.CLIST,DISP=SHR,RECFM=FB,DSORG=PS, // LRECL=256,BLKSIZE=256 //SYSUT2 DD DISP=SHR,DSN=MY.CLIST.DIR, // SPACE=(CYL,(5,1),RLSE),STORCLAS=DEVS90, // LRECL=256,RECFM=FB,DSORG=PS //SYSIN DD DUMMY
...chris. > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Charles Mills > Sent: Thursday, September 06, 2012 8:29 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Anyone know how to copy a PDS directory as a flat file? > > 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.) > > I tried > > //GENER EXEC PGM=IEBGENER > //SYSUT1 DD DSN=MY.PDS,DISP=SHR,RECFM=F,DSORG=PS > //SYSUT2 DD DSN=THE.SAMPLE.PDSDIR,DISP=(NEW,CATLG), > // SPACE=(TRK,(1,1)) > > but IEBGENER is too smart for that: > > IEB311I CONFLICTING DCB PARAMETERS > IEB311I CONFLICTING DCB PARAMETERS > > (and copied nothing). > > Anyone know how to accomplish this, short of writing an assembler program > to > do it? > > Charles > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN