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: 8088
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: 8088
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: 8088
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: 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: 8088
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: 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: 8088
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: 8088
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
This topic is locked: you cannot edit posts or make replies. REXX - Dynamic file Creation d_sarlie CLIST & REXX 5 Tue Jun 27, 2017 7:30 pm
No new posts FTP xls file from Mainfrmae kumarsatheeshc1 TSO/ISPF 5 Tue Jun 20, 2017 6:56 pm
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts compare 2 rows within the same file ram_vizag SYNCSORT 7 Wed Jun 14, 2017 12:34 am


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