*DECK FCMMGSS 
          IDENT  CMMGSS 
 CMMGSS   TITLE  CMMGSS - GET STATISTICS FOR JOB SUMMARY. 
          COMMENT  GET STATISTICS FOR JOB SUMMARY 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMGSS - GET STATISTICS FOR JOB SUMMARY.
* 
*         CALL CMMGSS(ADDR) 
* 
*                ADDR   - THE FWA OF THE STATISTICS TABLE DESCRIBED IN
*                         CMM REFERENCE MANUAL PAGE 2-10. 
* 
 CMMGSS   SPACE  4,4
          SUBRTN CMMGSS 
          SA0    X1 
+         RJ     =XCMM.GSS
-         VFD    12/0,18/CMMGSS-1 
          SB2    5
 LP       BSS    0
          SA2    X1+B2       MOVE STATS TO USER ARRAY 
          BX6    X2 
          SA6    A0+B2
          SB2    B2-B1
          PL     B2,LP
          RTRN   CMMGSS 
          END 
