c
	Integer*4	Remaining_File_Quota,	File_Quota
	Integer*4	Login_Time( 2 ),	Process_Id
	Integer*4	Current_Priority,	Base_Priority
	Integer*4	Process_State,		Process_Status
	Integer*4	Cpu_Time,		Page_Count
	Integer*4	Page_Faults,		Gbl_Page_Count 
	Integer*4	Process_Index,		BufIO_Count
	Integer*4	DirIO_Count,		Volume_Count
	Integer*4	Image_Count,		Process_Mode
	Integer*4	Process_Group
c
	Integer*4	Mode_Count( 0: 4 )
c
	Common /JpiVal/	Remaining_File_Quota,	File_Quota,
	1		Login_Time,		Process_Id,
	1		Current_Priority,	Base_Priority,
	1		Process_State,		Process_Status,
	1		Cpu_Time,		Page_Count,
	1		Page_Faults,		Gbl_Page_Count,
	1		Process_Index,		BufIO_Count,
	1		DirIO_Count,		Volume_Count,
	1		Image_Count,		Process_Mode,
	1		Process_Group,		Mode_Count
c
