
*copyc osd$default_pragmats
?? NEWTITLE := '170 NOS/VE REMOTE HOST' ??
MODULE rhmrtf;

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

?? TITLE := 'EXTERNAL PROCEDURES REFERENCED BY THIS MODULE' ??
?? SET (LIST := OFF) ??
?? EJECT ??
*copyc zutprtf
*copyc zutpdns
*copyc rhp$log_status

?? TITLE := 'RETURN_FILE' ??
?? SET (LIST := ON) ??
?? EJECT ??

{ RETURN_FILE
{
{     The purpose of this procedure is to provide a means by which
{ a CYBIL procedure can return a local file, i.e., release file
{ control from the calling job.
{
{       RETURN_FILE (LOCAL_FILE_INFO)
{
{ LOCAL_FILE_INFO: (input) This parameter specifies all information
{                  pertinent to local file access.
{

  PROCEDURE [XDCL] return_file
    (VAR local_file_info: rht$local_file_info);

    VAR
      dc_name: utt$dc_name,
      return_message: string (16),
      file_name_length: 0 .. 7;

    dc_name := local_file_info.fet.filename;
    utp$convert_dc_name_to_string (dc_name, return_message (1, 7),
          file_name_length);
    utp$return_file (return_message (1, 7));
    return_message (9, 8) := 'returned';
    log_status (dayfile_log_and_display, return_message);

  PROCEND return_file;

MODEND rhmrtf;
