Update the sample EDGUX100 exit module based on vital record specification management values you define and perform these tasks:

1. Copy the sample EDGUX100 exit module and use the copy as a base for your exit module.
2. Update the exit module. Only perform your processing when the PL100_CAN_VRS bit is set to B'1'.
   • If an ACERO is passed to the exit, use the ACEROEXP and ACERORTP fields to decided if a special date is specified. If a JFCB is passed to the exit, use the value in the JFCB expiration date field, JFCBXPDT to determine if a special date has been specified. Test the JFCBEXP flag to determine if the user specified an expiration date or a retention period. You can also test to see if the user wants the date used as real expiration date by checking for the existence of the dummy file NOTKEYD8.

     The sample EDGUX100 exit module includes code for using this method specifying the DD name NOTKEYD8. You can also use the PL100_ACCODE field to check if the special ACCODE value has been supplied. Specifying ACCODE=xCACATLG is the same as using EXPDT=99000.

   • Based on the special date like 99000 or the ACCODE value, select the chosen vital record specification management value and use it to set the field PL100_VRS.
   • If you want DFSMSrmm to use a true expiration date, rather than the special date from the JCL, update the JFCBXPDT field with the date or with zero. If you update the field with a zero, DFSMSrmm uses the default retention period to calculate an expiration date. See Assigning expiration dates for additional information. If you use in JCL only the ACCODE value, you do not need to alter the JCL expiration date.

   The sample EDGUX100 exit module provides support for catalog control special dates during pre-ACS and OPEN time and provides the checking necessary for true expiration dates. Modify the sample exit module if you wish to support other special dates.

3. Make any changes required for using vital record management values before building the USERMOD.