IDENTIFICATION DIVISION.
PROGRAM-ID.    UTL560.
AUTHOR.        R. POYNTER.
INSTALLATION.  FLEETWOOD ENTERPRISES, INC.
DATE-WRITTEN.  12-MAR-84.

***********************************************************************
*
* PROGRAM FUNCTIONS:  This subprogram returns to the calling program
*		      the username of the current process, and a 
*		      completion status.
*
* PROGRAM OPTIONS:    None.
*
* PROGRAM MODIFICATIONS:
*
*	AUTHOR   X. XXX
*	DATE     99-XXX-99
*	VERSION  9-X
*
*	PROGRAM CHANGES:
*
***********************************************************************

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.  VAX-11.
OBJECT-COMPUTER.  VAX-11.
DATA DIVISION.
WORKING-STORAGE SECTION.

01	WS-PROGRAM-ID				PIC X(09) VALUE "UTL560-1A".

01	USERNAME				PIC X(12) VALUE SPACES.

01	USERNAME-LENGTH				PIC S9(4) COMP.

01	RESULT					PIC S9(9) COMP.

01	SS-NORMAL				PIC S9(9) COMP
	VALUE EXTERNAL SS$_NORMAL.

01	ITEM-LIST.
	05 ITEM-USERNAME.
		10				PIC S9(4) COMP VALUE 12.
		10				PIC S9(4) COMP
		VALUE EXTERNAL JPI$_USERNAME.
		10 POINTER VALUE REFERENCE USERNAME.
		10 POINTER VALUE REFERENCE USERNAME-LENGTH.
	05  ITEM-TERMINATOR			PIC S9(9) COMP VALUE 0.

LINKAGE SECTION.

01	RETURN-USERNAME				PIC X(12).

01	RETURN-RESULT				PIC S9(9) COMP.

PROCEDURE DIVISION USING RETURN-USERNAME, RETURN-RESULT.

*******************************************************************************
INITIALIZATION SECTION.
*******************************************************************************

000-INITIALIZE.
	MOVE SS-NORMAL TO RESULT.
	MOVE SPACES TO USERNAME.

******************************************************************************
MAIN SECTION.
******************************************************************************

100-MAIN.
	CALL "SYS$GETJPI" USING BY VALUE 0 0 0
				BY REFERENCE ITEM-LIST
				BY VALUE 0 0 0
			  GIVING RESULT.
	MOVE USERNAME TO RETURN-USERNAME.
	EXIT PROGRAM.