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

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999.

ASZ3080 990623 61VLLC MB OMCSIRM V201 INCORROUT  OMCSXWRP 990625 T__-PJS
ECL00134E 02 OMCSXWRP LINE# 0358 STATEMENT EXECUTION LIMIT EXCEEDED
(ASEC250 - SEE ASZ3082 FOR ASEC200)

_PROBLEM DESCRIPTION:
Report discovery job fails with this ECL error:
02.0358             DBSKIP &@SS 0
                    DBSKIP H 0
ECL00134E 02 OMCSXWRP LINE# 0358 STATEMENT EXECUTION LIMIT EXCEEDED

The user noted a large number of messages associated with report
collation ie. messages beginning with "INS =>" and "DEL =>".

_PROBLEM SUMMARY:
USERS AFFECTED: IRM users

Loop prevention is triggered when a large amount of report collation
is occurring.

_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3080

OMCSXWRP will be modified to reset the execution limit during report
collation.

_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(ASEC200) PRE(ASP0744).
++SRCUPD(OMCSXWRP).
./ CHANGE NAME=OMCSXWRP
APAR ASZ3080                                                            Z3080002
/*PRE ASP0744                                                           Z3080004
AUDIT ON                                                                Z3080006
F STG0HF: 1                                                             Z3080008
F 'GOTO STG0HF'                                                         Z3080010
:I1  /*--1----+----2----+----3----+                                     Z3080012
            CONTROL ST1000K                                             Z3080014
END                                                                     Z3080016