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

?? 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$OPEN_FILE' ??
?? SET (LIST := ON) ??
?? EJECT ??

{ RHP$OPEN_FILE
{
{     The purpose of this procedure is to open the local file identified by local_file_info.
{
{     RHP$OPEN_FILE (LOCAL_FILE_INFO)
{
{ LOCAL_FILE_INFO: (input) This parameter specifies all information
{     required for local file identification and access.
{
{

  PROCEDURE [XDCL] rhp$open_file ALIAS 'rhmopn' (VAR local_file_info: rht$local_file_info);

    TYPE
      fet_pointer_rec = record
        case pointer_val_type: (constant, pointer) of
        = constant =
          constant: integer,
        = pointer =
          pointer: ^cell,
        casend,
      recend;

    VAR
      fet_pointer: fet_pointer_rec;

    fet_pointer.constant := 0;
    local_file_info.fet.first := fet_pointer.pointer;
    local_file_info.fet.next_in := fet_pointer.pointer;
    local_file_info.fet.next_out := fet_pointer.pointer;
    fet_pointer.constant := 1;
    local_file_info.fet.limit := fet_pointer.pointer;
    local_file_info.fet.completed := TRUE;
    n7p$cio (local_file_info.fet, - n7c$cio_rewind);

  PROCEND rhp$open_file;

MODEND rhmopn;
