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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ2300 930913 61VLLC MB OMCSV2  V201 INCORROUT  OMCSDSIU 991208 O__-PJS
Wrong rules deleted when multiple dataset identification rules are
selected for deletion.

_PROBLEM DESCRIPTION:
When two or more DI rules are selected with D line commands, processing
of the second and subsequent deletes actually delete the wrong rule.

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

When determining the record number of the rule to be deleted, OMCSDSIU
uses the record numbers determined prior to any records being deleted.
It does recognise that these record numbers will change after preceding
records have been deleted.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ2300

OMCSDSIU will be modified to adjust for the deletion of prior rules when
determining the record number of the next rule to be deleted.

_SMP/E SITES PLEASE NOTE:

1. If you have PTF ASP0699 installed on your system, you may apply two
   or more source update APAR fixes to the same source module
   simultaneously.  If you do not have PTF ASP0699 installed, do NOT
   attempt to apply two or more source update APAR fixes to the same
   source module simultaneously - you will get incorrect results.

_NON-SMP/E SITES PLEASE NOTE:

1. Apply this fix using the ASMPMAIN program.  Refer to ASE Technical
   Bulletin TB90-0014 for sample JCL for running this program or see
   the .ASESAMP member called RUNASMP.

2. This fix contains ++SRCUPD statements.  After applying the fix you
   must recompile the ECL programs named in ++SRCUPD statements to
   create new load modules from them.  For sample JCL see the .ASESAMP
   member called RUNECLC which was distributed on PUT9112.

NEED FURTHER HELP?  CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200)
            PRE(ASP0808,ASZ2581,ASZ2583,ASZ3068,ASZ3107,ASZ3114).
++SRCUPD(OMCSDSIU).
./ CHANGE NAME=OMCSDSIU
APAR ASZ2300                                                            Z2300002
/*PRE ASP0808,ASZ2581,ASZ2583,ASZ3068,ASZ3107,ASZ3114                   Z2300004
AUDIT ON                                                                Z2300006
F STG1DE: 1                                                             Z2300008
F LCT#                                                                  Z2300010
:I1                                                                     Z2300012
         SET STG1ADJ=0            /* ADJUSTMENT FOR DELETIONS           Z2300014
F STG1TOPL                                                              Z2300016
:D1                                                                     Z2300018
:I2                                                                     Z2300020
            SET I=&STG1TOPL+&TERM(&LCT,1,=)-+/* AND CALCULATE REC #     Z2300022
                            &STG1ADJ         /* ADJUSTING FOR DELETES   Z2300024
F STG1LD: 1                                                             Z2300026
F SLUP                                                                  Z2300028
:I1                                                                     Z2300030
            SET STG1ADJ=&STG1ADJ+1                                      Z2300032
END                                                                     Z2300034