MVSFORUMS.com

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Hai all,

I have a VSAM dataset and i know that ESDS cluster by looking into the LISTCAT option.I want to create another VSAM ESDS cluster like / same as the existing one and copy the entire data in a single step ? How can i achieve my results ? Please correct my JCL.

Code:

//STEP0100 EXEC PGM=IDCAMS
//IN DD DSN=PROJECT.TEST.ESDS,DIS=SHR
//OUT DD DSN=PROJECT.TEST.ESDSNEW
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(IN) OUTFILE(OUT)
/*
//

Mervyn · Posted: Thu Nov 17, 2005 5:23 pm Post subject:

Try defining the new cluster using the MODEL parameter.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt1v403/3.7.3.7?SHELF=&DT=19990113080956&CASE=
_________________
The day you stop learning the dinosaur becomes extinct

Vinodch · Posted: Tue Dec 13, 2005 12:40 am Post subject:

Mervyn

This might be a too late reply. The following also should work:

Code:

//STEP0100 EXEC PGM=IDCAMS
//IN DD DSN=PROJECT.TEST.ESDS,DIS=SHR
//OUT DD DSN=PROJECT.TEST.ESDSNEW,
// DISP=(NEW,CATLG,DELETE),
// LIKE=PROJECT.TEST.ESDS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(IN) OUTFILE(OUT)
/*
//
_________________
Thanks,
Vinod.

Mervyn · Posted: Tue Dec 13, 2005 4:34 am Post subject:

Vinod, it's always worthwhile posting a sensible alternative. It may help someone later on when they do a search.

Cheers,
Merv
_________________
The day you stop learning the dinosaur becomes extinct

warp5 · Posted: Tue Dec 13, 2005 7:13 am Post subject:

I would use an adrdssu job: