DECLARE
	jo ora_java.jobject;
	ex ora_java.jobject;

BEGIN
	JO := GetGRNDetailsPortClient.new;
		:BLOCK1.VENDOR_NAME := GetGRNDetailsPortClient.getDetails(JO,:BLOCK1.VENDOR_CODE);
--	message(GetGRNDetailsPortClient.getDetails(JO,'A6547'));
EXCEPTION
WHEN ORA_JAVA.JAVA_ERROR then 
message('Unable to call out to Java, ' ||ORA_JAVA.LAST_ERROR,ACKNOWLEDGE);
WHEN ORA_JAVA.EXCEPTION_THROWN then 
ex := ORA_JAVA.LAST_EXCEPTION;
message('Error : '||Exception_.toString(ex),ACKNOWLEDGE);
WHEN OTHERS THEN
MESSAGE('Other error',ACKNOWLEDGE);
END;