View previous topic :: View next topic
|
Author |
Message |
jz1b0c
Active User
Joined: 25 Jan 2004 Posts: 160 Location: Toronto, Canada
|
|
|
|
In the JCL I have LRECL=360. and in the program I have 01 FD-outrec pic x(360)
this program gives an error while opening the file.
File status 39.
IGZ0201W A file attribute mismatch was detected. File XXXXFILE in program XXXXX01 had a record length of 361 and the file specified in the ASSIGN clause had a record length of 360.
Where is that 361 coming from?
Here is the program:
SELECT XXXXFILE ASSIGN TO DD2
ORGANIZATION IS SEQUENTIAL
FILE STATUS IS WS-OUTPUT-STAT.
FD XXXXFILE.
01 FD-OUTREC PIC X(360).
JCL:
//*
//DD2 DD DSN=PX01211.XXXXFILE.OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// DCB=(SRCDSCB,RECFM=FB,LRECL=360),
// SPACE=(360,(100,80),RLSE),AVGREC=K
//* |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
FBA?
Ignore the JCL, look at the actual file...
Or what do your writes look like? |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
CICS Guy,
I don't think he can tell you what his writes look like. He never gets it open.
but, the ops-sys is interpreting his dd statement as an allocation for a 361 byte lrecl. so, it is either SRCDSCB - overrides any lrecl? or AVGREC=K |
|
Back to top |
|
|
sachin_star3 Warnings : 1 New User
Joined: 30 Sep 2006 Posts: 78 Location: pune
|
|
|
|
The reason of this error genrerally when record legnth of logical records
and file is mismatch
In your case as per my assumption
you try to write the record in the opt file having record length
is 360 so there are following p0ssibilities to arise the 39 file-status:
1.you try ro write the input record having legnth (either <360 or >360)
different from output record first see the input or what are try to write check this
first
2.you check the file legth and there record structure you trying to write
---sachin borase |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
dbzTHEdinosauer wrote: |
I don't think he can tell you what his writes look like. He never gets it open. |
I was referng to the write statements......Just wondering ..... |
|
Back to top |
|
|
shankar.v
Active User
Joined: 25 Jun 2007 Posts: 196 Location: Bangalore
|
|
|
|
jz1b0c,
Are you using WRITE ... AFTER/BEFORE ADVANCING PAGE/nLINES in program. If yes, then the compiler may add one byte to length of the field description. In your case 360+1=361. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
shankar.v,
excellent point. I have misinterpreted the error message. After looking it up I image your suggestion may be accurate, since it does not seem to be a variable length record.
so, the dd statement should be RECFM=FBA,LRECL=361 ? |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
CICS Guy,
my appologies, you were also on the right track. |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Dick,
I was thinking that but I just couldn't see why anybody would specify carriage control on a 360 byte line.....
Bill |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
People use commands like WRITE AFTER without looking up what it means. |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Just what I was thinking..... |
|
Back to top |
|
|
jz1b0c
Active User
Joined: 25 Jan 2004 Posts: 160 Location: Toronto, Canada
|
|
|
|
shankar.v
you are right. There was after advance in that program.
Thanks everyone.. |
|
Back to top |
|
|
sgaid21
New User
Joined: 12 Sep 2006 Posts: 16 Location: Canada
|
|
|
|
If you still get the mismatch record length, then try to add "Record contains 360 characters" that should solve it. |
|
Back to top |
|
|
|