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