MVSFORUMS.com

[rev1976]

Hi everyone,

New here and kind of a newbie to IMS. I'm trying to repro a vsam database into a flat file but i'm getting an invalid length error. Here's the 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

I tried changing the LRECL with no luck. 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=18,RECFM=FB)
//PLIDUMP DD SYSOUT=0
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=0

Any help would be greatly appreciated. Thanks.

[Nic Clouston]

Try removing the line DCB=: a) you do not need to specify DCB= when you are specifying LRECL, RECFM etc and b) IDCAMS works it all out for itself

You also do not need a PLIDUMP - IDCAMS is not written in PL/1
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.