++APAR(ASZ3102). /*-----------------------------------------------------

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3102 991101 61VNAB DD OMCSV2  P828 OMCJD022E  OMCSJDET 991104 C__-GSG
when multiple jobs captured in same second, equal seq. keys can exist
in the pre-Y2K compliance job detail entries.  bypass: use PARM=IGNSEQ

_PROBLEM DESCRIPTION:
MSG OMCJD022E SEQUENCE ERROR FOUND LAST KEY: ..... CURRENT KEY .....
Keys in the message are pre-Y2K compliance format ( yymmdd-hhmmss-day)
and are identical.  Program OMCSJDET terminates with COND CODE 0012
unless PARM=IGNSEQ was specified.

_PROBLEM SUMMARY:
USERS AFFECTED: Admin users running OMCSJDET against pre-Y2K compliance
data.

PTF ASP0828 introduced changes to the structure of the Job Detail master
file, database file .JOBDETL MASTER, which required that program
OMCSJDET be modified.  Taking advantage of the opportunity, the
programmer enhanced OMCSJDET to perform sequence checking on the key
field for this file.  Y2K support enhancements ensure that duplicate
keys are not generated in this key field and the programmer implemented
a strict ascending-only sequence check.  However this overlooked the
fact that the pre-Y2K code could result in equal keys when more than
one job was captured within the same second.  The new, strict, sequence
check is not allowing for this historical data condition and issues MSG
OMCJD022E when it is detected.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3102.

OMCSJDET will be modified to report an equal sequence condition as an
error only when it occurs within Y2K compliant job detail records.

_NON-SMP/E SITES PLEASE NOTE:

1. Apply this fix using the ASMPMAIN program.  Refer to ASE Technical
   Bulletin TB90-0014 for sample JCL for running this program or see
   the .ASESAMP member called RUNASMP.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0828).
++ZAP(OMCSJDET).
NAME OMCSJDET
IDRDATA ASZ3102
*   LOCN MACHINE_CODE LABEL    OPER  OPERANDS         COMMENTS
VER 0602 47D0C71E              BNH   DELRN             NO->
*
VER 1218 B218         PATCH    DC    S(*)             PATCH AREA
*
REP 1218 956D90D2     PATCH    CLI   JDETCAPT-1,C'_'  Y2K FORMAT?
REP 121C 4780C71E              BE    DELRN             YES, ERROR->
REP 1220 47F0C606              B     DELRFD           NO, ACCEPT IT->
*
REP 0602 47D0B218              BNH   PATCH            TO PATCH->
*LMOD OMCSJDET