	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
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
