++PTF(ASP0909).  /*---------------------------------------------------
ASP0909 010612 ASEB200 V201 user specified space reclaim "protection" period

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001

_OPERATIONAL NOTES

 The changes introduced by this PTF are described by technical bulletins
 TB01-0001 "Protecting Restored Files in an OMCS Database from Space
 Reclaim" and TB01-0002 "New AMF Utility Program OMCSAMUX".

_APARLIST:

ASZ3208 010226 61VASE PS ASEB200 P880 INCORROUT  OMCSAMFP 010307 S__0893
Changes for APAR ASZ3134 omitted from OMCSAMFP in PTF ASP0880.
Completed AMF request queue records may be out of sequence.

ASZ3217 010612 61VNAB LS ASEB200 V201 SUGG OK    OMCSAMFP ...... O__-PJS
allow restored sds files to be "protected" from space reclaim for more
than one day.

ASZ3218 010614 61VASE PS ASEB200 V201 INCORROUT  OMCSAMFP ...... O__-PJS
restored sds files only "protected" from space reclaim for 14 hours
instead of the expected 24.
       */
++VER(Z038) FMID(ASEB200)
            PRE(ASP0403,ASP0880)
            SUP(ASP0893,ASZ3208,ASZ3217,ASZ3218).
++JCLIN.
//STEP1    EXEC PGM=IEWL,
//            PARM='LIST,MAP,NCAL,REUS'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD  DD DSN=ASE.ASELIB,DISP=SHR
//AASELOAD DD DSN=ASE.AASELOAD,DISP=SHR
//SYSLIN   DD *
 INCLUDE AASELOAD(OMCSECLX,OMCSIDEN,OMCSAMUX)
 ORDER OMCSECLX
 ENTRY OMCSECLX
 NAME OMCSAMUX(R)
++SRC(ASESTDPR).
++SRC(OMCSAMFP).
++SRC(OMCSAMUX) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++SRC(OMCSTSDB).
++MOD(ASESTDPR).
++MOD(OMCSAMFP).
++MOD(OMCSAMUX) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++MOD(OMCSTSDB).