Easy
Tuesday, 17 April 2012
Copy members in one pds to another
//MYJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H0E.X.Y
//SYSUT2 DD DISP=SHR,DSN=KC03H0E.Y.X
// PEND
//STEP1 EXEC MYPROC
//SYSIN DD *
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment