status.i4.v = my_program_name_c(name.i1a.r)

	This routine returns the calling process' program name, e.g., pa1008.
       This is to be contrasted with its executable name, e.g., pa9901, and
       its process name, e.g., pa1008_01.

	name		returned null terminated program name.
			(MAXNAMLEN + 1 characters)

	This function returns status values as follows:

	OK			success
	CLIB_GENERR		failed to determine the program name

	This function requires the following include files:

	cnsparam_h, clib_h, acnet_errors_h

	Related functions:

	my_generic_ascii_name, my_gen_name, myname, my_ascii_name, mynode,
	myconsole, myinstance, myslot, mypage, my_user_name, my_acnet_user_name,
	clib_environment, my_control_system_name

	C/C++ usage:

	char	name[MAXNAMLEN+1];
	int	status;

	status = my_program_name_c(name);