remote_program_get_script

	status.i4.v = remote_program_get_script(message.g.v, script_data.s.r
						[,script_file.i1a.r])

	This routine returns the script play information for a remote
	script request.

	message		message to check (If a value of NULL is passed for
			this argument, the chgpgm(_c) command buffer is used.
			This option must be exercised for the first time
			during the handling of the program initialization
			event or this information will be lost.)
	script_data	returned script play information
			(structure of type do_script_t)
	[script_file]	returned null terminated name of file containing
			a list of scripts to be executed
			(If a null string is returned, only a single script
			 has been requested.)
			(default is NULL)

	This function returns ACNET status values as follows:

	OK			remote program script request found
	CLIB_NO_SUCH		no remote program script request present
	CLIB_MEMFAIL		failed in allocating dynamic memory

	This function requires the following include files:

	cnsparam_h, cns_data_structs_h, clib_h, acnet_errors_h

	Related functions:

	remote_program_check, remote_program_get_data,
	remote_program_caller_data, remote_program_get_method,
	run_remote_program_c, remote_program_generate_output,
	chgpgm(_c), acnet_chgpgm, getcmd(_c), putcmd

	C/C++ usage:

	char		script_file[SCRIPT_LIST_FILE_LEN+1];
	int		status;
	void		*message = (void *) NULL;
	do_script_t	script_data;

	status = remote_program_get_script(message,&script_data,script_file);