{ RHP$DEFINE_RECEIVE_FILE
{
{      The purpose of this procedure is to determine the existence and
{ access type of the permanent file to be replaced and define the file
{ to which the transfer of data, from the C180 task, will be made.
{
{      RHP$DEFINE_RECEIVE_FILE (PERMANENT_FILE_INFO,FET,PERMANENT_FILE_TYPE,
{                               PERMANENT_FILE_STATUS,DEFINE_CONDITION)
{
{ PERMANENT_FILE_INFO: (input) This parameter contains all information
{                      required to identify the permanent file which is
{                      to be replaced.
{
{ FET (output): This parameter specifies the fet which identifies the file
{     which will receive transmition of the file data from the C180 task.
{
{ PERMANENT_FILE_TYPE: (output) This parameter indicates the access type of
{                      the permanent file, i.e. direct or indirect.
{
{ PERMANENT_FILE_STATUS: (output) This parameter indicates wheather the file
{                        is new or if it already exists.
{
{ DEFINE_CONDITION: (output) This parameter indicates the condition of the
{                   define request.  All conditions are remote host definitions
{                   of A170/NOS permanent file manager condition codes.
{

  PROCEDURE [XREF] rhp$define_receive_file ALIAS 'rhmpdr' (
    permanent_file_info: RECORD
                         permanent_file_name: STRING(7),
                         user_number: STRING(7),
                         password: STRING(7),
                         RECEND;
    VAR fet: n7t$fet;
    VAR permanent_file_type: rht$file_type;
    VAR permanent_file_status: rht$file_status_type;
    VAR define_condition: INTEGER);

?? PUSH (LISTEXT := ON) ??
*copyc RHT$FUNCTION_STATUS



?? POP ??
