*DECK DB$MGOS 
          IDENT  DB$MGOS
*#
* *   DB$MGOS -- GET STATISTICS FUNCTION         PAGE  1
* 
* DC  PURPOSE 
* 
*     THIS ROUTINE CALLS CMM.GOS TO GET THE CMM OVERFLOW STATISTICS.
* 
* DC  DESCRIPTION 
* 
*     CMM.GOS RETURNS THE FWA OF THE OVERFLOW STATISTICS AREA.
* 
* DC  ENTRY CONDITIONS
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     FWA OF THE STATISTICS TABLE IS IN REGISTER X6.
* 
* DC  CALLED ROUTINES 
* 
*     CMM.GOS                           GET FWA OF STATISTICS TABLE 
*#
          ENTRY  DB$MGOS
DB$MGOS   EQ   *+1S17 
          RJ   =XCMM.GOS
          BX6    X1 
          EQ   DB$MGOS
          END 
