status.i4.v = script_get_dir(num_scripts.i4.r, script_text.i1p.r,
				     records.u2p.r, sizes.u2p.r

	This routine retrieves the script directory information for the
	requested program.  If any of the returned values are not needed,
	a value of NULL can be passed for that argument.

	num_scripts	returned number of scripts available
	script_text	returned pointer to script name text
			(num_scripts * (SCRIPT_NAME_LEN+1+SCRIPT_TIMLEN)
	records		returned pointer to array of script records
			(This argument exists for backwards
			 compatibility only, these values no longer
			 have any meaning.)
	sizes		returned pointer to array of script sizes
	[pa_name]	null-terminated process name
			(default is process name of caller)

	This function returns ACNET status values as follows:

	OK			success
	CBS_MEMFAIL		error in allocating dynamic memory
	CBS_NOTENB		caller is a temporary application
	CBS_NODAT		no scripts exist for this program
	SQL_xxx			error accessing script database table

	This function requires the following include files:

	cnsparam_h, cbslib_h, acnet_errors_h

	Related functions:

	script_available, script_menu, script_select, script_create,
	script_delete, script_lock, script_unlock, script_accept, script_stop,
	script_check, script_status

	C/C++ usage:

	static const char	pa_name[PROCESS_NAME_LEN+1] = "PA0052";
	char	*script_text;
	unsigned short	*sizes;
	unsigned short	**records = (unsigned short **) NULL;
	int	status;
	int	num_scripts;

	status = script_get_dir(&num_scripts,&script_text,records,