
          IDENT  RHAGPFP
*IF ($string($name(wev$target_operating_system))='NOS')
          TITLE  RHA$GET PERMANENT FILE INFO
          ENTRY  RHPGPFP
* RHPGPFP
*
*      THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO CALL THE
* GETPFP NOS MACRO IN ORDER TO GET THE DEFAULT FAMILY AND USER
* THAT IRHF 170 IS RUNNING UNDER.
*
*
 RHPGPFP  BSS    0
*
* SAVE CYBIL ENVIRONMENT
*
          RJ      =XPXSAVE
* CALL NOS A170 MACRO
          BX0     X1
          GETPFP  X0
* RESTORE CYBIL ENVIRONMENT
          RJ      =XPXRSTR
* RETURN TO CALLING PROCEDURE
          JP      B7
*IFEND
          END
