*DECK FCMMOP5 
          IDENT  CMMOP5 
 CMMOP5   TITLE  CMMOP5 - RESPECIFY VALUE FOR *FLINC*.
          COMMENT  RESPECIFY VALUE FOR *FLINC*. 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMOP5 - RESPECIFY VALUE FOR *FLINC*. 
* 
*         CALL CMMOP5(NEW-FLINC)
* 
*                NEW-FLINC = NEW VALUE FOR *FLINC*.  CMM REQUESTS THIS
*                            MUCH MORE THAN THE MINIMUM NEEDED WHEN 
*                            REQUESTING ADDITIONAL FL.
* 
 CMMOP5   SPACE  4,4
          SUBRTN CMMOP5 
          SA1    X1          NEW-FLINC
+         RJ     =XCMM.OP5
-         VFD    12/0,18/CMMOP5-1 
          RTRN   CMMOP5 
          END 
