home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / nettos11.zip / FSERV / CLRCONN.PRG < prev    next >
Text File  |  1993-02-23  |  1KB  |  71 lines
  1. /*
  2.  * File......: CLRCONN.PRG
  3.  * Author....: Rodgers Moore
  4.  * CIS ID....: 75730,2244
  5.  * Date......: $Date$
  6.  * Revision..: $Revision$
  7.  * Log file..: $Logfile$
  8.  *
  9.  * This is an original work by Rodgers Moore and is placed in the
  10.  * public domain.
  11.  *
  12.  * Modification history:
  13.  * ---------------------
  14.  *
  15.  * $Log$
  16.  *
  17.  */
  18.  
  19. #include "netto.ch"
  20.  
  21. /*  $DOC$
  22.  *  $FUNCNAME$
  23.  *      FN_CLRCONN()
  24.  *  $CATEGORY$
  25.  *      File Server
  26.  *  $ONELINER$
  27.  *      [286] Clear logical connection on default file server
  28.  *  $SYNTAX$
  29.  *
  30.  *      fn_ClrConn( [nConn] ) -> lSuccess
  31.  *
  32.  *  $ARGUMENTS$
  33.  *
  34.  *      <nConn> the logical connection number of the station to be cleared.
  35.  *      If omitted defaults to the current station.
  36.  *
  37.  *  $RETURNS$
  38.  *
  39.  *      A logical value .T. for success and .F. for failure.
  40.  *
  41.  *  $DESCRIPTION$
  42.  *
  43.  *      This function implements the File Server API call Clear Connection.
  44.  *
  45.  *      THIS CALL WORKS ON NETWARE 286 ONLY.
  46.  *     
  47.  *  $EXAMPLES$
  48.  *
  49.  *      ? fn_Logged(5)      ==> .T.
  50.  *      ? fn_ClrConn(5)     ==> .T.
  51.  *      ? fn_Logged(5)      ==> .F.
  52.  *
  53.  *  $SEEALSO$
  54.  *
  55.  *  $INCLUDE$
  56.  *
  57.  *  $END$
  58.  */
  59.  
  60.  
  61. function fn_ClrConn( nConn )
  62.    local cReq, cRep 
  63.  
  64.    default nConn to fn_connnum()
  65.  
  66.    cReq := I2BYTE( 210 ) + I2BYTE( nConn )
  67.    cRep := ""
  68.  
  69.    return ( _fnReq( 227, cReq, @cRep ) < 2 )
  70.  
  71.