program_is_pa

	status.i4.v = program_is_pa()

	This routine tells the calling application whether or not it
	is a primary application (PA).

	This function returns status values as follows:

	TRUE			application is a primary application
	FALSE			application is not a primary application

	This function requires the following include files:

	cnsparam_h, clib_h

	Related functions:

	program_is_sa

	C/C++ usage:

	int	status;

	status = program_is_pa();