*DECK DB$MGFS 
          IDENT  DB$MGFS
*#
* *   DB$MGFS -- GET MAX AVAIL FIXED BLOCK SIZE  PAGE  1
* *   P A MURRAY                                 DATE  10/31/79 
* 
* DC  PURPOSE 
* 
*     TO RETURN THE SIZE OF THE LARGEST FIXED BLOCK AVAILABLE 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     FL         FIELD LENGTH FLAG
*     GT         GROUP TYPE FLAG
* 
* DC  CALLED ROUTINES 
* 
*     CMM.GFS    GET MAXIMUM AVAILABLE FIXED BLOCK SIZE 
*#
          ENTRY  DB$MGFS
DB$MGFS   EQ   *+1S17 
          SA2    A1+1 
          SA1    X1          FIELD LENGTH FLAG
          SA2    X2          GROUP TYPE FLAG
          RJ   =XCMM.GFS
          EQ   DB$MGFS
          END 
