*DECK FCMMOP6 
          IDENT  CMMOP6 
 CMMOP6   TITLE  CMMOP6 - RESPECIFY VALUE FOR *FLF*.
          COMMENT  RESPECIFY VALUE FOR *FLF*
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMOP6 - RESPECIFY VALUE FOR *FLF*. 
* 
*         CALL CMMOP6(NEW-FLF)
* 
*                NEW-FLF = NEW VALUE FOR *FLF*.  THIS IS THE AMOUNT OF
*                          FREE SPACE RETAINED ABOVE THE HIGHEST FIXED
*                          BLOCK WHEN THE FIELD LENGTH IS REDUCED.
  
* 
 CMMOP6   SPACE  4,4
          SUBRTN CMMOP6 
          SA1    X1          NEW-FLF
+         RJ     =XCMM.OP6
-         VFD    12/0,18/CMMOP6-1 
          RTRN   CMMOP6 
          END 
