ul_pasa_type (ul_pasa)

	status.i4.v = ul_pasa_type()

	This routine returns the type of ul_pasa being used by
	the calling application.

	This function returns status values as follows:

	LIBRARY_TYPE_NORMAL	running standard version of ul_pasa
	LIBRARY_TYPE_TEST	running test version of ul_pasa

	This function requires the following include files:

	auxlib_h, clib_h

	Related functions:

	ul_pasa_date, ul_pasa_tag, ul_pasa_version_strings,
	running_current_ul_pasa, running_test_ul_pasa,

	C/C++ usage:

	int	status;

	status = ul_pasa_type();