View previous topic :: View next topic
|
Author |
Message |
i413678 Currently Banned Active User
Joined: 19 Feb 2005 Posts: 112 Location: chennai
|
|
|
|
Can anyone recitify this error .
I am trying to copy one vsam Ksds to seq.file but it is giving me length invalid error.
I tried by creating a seperate dataset for output , it is working fine.But when i give in jcl by creating new ps,then problem arises.
Data Component Information: UJPJ1JL.CMS.AMED.S1.KE
Device type: 3390
Organization: KSDS
KSDS key length: 26
KSDS key location: 0
Average record size: 3600
Maximum record size: 3600
Allocated Space: Unit Primary Secondary
Data: CYLINDERS 12 3
Index: TRACKS 1 1
Dataset Date Information:
Code: |
//STEP0010 EXEC PGM=IDCAMS
//INFIL DD DSN=UJPJ1JL.CMS.AMED.S1.KE,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//OUTFIL DD DSN=DJPVPJ1.AMED.TESTB,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=3600,BLKSIZE=0)
//SYSIN DD *
REPRO INFILE(INFIL) OUTFILE(OUTFIL)
/*
|
Error
IDCAMS SYSTEM SERVICES TIME: 17:22:15
REPRO INFILE(INFIL) OUTFILE(OUTFIL)
IDC3302I ACTION ERROR ON DJPVPJ1.AMED.TESTB
IDC3309I ** RECORD X'F0F0F1F0F0' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON DJPVPJ1.AMED.TESTB
IDC3309I ** RECORD X'F0F0F1F0F0' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON DJPVPJ1.AMED.TESTB
IDC3309I ** RECORD X'F0F0F1F0F0' NOT WRITTEN. LENGTH INVALID
IDC3302I ACTION ERROR ON DJPVPJ1.AMED.TESTB
IDC3309I ** RECORD X'F0F0F1F0F0' NOT WRITTEN. LENGTH INVALID
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 |
|
Back to top |
|
|
priya
Moderator
Joined: 24 Jul 2003 Posts: 568 Location: Bangalore
|
|
|
|
Try to change BLKSIZE=0 to BLKSIZE=3600 or make it as F instead of FB. |
|
Back to top |
|
|
klsudhir
New User
Joined: 20 Mar 2005 Posts: 2 Location: Bangalore
|
|
|
|
Hi Folks,
Can the LRECL be 3600 ?
Try with LRECL=80. It might work. |
|
Back to top |
|
|
klsudhir
New User
Joined: 20 Mar 2005 Posts: 2 Location: Bangalore
|
|
|
|
Hi Folks,
I dont think there was ne sense in my question. Im still a beginner.....
Assumed that the KSDS file was of rec lenght 80. So, should the rec lenghts of both the source and destination file be same? |
|
Back to top |
|
|
bobbymf
New User
Joined: 18 Mar 2005 Posts: 5 Location: banglore
|
|
|
|
hi,
i understand ur problem. the record lengths of both the files dont match each other. if the record length of all the data items are 40 then give a filler clause for the next 40 bits.
eg:
o1 empname pic x(20).
01 filler pic x.
01 empcode pic x(4).
01 filler pic x.
01 empdept pic x(9).
01 filler pic x(45).
so the record length of all this equals 80. the same format should be there for both ksds and ps files.
also ur lrecl in ur program is too high. and the blksize is 0
),
// DCB=(RECFM=FB,LRECL=3600,BLKSIZE=0)
the blksize should always be in the multiples of lrecl.
it is recommanded u use lrecl=80,blksize=800. |
|
Back to top |
|
|
|