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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 11 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


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