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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2006.

ASZ3415 060523 61VNAB LS ASEB200 V220 INCORROUT  OMCSJDET 060524 S__-PJS
sequence error reported incorrectly by message OMCJD022E

_PROBLEM DESCRIPTION:
OMCSJDET may issue message OMCJD022E reporting a sequence error when
there is actually not a sequence error.

_PROBLEM SUMMARY:
USERS AFFECTED: ALL

See Problem Description.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3415

When comparing the keys of JOBDETL records, OMCSJDET was using a key
length of one less than the actual key length.  Records where the key
differed only in the last character were seen as having equal keys.

The condition of two or more records having equal keys was seen as a
serious error.  This condition will now be ignored.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0880).
++ZAP(OMCSJDET).
NAME OMCSJDET
IDRDATA ASZ3415
VER 0606 D510         CLC  JDETCAPT-1,JDEWLAST   CAPTURED DATE HIGHER ?
VER 060C 47D0         BNH  DELRN                 NO ->
REP 0606 D511         CLC  JDETCAPT-1(L'JDETCAPT+1),JDEWLAST  DATE LOWER?
REP 060C 4740         BL   DELRN                              YES ->
*LMOD OMCSJDET