CHKON 
          IDENT  CHKON
  
          SYSCOM B1 
          ENTRY  CHKOFF 
          ENTRY  CHKON
  
          TITLE  CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG. 
*COMMENT  CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK. 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG.
*         W.J. MARKO.  75/01/08.
          SPACE  4
*CALL     COMCMAC 
*CALL     COMKMAC 
*CALL     COMSPRD 
          SPACE  4
***       CHKOFF - CLEAR TOTAL INTERLOCK FLAG.
* 
*         CALLING FORMAT -
* 
*         COBOL 
*                ENTER CHKOFF 
* 
*         COMPASS 
*                CHKOFF 
* 
*         FORTRAN EXTENDED
*                CALL CHKOFF
  
  
 CHKOFF   SUBR               ENTRY/EXIT 
          CHKOFF
          JP     CHKOFFX     RETURN 
 CHKON    TITLE  CHKON - SET TOTAL INTERLOCK FLAG.
***       CHKON - SET TOTAL INTERLOCK FLAG. 
* 
*         CALLING FORMAT -
* 
*         COBOL 
*                ENTER CHKON
* 
*         COMPASS 
*                CHKON
* 
*         FORTRAN EXTENDED
*                CALL CHKON 
  
  
 CHKON    SUBR               ENTRY/EXIT 
          CHKON 
          JP     CHKONX      RETURN 
  
          END 
