How about something like this: // PROC ASMLIB,MEM= // EXEC PGM=BPXBATSL, // PARM='PGM /bin/cp //DD:LIB(&MEM) //DD:OUT' //LIB DD DSN=PDS1,DISP=SHR // DD DSN=PDS2,DISP=SHR // DD ..... //OUT DD DSN=&&OUT,DISP=(NEW,PASS), // DCB=(LRECL=80,RECFM=FB) // EXEC ASMAC //C.SYSIN DD DSN=&&OUT,DISP=(OLD,DELETE) //
On 9/4/07, Thompson, Steve <[EMAIL PROTECTED]> wrote: > Ok, I confess, I'm suffering from old age. > > I know that there is a way to concatenate n PDSes together, and then > extract a member from this to a sequential file. > > Why am I needing this? Well, I have several levels of source libraries > (PROD, TEST, Private) and I need to pull a member from the lowest level > and assemble it. And I'd like to have a batch job that does this so I > don't have to fiddle with all of it when I have a complex module to be > linked together after a few macro changes. > > IEBCOPY won't do it (well, not simply). IEBPTPCH wants to put in ASA > control characters, IEBGENER will go sequential to pds with control > statements. > > So anybody got an off the shelf method, standard futility solution? > > Regards, > Steve Thompson > > -- > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
