IDCAMS Print will print the record in text and hex. Skip to just get the previous records and attempt the failing record.
On Fri, Apr 7, 2023 at 1:35 PM Schmitt, Michael <michael.schm...@dxc.com> wrote: > > Since no one else has answered, I'll speculate. > > One possibility is that the file is fine, but it is driving application logic > that is stomping on LE, leading to the internal error. If COBOL, try > compiling with SSRANGE. And add the HEAPCHK(ON) LE runtime option, such as > via CEEOPTS DD. HEAPCHK will check for damage to the heap control information > at each call to a Language Environment heap storage management service. If > damage is found, it will immediately abend with a U4042. (But it won't abend > on the actual line that is causing the damage, since it only checks when LE > services are used.) > > If it is an actual file problem, what is the RECFM? If it is VB, perhaps > there's something wrong with the file structure. Try dumping the block that > contains the problem record and inspect the BDW and RDW. And, if you copy the > file with a utility that does record level copies (such as IEBGENER, but not > SYNCGENER!), does it fix it? > > -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of > Crusty Old Guy > Sent: Friday, April 7, 2023 11:28 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: U4038 - IGZ0099C Internal error CLOSE-FIB was detected in module > IGZ@QSAM. > > I have a program that abends with a U4038 on file close. This only happens > when a specific record is on an input file. No record, no problem. > This is from the dump - > IGZ0099C Internal error CLOSE-FIB was detected in module IGZ@QSAM. > From compile unit XXXXXXXX at entry point XXXXXXXX at compile unit offset > +00000B5A at entry offset +00000B5A at address 00007B5A. > <> LEAID LEAID001I UNRECOGNIZED CEEMGET FEEDBACK CODE: > x000301C259C3C5C500000021 > > U4038 is usually associated with record or storage size. Is that correct? > How can one record alter the size of a storage or record size? > > Regards, > COG > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN