
*copyc OSD$DEFAULT_PRAGMATS
?? NEWTITLE := '170 NOS/VE REMOTE HOST' ??
MODULE rhmcls;

?? NEWTITLE := 'GLOBAL TYPE DECLARATIONS' ??
?? SET (LIST := OFF) ??
?? EJECT ??
*copyc RHT$FUNCTION_STATUS

?? TITLE := 'EXTERNAL PROCEDURES REFERENCED BY THIS MODULE' ??
?? SET (LIST := OFF) ??
?? EJECT ??
*copyc ZN7PCIO

?? TITLE := 'RHP$CLOSE_FILE' ??
?? SET (LIST := ON) ??
?? EJECT ??

{ RHP$CLOSE_FILE
{
{     The purpose of this procedure is to close a local file.
{
{     RHP$CLOSE_FILE (LOCAL_FILE_INFO)
{
{ LOCAL_FILE_INFO: (input) This parameter specifies all information
{     pertinent to local file access.
{

  PROCEDURE [XDCL] rhp$close_file ALIAS 'rhmcls' (VAR local_file_info: rht$local_file_info);

    local_file_info.fet.completed := TRUE;
    n7p$cio (local_file_info.fet, - n7c$cio_close_rewind);

  PROCEND rhp$close_file;

MODEND rhmcls;
