The GETRFA function returns the Record File  Address  (RFA)  of  the  last
  record accessed in an RMS file open on a specified channel.

  Example

  FOR I% = 1% TO 100%
  PUT #1
  R_array(I%) = GETRFA(1%)
  NEXT I%