*DECK S$GTMFL 
          IDENT  S$GTMFL
          TITLE  S$GTMFL - GET MAXIMUM FIELD LENGTH 
          COMMENT  GET MAXIMUM FIELD LENGTH 
  
  
**        S$GTMFL - GET MAXIMUM FIELD LENGTH
* 
*    CALLING SEQUENCE - 
*         S$GTMFL(MAXFL); 
*            MAXFL   I
* 
*    GIVEN -
*         NO VALUES GIVEN 
* 
*    DOES - 
*         GETS MAXIMUM CM FIELD LENGTH USING
*         THE CMM.MEM 
* 
*    USES - 
*         'CMM.MEM' 
  
          ENTRY  S$GTMFL
 S$GTMFL  SUBR              ENTRY/EXIT WORD 
          SX6    A1 
          SA6    SAVEA1 
          MX7    29         REQUEST MAXFL 
          RJ     =XCMM.MEM  SET X1=MAXFL
          SX2    X1 
          SA1    SAVEA1 
          SA1    X1 
          BX6    X2 
          SA6    X1 
          EXIT
 SAVEA1   BSS    1
          END 
