*DECK FCMMAGR 
          IDENT  CMMAGR 
 CMMAGR   TITLE  CMMAGR - ACTIVATE A BLOCK GROUP. 
          COMMENT  ACTIVATE A BLOCK GROUP 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMAGR - ACTIVATE A BLOCK GROUP.
* 
*         CALL CMMAGR(GRPTYP,GRPID) 
* 
*                GRPTYP - GROUP TYPE. 
*                         0 - UNRESTRICTED LIFETIME.
*                         1 - LIFETIME LIMITED TILL NEXT INCREASE 
*                             IN DABA.
*                GRPID  - SEE CMM REFERENCE MANUAL PAGE  2-7. 
* 
 CMMAGR   SPACE  4,4
          SUBRTN CMMAGR 
          SA0    A1+B1
          SA1    X1 
+         RJ     =XCMM.AGR
-         VFD    12/0,18/CMMAGR-1 
          SA1    A0 
          BX6    X2 
          SA6    X1          GRPID
          RTRN   CMMAGR 
          END 
