*DECK CMM$OP1 
          IDENT  S$CMOP1
          TITLE  S$CMOP1 -  TELL CMM TO NOT MEM DOWN
          COMMENT  TELL CMM TO NOT MEM DOWN 
          SPACE  4
**        S$CMOP1 -  TELL CMM TO NOT MEM DOWN 
* 
*     CALLING SEQUENCE: 
*         S$CMOP1;
* 
*     DOES: 
*         TELLS CMM TO NOT MEM DOWN.
*         (USED JUST PRIOR TO PERIOD OF CMM ACTIVITY.)
  
  
          ENTRY  S$CMOP1
 S$CMOP1  SUBR
          CALL   CMM.OP1
          EXIT
          SPACE  4
          END 
