expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Take a look in the REXX forum, there are examples of listing the members of a PDS, you can easily create a compare logic, and then invoke the method du jour to copy from PDS1 to PDS2.
Alternatively, read the PS file and create IEBCOPY select statements and then run IEBCOPY.
If you are not au fait with REXX then using edit commands on the screen will be quick. |
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
try this, members in PDS2 will be replaced if they exist
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
EFGH
PQRS
XYZU
//SORTOUT DD DSN=&&MEMS,DISP=(,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(5,5),RLSE)
//SYSIN DD *
OPTION COPY
OUTFIL BUILD=(C' S M=',1,8,80:X)
/*
//PDSCOPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//I1 DD DISP=SHR,DSN=INPUT-PDS1
//O1 DD DISP=SHR,DSN=OUTPUT-PDS2
//SYSIN DD *
C O=O1,I=((I1,R))
// DD DSN=&&MEMS,DISP=(OLD,DELETE)
/*
|
Gerry |
|