Assuming you have the authority to do so, superzap the F1 DSCB for your source 
PDS so that its DSORG is PS instead of PO.  Then do your IEBGENER.  Then zap 
the F1 back to PO.  It might work.  I have never tried this myself.

Bill Fairchild
Programmer
Rocket Software
408 Chamberlain Park Lane * Franklin, TN 37069-2526 * USA
t: +1.617.614.4503 *  e: [email protected] * w: 
www.rocketsoftware.com


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of Charles Mills
Sent: Thursday, September 06, 2012 8:29 AM
To: [email protected]
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 
[email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to