{ RHG$REPLACE_PERMANENT_FILE
{
{       The purpose of this procedure is to receive transmission of a file
{ from the application identified by the destination field of application_
{ names and perform all work necessary to accomplish an A170/NOS permanent
{ file REPLACE of the file identified by pf_info with the transmitted file.
{
{       RHG$REPLACE_PERMANENT_FILE (PERMANENT_FILE_INFO,APPLICATION_NAMES)
{
{ PERMANENT_FILE_INFO: (input) This parameter contains all information
{                      required to identify the permanent file on which
{                      the permanent file function is to be performed.
{
{ APPLICATION_NAMES: (input) This parameter identifies the application
{                    performing the permanent file function and the
{                    application to which the permanent file is transfered.
{

  PROCEDURE [XREF] rhp$replace_permanent_file ALIAS 'rhmpfr' (
    permanent_file_info: RECORD
                         permanent_file_name: STRING(7),
                         user_number: STRING(7),
                         password: STRING(7),
                         RECEND;
    VAR application_names: rht$mli_application_names);

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