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
 

 

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: 7913
Location: Bellevue, IA

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: 7913
Location: Bellevue, IA

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: 7913
Location: Bellevue, IA

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: 4648
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: 7913
Location: Bellevue, IA

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: 4648
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: 7913
Location: Bellevue, IA

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: 7913
Location: Bellevue, IA

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 PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
This topic is locked: you cannot edit posts or make replies. Natural ADABAS Opening with CTS enikhilk Mainframe Jobs 0 Wed Nov 30, 2016 5:37 pm
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm


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