++APAR(ASZ2918).  /*---------------------------------------------------
ASZ2918 WAS PICKED UP BY ASP0721 SHIPPED ON PUT9706+PUT9707.

COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1997.

ASZ2918 970520 61VNAB WM OMCSV2  P711 ABS0C4     ASEDAMFM 970520
Abend S0C4 after message DAIO45I WAITING FOR ACCESS TO OMCS DATABASE FILE


_PROBLEM DESCRIPTION:

 Whenever a job waits for access to an OMCS database file for longer
 than one minute message DAIO45I WAITING FOR ACCESS TO OMCS DATABASE FILE
 is issued followed by a S0C4 abend.

_PROBLEM SUMMARY:

   USERS AFFECTED: All users

 While searching for the RB that has caused the wait, the exit routine
 that issues the DAIO45I message picks up a bad RB address which causes
 an abend.

_PROBLEM CONCLUSION

   RECOMMENDATION: Apply apar ASZ2918.

 The exit routine will be modified to pick up the correct RB address.

_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 .

IF YOU DONT UNDERSTAND WHAT THIS MEANS PLEASE CALL ASE FOR ASSISTANCE.

       */
++VER(Z038) FMID(ASEB200) PRE(ASP0711).
++ZAP(ASEDAMFM).
NAME ASEDAMFM
IDRDATA ASZ2918
VER 2734 1733
REP 2734 0700
*LMOD ASEDAMGR,OMCSTSSJ,OMCSIRUV