*DECK CLRSCP
USETEXT COMCBEG 
USETEXT COMRLRA 
USETEXT COMRSFC 
PROC CLRSCP;
# TITLE CLRSCP - CLEAR SYSTEM CONTROL POINT STATUS. # 
  
      BEGIN  # CLRSCP # 
  
# 
**    CLRSCP - CLEAR SYSTEM CONTROL POINT STATUS. 
# 
  
# 
****  PROC CLRSCP - XREF LIST BEGIN 
# 
  
      XREF
        BEGIN 
        PROC CALLSYS;                # MAKE RA + 1 REQUEST #
        END 
  
# 
****  PROC CLRSCP - XREF LIST END 
# 
  
CONTROL EJECT;
  
      SFC$WD1   = 0;
      SFC$JOBID = 0;
      SFC$FC1   = SF$EXIT;
      SSFADDR   = LOC(SFC$WD1); 
      CALLSYS(SSF$CALL);
      RA$SSID   = 0;
  
      END  # CLRSCP # 
  
      TERM
