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