Could you have gone from ADV=NO to ADV=YES on the COBOL compile option? See: http://publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/c om.ibm.entcobol4.doc/igyc1plc.htm
HTH, Greg Shirey Ben E. Keith Company -----Original Message----- From: IBM Mainframe Discussion List On Behalf Of Todd Burrell Sent: Wednesday, August 15, 2007 11:10 AM To: [email protected] Subject: Weird COBOL issue 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. Thanks Todd Burrell ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
