*DECK CLRLIDT 
USETEXT COMCBEG 
USETEXT COMRNET 
PROC    CLRLIDT;
#     TITLE  CLRLIDT - CLEAR NETWORK STATUS IN LIDT  #
  
      BEGIN  # CLRLIDT  # 
  
# 
**    CLRLIDT - CLEAR NETWORK STATUS IN LIDT
* 
*     THIS PROCEDURE IS APPLICABLE TO NOS ONLY.  IT WILL
*     SET RHF NETWORK STATUS TO "NETWORK NOT AVAILABLE" IN LIDT.
* 
*     PROC CLRLIDT
* 
*     ENTRY   - NONE. 
* 
*     EXIT    - RHF NETWORK STATUS UPDATED IN LIDT. 
* 
*     PROCESS - ISSUE SETPIDA TO SET RHF NETWORK NOT AVAILABLE. 
* 
# 
  
# 
****  PROC CLRLIDT XREF LIST BEGIN. 
# 
      XREF
        BEGIN 
        PROC CALLSYS;                # MAKE RA + 1 REQUEST  # 
        END 
  
# 
****  PROC CLRLIDT XREF LIST END. 
# 
  
  
    CONTROL IFEQ OS$NOS;
      ARRAY SFMCALL [0:0] S(1); 
        BEGIN   # SETPIDA SFM CALL  # 
        ITEM SFMWD     U(00,00,60) = [0]; 
        ITEM SFMNAME   C(00,00,03) = ["SFM"]; 
        ITEM SFMRCL    B(00,19,01) = [TRUE];
        ITEM SFMFC     I(00,24,12) = [LDTFC$SPA]; 
        ITEM SFMADDR   U(00,42,18); 
        END 
  
      ARRAY SFMPARM [0:0] S(2); 
        BEGIN 
        ITEM SPSUBFC   I(00,00,12) = [SPA$SNSF];
        ITEM SPNPIDS   U(00,12,12) = [1]; 
        ITEM SPNET     U(00,24,12); 
        ITEM SPRHF     U(00,34,01) = [TRUE];
        ITEM SPRC      U(00,36,08); 
        ITEM SPCMPLT   B(00,59,01) = [TRUE];
        ITEM SPID1     C(01,00,03) = ["***"]; 
        ITEM SPSTAT    I(01,56,04) = [NW$NAVAIL]; 
        END 
  
   CONTROL EJECT; 
      SFMADDR = LOC(SFMPARM); 
      SPCMPLT = TRUE; 
      CALLSYS (SFMCALL);
    CONTROL ENDIF;
  
      RETURN; 
      END # CLRLIDT  #
      TERM
