dseek$ (6) --- seek on a disk device                     01/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function dseek$ (pos, f, ra)
                 file_mark pos
                 file_des f
                 integer ra

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Dseek$'  is an internal Subsystem routine that performs the
                 function of 'seekf' for disk files only.  The first argument
                 is a long  integer  value  which  specifies  the  amount  of
                 relative  or absolute positioning, depending on the value of
                 the third argument, 'ra'.  If 'ra' equals ABS then position-
                 ing is from the beginning of the file; if  'ra'  equals  REL
                 then  positioning  is from the current position.  The second
                 argument is the file  descriptor  of  the  file  whose  file
                 pointer  is being manipulated.  The function return is OK if
                 the positioning was successful, ERR if 'ra' is ABS and 'pos'
                 is negative, ERR if 'ra' is neither ABS  nor  REL,  and  EOF
                 otherwise.   'Dseek$' is not intended for general use; it is
                 not protected from user error, and may cause termination  of
                 the user's program if used incorrectly.  It should always be
                 referenced through 'seekf'.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Dseek$'  calls the Primos subroutine PRWF$$ to set the file
                 pointer of a disk file.


            _C_a_l_l_s

                 Primos prwf$$


            _B_u_g_s

                 EOF is returned if any error occurs during  disk  read;  the
                 user is not informed of the actual error that occurs.


            _S_e_e _A_l_s_o

                 seekf (2)









            dseek$ (6)                    - 1 -                    dseek$ (6)