*DECK FCMMOP4 
          IDENT  CMMOP4 
 CMMOP4   TITLE  CMMOP4 - CMM OPTIMIZATION FUNCTION 4.
          COMMENT  CMM OPTIMIZATION FUNCTION
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMOP4 - CMM OPTIMIZATION FUNCTION 4. 
* 
*         CALL CMMOP4 
* 
*         SEE CMM REFERENCE MANUAL PAGE 2-10. 
* 
 CMMOP4   SPACE  4,4
          SUBRTN CMMOP4 
+         RJ     =XCMM.OP4
-         VFD    12/0,18/CMMOP4-1 
          RTRN   CMMOP4 
          END 
