Hi everyone,
I'm trying to REPRO a VSAM db to a flat file. But i'm getting the following error message:
REPRO INFILE(REPROIN) OUTFILE(REPROOUT)
IDC3302I ACTION ERROR ON IMSVS.KY.DB
IDC3309I ** RECORD X'2007356F21' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON IMSVS.KY.DB
IDC3309I ** RECORD X'0000000100' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON IMSVS.KY.DB
IDC3309I ** RECORD X'0BDA000001' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON IMSVS.KY.DB
IDC3309I ** RECORD X'0614000002' NOT WRITTEN. LENGTH INVALID
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
Here's my JCL:
//STEP20 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=CBA285.VSAM.CNTL(REPRODUP)
//REPROIN DD DISP=SHR,DSN=VSAM.DB,
// AMP=('BUFND=250','BUFNI=250')
//REPROOUT DD DISP=(,CATLG,DELETE),DSN=IMSVS.KY.DB,
// SPACE=(CYL,(3500,550),RLSE),
// VOL=SER=HALDB4,
// DCB=(LRECL=80,RECFM=FB)
//PLIDUMP DD SYSOUT=0
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=0
I tried changing the LRECL with no success. Any help would be greatly appreciated. Thank you.