|
View previous topic :: View next topic
|
| Author |
Message |
vasan_4u
New User
Joined: 28 Jun 2005
Posts: 35
Location: chennai
|
|
|
|
We changed the LRECL of the output file in the JCL from 300 to 600.
Now when i run the program its throwing a File status of 90 while opening the output file.
Any idea what could be wrong ? |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Did you change the program. . . .? |
|
| Back to top |
|
|
vasan_4u
New User
Joined: 28 Jun 2005
Posts: 35
Location: chennai
|
|
|
|
| Yes I did. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
For anyone here to be able to help, you need to post the select, the fd, the open, all of the jcl for the problem step and any diagnostic info generated by the problem run. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
Any messages about the file showing up?
What does the ASSIGN, FD and its data area(s), OPEN statements look like? |
|
| Back to top |
|
|
vasan_4u
New User
Joined: 28 Jun 2005
Posts: 35
Location: chennai
|
|
|
|
This is how its in program.
| Code: |
SELECT LSF04X-ALL-RECS ASSIGN TO LSF04X.
.......
FD LSF04X-ALL-RECS
RECORDING MODE F
LABEL RECORDS STANDARD
BLOCK CONTAINS 0 RECORDS
DATA RECORD IS LSF04X-ALL-RECS-REC.
01 LSF04X-ALL-RECS-REC PIC X(600).
........
OPEN OUTPUT LSF04X-ALL-RECS. |
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| What's the JCL look like? |
|
| Back to top |
|
|
vasan_4u
New User
Joined: 28 Jun 2005
Posts: 35
Location: chennai
|
|
|
|
This is how its in JCL.
| Code: |
//BYPASS EXEC PGM=LSMB780M,REGION=2047M,COND=(00,NE),
// PARM='&SYS&DATE&ROLLUP'
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//REPORT0 DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//LSCCNTL DD DSN=LS.CNTL.CLUSTER,DISP=SHR
//LSLCNTL DD DSN=LS.F.CNTL.CLUSTER,DISP=SHR
//SSNCGINL DD DSN=LS.F.SSNCG.CLUSTER,DISP=SHR
//SSNCGIN DD SUBSYS=(BLSR,'DDNAME=SSNCGINL','BUFND=10','BUFNI=10')
//LAHUNLD DD DSN=LS.F.LSLAH.SRT130,DISP=SHR
//* ALL MTJ RECS
//LSF04X DD DSN=LS.F.LSF04X.IBR.TEMP.MOE130,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(3000,1500),RLSE),
// DCB=(RECFM=FB,LRECL=600,BLKSIZE=36600,BUFNO=5) |
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
LRECL needs to be 32,760 or less.
And BUFNO=5 is a really, really, really bad choice for a sequential file. Not to mention the BLSR parameters or the REGION=2047M -- not JCL designed to be system friendly, is it?  |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Robert Sample wrote: |
| LRECL needs to be 32,760 or less. |
Did you mean BLKSIZE? |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
Yeah, Kevin, block size -- it's been one of those days and I was thinking about something else while typing. If only that were my first error for the day ...  |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Once again, a job using UNIT and SPACE and BLKSIZE, ... don't shops use SMS? |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| LOL, Kevin, I don't think it's the shops but the people .... |
|
| Back to top |
|
|
vasan_4u
New User
Joined: 28 Jun 2005
Posts: 35
Location: chennai
|
|
|
|
| Thanks all by changing the BLK to 27600 it worked fine. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| Glad to hear it's working. |
|
| Back to top |
|
|
|
|
