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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001.

ASZ3232 010905 61VNAB LS ASEB200 P909 INCORROUT  OMCSAMUX 010906 O__-PJS
 OMCEC046I 02 ?        LINE# 0403 &DATE(...) INVALID DATE EXPRESSION
ECL error processing backup dataset with expiry date < creation date.

_PROBLEM DESCRIPTION:
 OMCEC046I 02 ?        LINE# 0403 &DATE(...) INVALID DATE EXPRESSION
ECL error processing backup dataset with expiry date < creation date.

_PROBLEM SUMMARY:
USERS AFFECTED: users of AMF update utility OMCSAMUX

When backup datasets are created using EXPDT=99000, AMF index dataset
records are created with the retention period in days recorded as a
negative number.  OMCSAMUX does date arithmetic with this number, not
expecting a negative day count.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3232.

OMCSAMUX will be modified to detect negative numbers in the AMF dataset
record's retention period field.  Any negative number found will treated
as zero.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE or email help@ase.com.au

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0909).
++SRCUPD(OMCSAMUX).
./ CHANGE NAME=OMCSAMUX
APAR ASZ3232                                                            Z3232002
/*PRE ASP0909                                                           Z3232004
AUDIT ON                                                                Z3232006
F UPDTEG: 1                                                             Z3232008
F &AMDRDEFS                                                             Z3232010
:I2  /*--1----+----2----+----3----+----4----+----5                      Z3232012
         IF# &AMDRRETD<0          /* if expires before creation!!...    Z3232014
            SET AMDRRETD=0        /* ...prevent ecl error in &date      Z3232016
END                                                                     Z3232018