By fail, I would have expected you to get an I/O error reading an existing file where the COBOL BLOCK CONTAINS is less. But, now I think about it, recent DFP, like somewhere in the last coupe decades (Probably around os390 1.4 or 2.5 for us) OPEN got smarter and handles unlike block sizes much better.
Dave Gibney Information Technology Services Washington State University > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Frank Swarbrick > Sent: Friday, May 15, 2009 11:18 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: BLOCK CONTAINS > > On Fri, 15 May 2009 10:05:48 -0700, Gibney, Dave <gib...@wsu.edu> > wrote: > > >>3) If Cobol says "BLOCK CONTAINS 12345" it works (!!!) > > > >I'll bet you 3) If Cobol says "BLOCK CONTAINS 9999" doesn't :) > > Sorry, you lose that bet. That does work. > > The only things that I've been able to determine simple do not work are > if you > specify a block size that > 1) for RECFM=VB is not either 0 or at least 8 bytes more than the > maximum > record length, or > 2) for RECFM=FB is not either 0 or a multiple of the record length. > > If you violate item 1 you get this: > IGYGR1243-S FILE "MY-FILE" HAD A "RECORDING MODE" OF "V", BUT THE > BLOCK SIZE WAS LESS THAN 8 PLUS THE MAXIMUM RECORD SIZE OF 500. > THE FILE DEFINITION WAS DISCARDED. > > If you violate item 2 you get this: > IGYGR1212-W THE MAXIMUM INTEGER IN THE "BLOCK CONTAINS" CLAUSE > WAS NOT A MULTIPLE OF THE CALCULATED RECORD SIZE. THE CLAUSE WAS > ACCEPTED. > > If you ignore the warning for number 2 you get an IEC141I 013-20. For > number 1 we get RC > 4 so we don't even try to create the load module, > much less run it! :-) > > Frank > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
