IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error when Copying KSDS to PS File


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
i413678
Currently Banned

Active User


Joined: 19 Feb 2005
Posts: 112
Location: chennai

PostPosted: Wed Mar 16, 2005 2:11 pm
Reply with quote

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
View user's profile Send private message
priya

Moderator


Joined: 24 Jul 2003
Posts: 568
Location: Bangalore

PostPosted: Sun Mar 20, 2005 1:20 am
Reply with quote

Try to change BLKSIZE=0 to BLKSIZE=3600 or make it as F instead of FB.
Back to top
View user's profile Send private message
klsudhir

New User


Joined: 20 Mar 2005
Posts: 2
Location: Bangalore

PostPosted: Sun Mar 20, 2005 11:57 am
Reply with quote

Hi Folks,

Can the LRECL be 3600 ?

Try with LRECL=80. It might work.
Back to top
View user's profile Send private message
klsudhir

New User


Joined: 20 Mar 2005
Posts: 2
Location: Bangalore

PostPosted: Sun Mar 20, 2005 1:22 pm
Reply with quote

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
View user's profile Send private message
bobbymf

New User


Joined: 18 Mar 2005
Posts: 5
Location: banglore

PostPosted: Sun Mar 20, 2005 5:58 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Error when install DB2 DB2 2
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
Search our Forums:

Back to Top