geta$plg (2) --- fetch arguments for a PL/I G program    02/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 geta$plg:   procedure (ap, str, len) returns (fixed);
                    declare
                       ap    fixed,
                       str   character (128) varying,
                       len   fixed;

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Geta$plg'  fetches  an  argument from the Subsystem command
                 line in a format useable by a PL/I G (or PL/P) program.  The
                 arguments are analogous to those used by 'getarg'.  'Ap'  is
                 the number of the argument to be fetched:  0 for the command
                 name,  1  for  the  first  argument,  2 for the second, etc.
                 'Str' is a string to receive the argument,  while  'len'  is
                 the  number  of characters allocated to 'str'.  The function
                 return value is either the length  of  the  argument  string
                 actually  returned,  or  EOF (-1) if there is no argument in
                 that position.
                 
                 To use 'geta$plg', it must be declared in the PL/I program:
                 
                    declare
                       geta$plg entry (fixed, char (128) var, fixed)
                                      returns (fixed)
                 
                 It may then be called as a function wherever desired.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Geta$plg' simply calls 'getarg' with the argument  pointer,
                 and  then calls 'ctov' to convert the result into the proper
                 PL/I format.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 str


            _C_a_l_l_s

                 ctov (2), getarg (2)


            _B_u_g_s

                 If 'len' is an odd number, 'geta$plg' will  return  at  most
                 'len - 1' characters of an argument.




            geta$plg (2)                  - 1 -                  geta$plg (2)




            geta$plg (2) --- fetch arguments for a PL/I G program    02/24/82


            _S_e_e _A_l_s_o

                 getarg (2), geta$f (2), geta$p (2)























































            geta$plg (2)                  - 2 -                  geta$plg (2)