*DECK FCMMFGR 
          IDENT  CMMFGR 
          SYSCOM B1 
 CMMFGR   TITLE  CMMFGR - FREE A BLOCK GROUP. 
          COMMENT  FREE A BLOCK GROUP 
*CALL FCMMCOM 
***       CMMFGR - FREE A BLOCK GROUP.
* 
*         CALL CMMFGR(GRPID)
* 
*                GRPID  - SEE CMM REFERENCE MANUAL PAGE 2-7.
* 
 CMMFGR   SPACE  4,4
          SUBRTN CMMFGR 
          SA1    X1          GRPID
+         RJ     =XCMM.FGR
-         VFD    12/0,18/CMMFGR-1 
          RTRN   CMMFGR 
          END 
