1 GET_QUEUE_NAME

    INTEGER*4 FUNCTION GET_QUEUE_NAME ( queue_name )

    RETURNS :

	    JBC$* status values; see the $JBCMSGDEF module in
	    SYS$LIBRARY:FORSYSDEF.TLB for definitions.

    PARAMETERS :

	    queue_name : CHARACTER*(*), should be at least 31 characters long.
			 OUTPUT The execution queue name for the current  job.

    METHOD: 
	    Uses SYS$GETQUI search bit QUI$M_SEARCH_THIS_JOB  and the function
	    function bit QUI$_DISPLAY_QUEUE to obtain the queue name  for  the
	    execution queue of the current job.   A failure status is returned
	    returned if the job is not executing from a queue.

	    See source code comments for more details.
