2010年6月24日星期四

How to copy multiple pds members using IEBCOPY

//STEP001 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//IN1 DD DSN=C207719.T43366.JCLE,DISP=SHR
//OUT1 DD DSN=C207719.T43366.BACE,DISP=(NEW,CATLG,DELETE),
// LIKE=C207719.T43366.JCLE
//IN2 DD DSN=C207719.T43366.JCLK,DISP=SHR
//OUT2 DD DSN=C207719.T43366.BACK,DISP=(NEW,CATLG,DELETE),
// LIKE=C207719.T43366.JCLK
//SYSIN DD *
COPY OUTDD=OUT1
INDD=IN1
COPY OUTDD=OUT2
INDD=IN2
如果写成 COPY OUTDD=OUT1,INDD=IN1
COPY OUTDD=OUT2,INDD=IN2
则第2行的copy命令不会执行

IEBCOPY Examples
http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.idau100/u1044.htm