szfil$ (6) --- size an open Primos file descriptor       09/18/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      longint function szfil$ (fd)
          |      integer fd

          |      Library: vswtlb (standard Subsystem library)


          | _F_u_n_c_t_i_o_n

          |      'Szfil$'  returns the size of the file (in words) associated
          |      with the open Primos file unit 'fd'.  If there is some error
          |      on the file, the function return is ERR.  The file  is  left
          |      positioned at the end of file.


          | _I_m_p_l_e_m_e_n_t_a_t_i_o_n

          |      Primos PRWF$$ is called to relatively position the file to a
          |      large  position  until  the  file reaches end of file.  Then
          |      PRWF$$ is called to read the current position of  the  file.
          |      If any error occurs, the function returns ERR, otherwise the
          |      size of the file is returned as the function return.


          | _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

          |      none


          | _S_e_e _A_l_s_o

          |      gfdata (2), sfdata (2), szseg$ (6)

























            szfil$ (6)                    - 1 -                    szfil$ (6)