Thanks to the many contributions to this thread, I think we have it (mostly)
figured out. The key was identifying what changed on 14 April. No module
changes. No JCL changes. But of course something happened that I didn't mention
earlier because 'it could not be the cause'. What happened on the 14th was an
error in the data that caused an SQL duplicate record condition, or 811. That
led to a U3003 abend, which woke up Fault Analyzer *for the first time*. Upon
awakening, he looked around and saw the invalid module block sizes and
complained about them. For literally years FA had never peeped because there
had never been an actual abend. Why did fetch not bellyache about BLKSIZE? I
have no idea. The module named in the message
IEW2541S 471A MEMBER CUA625 IDENTIFIED BY DDNAME JOBLIB WITH CONCATENATION
NUMBER 1 CONTAINS A BLOCK OF SIZE 32760 WHICH IS LONGER THAN THE
DATA SET BLKSIZE.
IDI0010E IEWBIND error INCLUDE CUA625 rc=83000507
IDI0002I Module CUA625, program CUA625, offset X'7712': Abend U3003
is invoked under PGM=IKJEFT01 by the statement
DSN SYSTEM(DB04)
RUN PROG (CUA625) -
PLAN (CUA625P) -
PARM ('10Open_WO_Cntr~ CSV+
GO2NTFTP01 40026 ')
So the job could not possibly run without executing program CUA625 every time.
Even though his block size exceeded the PDS value, it escaped attention.
For completeness, below is a summary of the JOBLIB concatenation. As I said,
lots of (fixable) problems, but none of them triggered FA until the SQL error.
LOALIB1
Defined BLKSIZE 19069
Several members exceed that, largest being 32,760
LOALIB2
Defined BLKSIZE 32760
Several members have naming errors such as-but not limited to-ALIAS. No BLKSIZE
errors by StarTool
LOALIB3
Defined BLKSIZE 19069
Several members exceed that, largest being 32,760
CUF040 gets ABEND106-0F loading CUF040
LOALIB4
Defined BLKSIZE 27999 (!!!)
PDS is empty
LOALIB5
PDSE (Library)
Defined BLKSIZE is 27999 (!!!)
OLDYNAM2 gets ABEND706-04 loading OLDYNAM2
No BLKSIZE errors reported by StarTool
.
.
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]<mailto:[email protected]>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
