declare
	my_object ORA_JAVA.jOBJECT;
	c varchar2(100);
	ex ora_java.jobject;
	
begin
	my_object:=EmbeddedTasksModuleServiceStub.new;
	c:='CLOSED';
	message('calling WS');
	message('calling WS');
	EmbeddedTasksModuleServiceStub.completeTask(my_object,:tasklist.ssn,:control.text_item6,:control.text_item7,c);
	
	
		message('called WS');
		message('called WS');
		exception 			
WHEN ORA_JAVA.EXCEPTION_THROWN then 
ex := ORA_JAVA.LAST_EXCEPTION;
message(Exception_.toString(ex));message(Exception_.toString(ex));
	end;

PROCEDURE completeTask(
    obj   ORA_JAVA.JOBJECT,
    a0    VARCHAR2,
    a1    VARCHAR2,
    a2    VARCHAR2,
    a3    VARCHAR2) IS
  BEGIN
    args := JNI.CREATE_ARG_LIST(4);
    JNI.ADD_STRING_ARG(args, a0);
    JNI.ADD_STRING_ARG(args, a1);
    JNI.ADD_STRING_ARG(args, a2);
    JNI.ADD_STRING_ARG(args, a3);
    JNI.CALL_VOID_METHOD(FALSE, obj, 'com/bankForms/EmbeddedTasksModuleServiceStub', 'completeTask', '(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;)V', args); 
  END;