*DECK FCMMKIL 
          IDENT  CMMKIL 
 CMMKIL   TITLE  CMMKIL - DEACTIVATE CMM. 
          COMMENT  DEACTIVATE CMM 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMKIL - DEACTIVATE CMM.
* 
*         CALL CMMKIL 
* 
 CMMKIL   SPACE  4,4
          SUBRTN CMMKIL 
+         RJ     =XCMM.KIL
-         VFD    12/0,18/CMMKIL-1 
          RTRN   CMMKIL 
          END 
