module PROCESS
	import	string_descriptor_type from DESCR
	import	getjpi_interface, item_list_type from GETJPI

	declare
	    efn	: 16 bit integer initially 0
	    item_list	: item_list_type initially 
			item_list_type (list_length.....