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
 
File status code 90 while opening the output file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Mon Jul 06, 2009 11:05 pm    Post subject: File status code 90 while opening the output file
Reply with quote

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
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jul 06, 2009 11:19 pm    Post subject:
Reply with quote

Hello,

Did you change the program. . . .?
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Mon Jul 06, 2009 11:21 pm    Post subject:
Reply with quote

Yes I did.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jul 06, 2009 11:34 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Mon Jul 06, 2009 11:37 pm    Post subject:
Reply with quote

Any messages about the file showing up?

What does the ASSIGN, FD and its data area(s), OPEN statements look like?
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Mon Jul 06, 2009 11:44 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Mon Jul 06, 2009 11:47 pm    Post subject:
Reply with quote

What's the JCL look like?
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Mon Jul 06, 2009 11:51 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Tue Jul 07, 2009 12:03 am    Post subject:
Reply with quote

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? icon_smile.gif
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Tue Jul 07, 2009 12:14 am    Post subject:
Reply with quote

Robert Sample wrote:
LRECL needs to be 32,760 or less.


Did you mean BLKSIZE?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Tue Jul 07, 2009 12:19 am    Post subject:
Reply with quote

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 ... icon_sad.gif
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Tue Jul 07, 2009 12:25 am    Post subject: Reply to: File status code 90 while opening the output file
Reply with quote

Once again, a job using UNIT and SPACE and BLKSIZE, ... don't shops use SMS?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Tue Jul 07, 2009 12:32 am    Post subject:
Reply with quote

LOL, Kevin, I don't think it's the shops but the people ....
Back to top
View user's profile Send private message
vasan_4u

New User


Joined: 28 Jun 2005
Posts: 35
Location: chennai

PostPosted: Tue Jul 07, 2009 12:47 am    Post subject:
Reply with quote

Thanks all by changing the BLK to 27600 it worked fine.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Tue Jul 07, 2009 12:57 am    Post subject:
Reply with quote

Glad to hear it's working.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Where is output from PARM ABEXIT (SNA... packerm CA Products 3 Thu Sep 28, 2017 4:06 pm

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