*DECK FCMMMFL 
          IDENT  CMMMFL 
 CMMMFL   TITLE  CMMMFL - RESPECIFY VALUE FOR *MAXFL*.
          COMMENT  RESPECIFY VALUE FOR *MAXFL*
          SYSCOM B1 
          CTEXT 
 SUBRTN   MACRO  LAB
          ENTRY  LAB
          BSS    1
          VFD    42/0H_LAB,18/LAB 
 LAB      PS
          SX6    A0+
          SA6    LAB-2
          SB1    1
          ENDM
          SPACE  4,4
 RTRN     MACRO  LAB
          SA1    LAB-2
          SA0    X1+
          EQ     LAB
          ENDM
          ENDX
***       CMMMFL - RESPECIFY VALUE FOR *MAXFL*. 
* 
*         CALL CMMMFL(NEWMFL) 
* 
*                NEWMFL - NEW MAXFL.
* 
 CMMMFL   SPACE  4,4
          SUBRTN CMMMFL 
          SA1    X1          NEWMFL 
+         RJ     =XCMM.MFL
-         VFD    12/0,18/CMMMFL-1 
          RTRN   CMMMFL 
          END 
