*DECK FCMMGOS 
          IDENT  CMMGOS 
 CMMGOS   TITLE  CMMGOS - GET STATISTICS FOR OVERFLOW RECOVERY. 
          COMMENT  GET STATISTICS FOR OVERFLOW RECOVERY 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMGOS - GET STATISTICS FOR OVERFLOW RECOVERY.
* 
*         CALL CMMGOS(ADDR) 
* 
*                ADDR   - THE FWA OF THE STATISTICS AREA AS DESCRIBED 
*                         IN THE CMM REFERENCE MANUAL PAGES 2-8, 2-9, 
*                         AND 2-10. 
* 
 CMMGOS   SPACE  4,4
          SUBRTN CMMGOS 
          SA0    X1 
+         RJ     =XCMM.GOS
-         VFD    12/0,18/CMMGOS-1 
          SB2    X1 
          SB3    14 
 LOOP     BSS    0           MOVE STATS TO USER ARRAY 
          SA2    B2+B3
          BX6    X2 
          SA6    A0+B3
          SB3    B3-B1
          PL     B3,LOOP
          RTRN   CMMGOS 
          END 
