On Wed, 15 Aug 2007 11:09:34 -0500 Todd Burrell <[EMAIL PROTECTED]> wrote:
:>All: :>We have a strange COBOL issue occurring, and I cannot remember what is :>causing this. Starting a few days ago, when our programmers compile a cobol :>program and try to run it, their print files that should be 133 characters in :>length (RECFM=FBA) are failing with basically the old S001 abend, but in this :>case it is the message IGZ0201W about the record length mismatch, and then :>the job abends with a U4038 with additional message IGZ0035S indicating the :>file status 39 error. :>They can get the job to run by changing the LRECL to 134 instead of 133, and :>when I compare the current 134 length file with the old production run from :>last week that worked (LRECL 133) the only difference I see is an extra :>characer inserted before the first character of the record. So the old record :>looks like this (PRINT CONTROL CHARACTER INCLUDED): :>1REPORT HEADER :>The new one where I had to make the LRECL 134 to avoid the abend looks like :>this: :>1 REPORT HEADER :>Does anyone know what can cause this (compiler option or PTF)? I seem to :>remember this happening a long time ago, but I have long forgotten what :>caused this, and how I fixed it. :>We are currently z/OS 1.8, and have been for about 7 weeks, and this issue :>started around a week ago. So I don't think it's an upgrade issue. Look at the changes. If in the past you were just doing WRITEs without the ADVANCING/POSITIONING clause and plugging in the carriage control and they have now added the clause, COBOL may reserve an extra character. -- Binyamin Dissen <[EMAIL PROTECTED]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
