; ------------------------------------------------------------------
;                              RH_CLOSE
; ------------------------------------------------------------------
;                        Ferme le fichier ouvert par RH_OPEN
; ------------------------------------------------------------------

PRO rh_close

@rh_common.inc

    CLOSE, sFI.unit 
    FREE_LUN, sFI.unit
    RETURN
END