I have in my files a case where the first part of working-storage was overlaid when a file had the "RECORD CONTAINS 0 CHARACTERS" clause. the programmer bypassed the problem by defining a dummy field at the beginning of WS equal to the length of the expected lrecl of the file.
no indication of what version of the compiler was involved. current is PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 IBM Mainframe Discussion List <[email protected]> wrote on 06/12/2006 12:59:53 PM: > That number caught my eye. > The RDW is 4 less than 16448 - which is X'4040'. An inadvertent move of > spaces might be the culprit somewhere. > Later, > Ray > -----Original Message----- > Kirk Talman > 1) If you do a READ instead of a READ INTO, the 01 is addressing the buffer > with all records left in the current physical record. So yes, if you look > you might see the next record(s). You might also get an 0C4 if none are > present. If it hurst don't do it. > 2) the s002 and the RDW of 16444 means there are record(s) longer than > 1504 (4 for RDW plus 1500) and/or less than 63 (4 for RDW plus 59). To > process the records, change FD to: > OCCURS 1 TO 32760. > <[EMAIL PROTECTED]> wrote in message > news:<[EMAIL PROTECTED]>... > > Note - the 1st record record is 318 bytes, the 2nd record > > 318 bytes and the 3rd record is 1499 bytes. So the first read has > > actually read half way into the third record. > > Upon the second read an RDW value of 16444 is returned in > > WS-REC-LENGTH and the abend follows. ----------------------------------------- The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. The information may also constitute a legally privileged confidential communication. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you ---------------------------------------------------------------------- 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
