how to copy duplicates records from PS to VSAM

bhattu · New User Joined: 05 Jun 2009 Posts: 9 Location: US

Hi I am trying to copy from PS to VSAM , after copying first 2 reocrds it gives me the following error.

IDC3302I ACTION ERROR ON SUPPORT.TEST.ES46207.TC74951.VSAM
IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:
000000 F1F0F0F0 F0F0F0F0 F8F0F2F0 F0F0F0F0 F0F0F0F0 F0F0F4F4 F4F4F4F4 F4F4F4F
000020 F0F1F0F0 F7F1F2F0 F0F0F0F0 F0F0F0F0 F0F0F0C6 40404040 40404040 4040404
000040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 4040404
000060 40404040

IDC3302I ACTION ERROR ON SUPPORT.TEST.ES46207.TC74951.VSAM
IDC3314I **RECORD OUT OF SEQUENCE - KEY FOLLOWS:
000000 F2E84949 2A00240B 0000FFFF FFFFFFF9 2832199B 88BC5523 344CD944 49A3F6F
000020 C2F85FAF FDFFF11F FC77FDFE 61E8C3FE 088F7FFC DC7C8A08 CE371722 4197B08
000040 9999A461 9C3FC9CC 2066E332 241FFF08 3083F4C2 7F841E10 683DBC20 FC26107
000060 B4BD34F8

Here is the JCL which i am using
//JOBCARD
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//* DELETE OLD DATASET
DELETE -
SUPPORT.TEST.ES1234.TC1234.VSAM
/*
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//* DEFINE VSAM KSDS DATASET
DEFINE -
CLUSTER -
( -
NAME(SUPPORT.TEST.ES1234.TC1234.VSAM) -
INDEXED -
KEYS(100 0) -
SPEED -
FREESPACE(0 0) -
SHAREOPTIONS(2 3) -
) -
DATA -
( -
NAME(SUPPORT.TEST.ES1234.TC1234.VSAM.DATA)-
CISZ(18432) -
CYLINDERS(10 1) -
RECORDSIZE(101 250101) -
SPANNED -
) -
INDEX -
( -
NAME(SUPPORT.TEST.ES1234.TC1234.VSAM.INDEX) -
CISZ(4096) -
CYLINDERS(5 1) -
)
//JS0010 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//TIFFUNLD DD DSN=TEST.IMAGE.FILE,DISP=SHR
//TIFFVSAM DD DSN=SUPPORT.TEST.ES1234.TC1234.VSAM,DISP=SHR
//SYSIN DD *
REPRO INFILE(TIFFUNLD) -
OUTFILE(TIFFVSAM) -

/*

I want to copy the duplicates also to the VSAM file

can you please suggest.

superk · Posted: Wed Nov 10, 2010 1:38 am

Why aren't you using a SORT so that you can assure that all of the keys are in their proper sorted order, and if necessary, deal with duplicates?

bhattu · New User Joined: 05 Jun 2009 Posts: 9 Location: US

hi superk,

Thanks for quick reply, can i use sort to copy to VSAM.

can you send me a sample.

dick scherrer · Posted: Wed Nov 10, 2010 4:09 am

Hello,

Yes, but you will have to prevent duplicates somehow. . .

There is no need for a sample - there is no special code. . .

bhattu · New User Joined: 05 Jun 2009 Posts: 9 Location: US

Hi dick scherrer,

i got it worked, removed the duplicates.

thanks to all.

dick scherrer · Posted: Wed Nov 10, 2010 8:39 am

Good to hear it is working - thank you for letting us know

d