*DECK DB$MFLS 
          IDENT  DB$MFLS
          SST 
          IPARAMS 
*#
* *   DB$MFLS - SET MAXIMUM FIELD LENGTH         PAGE  1
* *   R L MCALLESTER                             DATE  01/23/80 
* 
* DC  PURPOSE 
* 
*     SET MFL DURING SUBSYSTEM INITIALIZATION.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER 
* 
*     MFL - TAKEN FROM THE CDCS CONTROL STATEMENT.
* 
*     ASSUMPTION
* 
*     IF THE MFL PARAMETER IS NOT SPECIFIED, DB$MFLS IS NOT CALLED. 
*     IN THAT CASE THE OS DEFAULT, OR A PRIOR MFL CONTROL STATEMENT 
*     VALUE IS USED.
* 
* DC  EXIT CONDITIONS 
* 
*     NONE
* 
* DC  CALLED ROUTINES 
* 
*     SETMFL MACRO
* 
* DC  CALLING ROUTINES
* 
*     DB$AINT 
* 
* DC  DESCRIPTION 
* 
*     SETMFL MACRO IS ISSUED TO SET MAXIMUM FIELD LENGTH. 
*#
          ENTRY  DB$MFLS
  
DB$MFLS   EQ   *+1S17 
          IFC    EQ,$"OS.NAME"$KRONOS$,1
OPL       XTEXT  COMCCMD
          SA1    X1 
          ZR   X1,DB$MFLS 
          SETMFL  X1
          EQ   DB$MFLS
          END 
