Hi Mr just I would like to be sure about my procedure out put t!! I write the following procedure
phtml (p_airpcode in varchar2, File_Metar OUT CLOB)
AS
req UTL_HTTP.REQ;
resp UTL_HTTP.RESP;
i integer ;
BEGIN
DBMS_OUTPUT.ENABLE(3000000);
req := UTL_HTTP.BEGIN_REQUEST ('http://....................................................................');
UTL_HTTP.SET_HEADER(req, 'User-Agent', 'IE8');
resp := UTL_HTTP.GET_RESPONSE(req);
USING_CLOB.LOB_INS(1,'Metar_taf', '/' );
LOOP
UTL_HTTP.READ_LINE(resp, File_Metar , TRUE);
p2_putlines(File_Metar );
USING_CLOB.ADD_MORE (1, File_Metar );
USING_CLOB.LOB_INS(1,'Metar_taf', File_Metar );
END LOOP;
UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
WHEN UTL_HTTP.END_OF_BODY THEN
UTL_HTTP.END_RESPONSE(resp);
END;
after the execution l have got the procedure out put :
DOC_ID NAME DOC
----------------------------------------------------------------------------------
1 Metar_taf [/TD] [/TR]
1 Metar_taf [/TR] [TR]
1 Metar_taf [TR] [TD]
1 Metar_taf [TD]OLBA 140800Z V
1 Metar_taf OLBA 140800Z VRB03KT 8000 FEW200 20/13 Q1014
phtml (p_airpcode in varchar2, File_Metar OUT CLOB)
AS
req UTL_HTTP.REQ;
resp UTL_HTTP.RESP;
i integer ;
BEGIN
DBMS_OUTPUT.ENABLE(3000000);
req := UTL_HTTP.BEGIN_REQUEST ('http://....................................................................');
UTL_HTTP.SET_HEADER(req, 'User-Agent', 'IE8');
resp := UTL_HTTP.GET_RESPONSE(req);
USING_CLOB.LOB_INS(1,'Metar_taf', '/' );
LOOP
UTL_HTTP.READ_LINE(resp, File_Metar , TRUE);
p2_putlines(File_Metar );
USING_CLOB.ADD_MORE (1, File_Metar );
USING_CLOB.LOB_INS(1,'Metar_taf', File_Metar );
END LOOP;
UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
WHEN UTL_HTTP.END_OF_BODY THEN
UTL_HTTP.END_RESPONSE(resp);
END;
after the execution l have got the procedure out put :
DOC_ID NAME DOC
----------------------------------------------------------------------------------
1 Metar_taf [/TD] [/TR]
1 Metar_taf [/TR] [TR]
1 Metar_taf [TR] [TD]
1 Metar_taf [TD]OLBA 140800Z V
1 Metar_taf OLBA 140800Z VRB03KT 8000 FEW200 20/13 Q1014