get_chgpgm_script

	get_chgpgm_script(buffer.i1a.r, status.i2.r [,buffer_length.i2.r])

	This routine retrieves a command buffer containing program script
	information which was queued to the task at the time it was
	requested (by a call to the chgpgm(_c) routine).  The command buffer
	is stored in the console common, CNSCOM, until it is retrieved
	retrieved by a call to this routine.  This routine must be called
	during the initialization phase of application execution (intype
	routine returns an interrupt type of INTINI) or this information
	will be lost.

	script		buffer to receive the script command structure
	status		returned status of command buffer retrieval
			(OK -> successful transfer of script,
			 CLIB_GETCMD_NOBUFFER -> no command line buffer queued
						 for this task)
	[buffer_length]	length of command line script to return.  Defaults
			to 80 bytes.  Maximum length is CMD_LIN_SIZ.
			(default is NULL)

	This function requires the following include files:

	cnsparam_h, clib_h, acnet_errors_h

	Related functions:

	chgpgm(_c), acnet_chgpgm, putcmd, getcmd(_c),
	remote_program_get_script, remote_program_check,
	remote_program_get_method, intype, who_started_me

	C/C++ usage:

	short		error;
	short		buffer_length = (short) sizeof(do_script_t);
	do_script_t	SCRIPT;

	get_chgpgm_script(&SCRIPT,&error,&buffer_length);