gcifu$ (6) --- return the current value of the command unit  10/15/81


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function gcifu$ (funit)
                 integer funit

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Gcifu$'  returns  the  file unit which is providing command
                 input for the shell both in the argument 'funit' and as  the
                 value of the function.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Gcifu$'  returns  the  value  contained in 'Comunit' in the
                 Subsystem common block.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 funit


            _S_e_e _A_l_s_o

                 sh (1)





























            gcifu$ (6)                    - 1 -                    gcifu$ (6)