*DECK FCMMGFS 
          IDENT  CMMGFS 
 CMMGFS   TITLE  CMMGFS - GET MAXIMUM AVAILABLE FIXED BLOCK SIZE. 
          COMMENT  GET MAXIMUM AVAILABLE FIXED BLOCK SIZE 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMGFS - GET MAXIMUM AVAILABLE FIXED BLOCK SIZE.
* 
*         CALL CMMGFS(FL,GRPTYP,BLKSIZ) 
* 
*                FL     - FIELD LENGTH FLAG.
*                         =0 - NO INCREASE IN FL ALLOWED. 
*                         =1 - FL MAY INCREASE TO MAXFL.
*                GRPTYP - GROUP TYPE FLAG.
*                         =0 - TYPE 0 BLACK.
*                         =1 - TYPE 1 BLOCK.
*                BLKSIZ - LARGEST BLOCK THAT CAN BE ALLOCATED.
* 
 CMMGFS   SPACE  4,4
          SUBRTN CMMGFS 
          SA0    A1 
          SA1    X1 
          SA2    A0+B1
          SA2    X2          GRPTYP 
+         RJ     =XCMM.GFS
-         VFD    12/0,18/CMMGFS-1 
          SA2    A0+2 
          SA6    X2          BLKSIZ 
          RTRN   CMMGFS 
          END 
