If you have StarTool (or CBT version of PDS command) you can to a 'verify' against the load library. Verify reads (and loads) all members of a PDS and reports stats like largest block encountered. It also reports on any I/O or fetch errors.
. . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW [email protected] -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Charles Mills Sent: Monday, July 23, 2018 9:45 AM To: [email protected] Subject: (External):Re: IEC020I 001-4 question > they can not get the program to ever run correctly again, even after re-compiling If the problem is the dataset or a dataset/program mismatch then recompiling the program will not help, of course. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Bernd Oppolzer Sent: Monday, July 23, 2018 9:38 AM To: [email protected] Subject: Re: IEC020I 001-4 question Wild guess: I found this explanation for S001-4 on some web sites: S001-4 AbendInput file record length is not equal to the length stated in the DD or the FD. Wrong length record. IO error, damaged tape, device malfunction. With disk, reading a dataset that was allocated but never written to. Writing to input file Concatenation of files with different record lengths or record formats. so I would check if the record and block size of the data set matches the RPG definitions. If I read the program correctly, the record size should be 300 and the block size 9000 (see the F line of the program). Maybe the performance guy changed the blocksize ?? Kind regards Bernd Am 23.07.2018 um 18:12 schrieb Tony Thigpen: > I have a site with a bunch of old RPG programs. Lately, it seems that > sometimes the get the following. Once it happens, they can not get the > program to ever run correctly again, even after re-compiling. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
