DavidatK
Active Member
Joined: 22 Nov 2005 Posts: 700 Location: Troy, Michigan USA
|
|
|
|
Try this
Code: |
//JS00100 EXEC PGM=IDCAMS
//INDD1 DD DSN=MY.SEQ.FILE,
// DISP=SHR
//OUTDD1 DD DSN=MY.KSDS.FILE,
// DISP=SHR
//SYSIN DD *
REPRO INFILE(INDD1) OUTFILE(OUTDD1) REPLACE
/*
//SYSPRINT DD SYSOUT=*
|
REPLACE - WHEN COPYING INTO A NON-EMPTY KSDS, OR RRDS, REPLACE
SPECIFIES THAT ANY SOURCE RECORD WHICH HAS A KEY OR
RECORD NUMBER IDENTICAL TO A KEY OR RECORD NUMBER OF
A TARGET RECORD IS TO REPLACE THE TARGET RECORD.
DEFAULT - NOREPLACE
NOREPLACE- WHEN COPYING INTO A NON-EMPTY KSDS, OR RRDS,
NOREPLACE
SPECIFIES THAT ANY SOURCE RECORD WHICH HAS A KEY OR
RECORD NUMBER IDENTICAL TO A KEY OR RECORD NUMBER OF
OF A TARGET RECORD IS NOT TO REPLACE THE TARGET RECORD.
DEFAULT - NOREPLACE
|
|