Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error when Copying KSDS to PS File

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: vsam doubts
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    Post subject:
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    Post subject: Re: Error when Copying KSDS to PS File
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    Post subject: Re: Error when Copying KSDS to PS File
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts copying data without knowing location arunsoods DFSORT/ICETOOL 6 Thu Jul 20, 2017 1:03 pm
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us