On Wed, 9 Jan 2008 08:36:47 -0600, Mark Zelden wrote: >>> >>>Not unless the input or output or both are PDSE. See the fine manual for >>>details. >>> >>Hmmm. So could one circumvent by COPYGRP from a PDS to a temporary PDSE, >>thence to a destination PDS? Weird. And two trips through the Binder. > >Exactly. Even though I always carry PDS (PDS86) with me, I like to rely on >tools that are available everywhere. This is in my "tool kit": > Doesn't it kinda make you question the rationale for the restriction? PDS can be used for either input or output, but not both.
Is there any reason this can't be done in a single step? //MYJOB JOB (ACCT),CLASS=A,... //* //* "TRICK" TO USE COPYGRP TO COPY ALIASES FROM A PDS TO //* ANOTHER PDS SINCE COPYGRP ONLY WORKS WITH PDSE //* //STEP1 EXEC PGM=IEBCOPY,REGION=4M,PARM='WORK=4M' //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSUT3 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT4 DD UNIT=VIO,SPACE=(CYL,(1,1)) //IN1 DD DSN=SOME.PDS,DISP=SHR //WORK DD DSN=&&TMPPDSE, // DISP=(NEW,PASS),UNIT=SYSALLDA, // DSNTYPE=LIBRARY, // SPACE=(CYL,(25,25,1)), // DCB=(LRECL=80,BLKSIZE=32760,RECFM=U,DSORG=PO) //OUT1 DD DSN=SOME.OTHER.PDS,DISP=SHR //* //* MYPROG CAN BE AN ALIAS OR THE REAL LMOD //* //SYSIN DD * COPYGRP INDD=IN1,OUTDD=WORK S M=MYPROG COPYGRP INDD=WORK,OUTDD=OUT1 /* BTW, another broken reformatter. Notice the unrendered ampersand in the DSN= ... It's broken in the raw HTML on the website. -- gil ---------------------------------------------------------------------- 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
