CREATE OR REPLACE TRIGGER ON_INSERT_TRIGGER_500INDEX
AFTER INSERT ON DA_L_PORT_FOR_500INDEX
FOR EACH ROW
BEGIN
POST_CHANGE_ITEM('DA_L_PORT_FOR_500INDEX','PFI_ID',:NEW.PFI_ID);
END;
CREATE OR REPLACE PROCEDURE POST_CHANGE_ITEM(v_table_name in varchar2,v_table_id in varchar2,v_id_value in varchar2 ) IS
req UTL_HTTP.REQ;
resp UTL_HTTP.RESP;
v_message varchar2(10000);
xmlstr varchar2(30000);
v_content varchar2(30000);
begin
begin
v_content := 'tableName='||v_table_name||'&idField='||v_table_id||'&idValue='||v_id_value;
req := UTL_HTTP.BEGIN_REQUEST('http://172.16.164.6:8080/presap/da/dbc.do?'||v_content);
utl_http.set_header(req, 'Content-Type', 'text/html; charset=utf-8');
utl_http.write_text(req,xmlstr);
xmlstr:=v_content;
utl_http.set_header(req, 'Content-Length',lengthb(xmlstr));
utl_http.write_text(req,xmlstr);
resp := UTL_HTTP.GET_RESPONSE(req);
LOOP
UTL_HTTP.read_line(resp,v_message, TRUE);
dbms_output.put_line(v_message);
END LOOP;
utl_http.end_request(req);
utl_http.end_response(resp);
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
WHEN OTHERS THEN
utl_http.end_response(resp);
utl_http.end_request(req);
end;
END POST_CHANGE_ITEM;