C
C  **************************
C
C **  DEFINE THE INTERNAL USRDB$ ROUTINE RECORD STRUCTURE.
C
C
	STRUCTURE	/USRDB$INTERNAL/
		UNION
			MAP
				CHARACTER*12	USER_IDENT
				CHARACTER*20	LAST_NAME
				CHARACTER*4	PRIM_WORK
				CHARACTER*40	CITY_NAME
				CHARACTER*3	STATE
				CHARACTER*20	COUNTRY
				CHARACTER*80	INSTITUTION
				CHARACTER*10	ZIP_CODE
				CHARACTER*3	AREA_CODE
				CHARACTER*2	NETWORK_ID
				CHARACTER*830	REMAINING_DATA
			END MAP
			MAP
				CHARACTER*1024	INTERNAL_BUFFER
			END MAP
		END UNION
	END STRUCTURE
C
	RECORD	/USRDB$INTERNAL/	DBINT
C
C  **************************
C
C **  DEFINE THE VARIABLE FOR PASSING THE DB RECORD BETWEEN FUNCTIONS.
C
	CHARACTER	USRDB$REC*1024
C
C  **************************
C