SUBROUTINE GET_PROCNAME (PROCESS_NAME)
	CHARACTER*(*) PROCESS_NAME
C***************************************************************************
C***
C***	THIS ROOUTINE WILL RETURN THE NAME OF THE CALLING PROCESS.
C***
C***	PARAMETER :
C***
C***		PROCESS_NAME	(C*?)	RETURNED CALLING PROCESS NAM
C***
C******************************************************************{[^=~6[A*********
C*MCT
	INCLUDE '($JPIDEF)'
	CHARACTER*16 PNAME
	INTEGER*4 SYS$GETJPIW
	INTEGER*4 ITMLST (3)
	INTEGER*2 ITLST (2)
	EQUIVALENCE (ITMLST,ITLST)
C
	ITLST(1) = 16		! PROCESS NAME BUFFER IS 16 BYTES
	ITLST(2) = JPI$_PRCNAM
	ITMLST (2) = %LOC (PNAME)
	ITMLST (3) = %LOC (SIZE)
C
	ISTAT = SYS$GETJPIW (,,,ITMLST,,,)
	IF (.NOT. ISTAT) CALL SYS_SIGNAL (ISTAT)
C
	PROCESS_NAME = PNAME
C
	RETURN
	END