*DECK FCMMACT 
          IDENT  CMMACT 
 CMMACT   TITLE  CMMACT - SEE IF CMM ACTIVE 
          COMMENT  SEE IF CMM ACTIVE
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMACT - DETRMINE IF CMM IS ACTIVE
* 
*         CALL CMMACT(IND)
* 
*                IND -  INDICATOR 
*                       0 - CMM NOT ACTIVE
*                       1 - CMM ACTIVE
* 
* 
          SPACE  4,4
          SUBRTN CMMACT 
          SA4    65B
          MX0    59 
          LX4    43 
          BX6    -X0*X4 
          SA6    X1 
          RTRN   CMMACT 
          END 
