Test Script for GET_QUEUE_NAME.FOR :

1)  Compile the two routines GET_QUEUE_NAME and TEST_GET_QUEUE_NAME:

	$ FOR TEST_GET_QUEUE_NAME,GET_QUEUE_NAME

2)  Link the object modules:

	$ LINK TEST_GET_QUEUE_NAME,GET_QUEUE_NAME

3)  Make sure the SUBMIT_GET_QUEUE_NAME.COM is in an available
    directory.

4)  Submit the command file with a parameter value for the executable
    file:

	$ SUBMIT/LOG=<local_dir>TEST.LOG/NOPRINT-
	_$ /QUEUE=<queue_name>/PARAMETERS=<local_dir>TEST_GET_QUEUE_NAME -
	_$ SUBMIT_GET_QUEUE_NAME

5)  Once the job is complete, look at the log file.  It should contain
    either a status error message or a queue name.  The queue name should
    be the same as <queue_name>, unless <queue_name> is a generic queue, in
    which case the printed queue name will be the execution queue that the
    job ran on.  A sample portion of a log file follows:

	$   RUN KMS$ISGUSR1:[HAYS.QUEUE.GET_QUEUE]TEST_GET_QUEUE_NAME
	Queue name is QUASAR_BATCH
	$ Xit: