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