++PTF(ASP1056) REWORK(2007204). /*----------------------------------
ASP1056 070717 ASEB200 OMCSDBEX Retention period is incorrect for
                                special expdt values

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2007

_APARLIST:

ASZ3445 070716 61VNAB MW ZSEX100 V100 INCORROUT  OMCSDBEX 070716 S__1055
AMF D record has an invalid retention period if EXPDT=99000 is coded in

_NOTES:

JCL and tape management systems use special expiry dates to indicate
special treatment of the dataset such as never expires or expires
when uncataloged.  These dates typically have a year value which is
less than the current year. This was resulting in AMF D records with
negative retention period values.

This PTF addresses this problem by creating D records with the maximum
possible retention period when the calculated retention is negative.
When the backup dataset is no longer required and has been deleted
these records can be removed by using the NOTCATLG option of OMCSAMUT.

PTF ASP1047 added the following parameters to OMCSDBEX:

OFN= OFT=  : Specifies the filename and filetype of files to omit from
             this backup. These parameters can be generic.
             e.g OFN=INDEX* OFT=2006*  will prevent any file whose
             filename begins with INDEX and with a filetype begining
             with 2006 from being backed up.

RNG=(fromfn fromft,tofn toft)  : Specifies a range of files to be
             backed up. The database directory contains all filenames
             in alphabetical order.  The RNG parameter causes all files
             that are between fromfn fromft and tofn toft inclusive
             to be candidates for backup.  Files outside this range
             will not be backed up.  Files inside the range will only
             be backed up if they match the FN= FT= parameters and
             not the OFN= OFT= parameters. fromfn fromft and tofn toft
             do not have to be files that actually exist in the
             database.  The arguments just determine a starting position
             and ending position for reading files names in the
             directory.

             Arguments to the RNG parameter can be generic i.e can
             end in a asterisk e.g.  RNG=(A* #*,Z* #*).

             Each argument is padded with blank characters except
             when the arguments end in an asterisk. From arguments
             ending in an asterisk are padded with low values (x'00').
             To arguments ending in an asterisk are padded with
             high values (x'ff').

             Be aware that the arguments just determine the range of
             files that are possible candidates for backup. The actual
             files backed up are selected by the FN= and FT= parameters.

Default values for FN= and FT= parameters are now set. They are
FN=* FT=*

       */
++VER(Z038) FMID(ASEB200)
            PRE(ASP1047,ASP0962,ASP0947,ASP0985)
            SUP(ASP1043,ASZ3445).
++MOD(OMCSDBEX).
++MOD(OMCSAMX1).
++MOD(OMCSAMUS).
++SRC(OMCSAMUT).
++MOD(OMCSAMUT).