Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Error executing Java program in OSGI ... danik56 CICS 0 Thu Apr 26, 2018 12:16 am
No new posts IDCAMS RENAMING VSAM FILE ALONG WITH ... upendrasri JCL & VSAM 11 Tue Apr 17, 2018 10:42 pm
No new posts 3270 Data stream error Benchwarmer CICS 6 Tue Apr 17, 2018 12:06 am
No new posts VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm
No new posts converting a mainframe file with ASA ... Lynne Schuler All Other Mainframe Topics 5 Wed Apr 04, 2018 9:44 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us