TRYING TO PRINT THE OUTPUT ON SCREEN.

Question

Hi,
I am trying to print the out put to the screen. what am i doing wrong.
CREATE OR REPLACE PROCEDURE "WRITESHIPPING"
is
p_Shipid VARCHAR2(40);
p_OrderID VARCHAR2(10);
p_ShippingMethodId NUMBER(10);
p_ShippingMethodName VARCHAR2(50);
p_ShippingAmount NUMBER(19,6);
p_GiftBoxMessage VARCHAR2(40);
CURSOR c_SHIP IS
SELECT SHIPPING_INFO.SHIPPING_INFO_ID, PRODUCT_ORDER.ORDER_ID,
SHIPPING_METHOD.SHIPPING_METHOD_ID, SHIPPING_METHOD.SHIPPING_METHOD_NAME,
SHIPPING_RATE.CHARGE, SHIPPING_INFO.SEND_AS_GIFT_FLAG
FROM FXWEB01.SHIPPING_INFO@STG, FXWEB01.PRODUCT_ORDER@STG , FXWEB01.SHIPPING_METHOD@STG ,
FXWEB01.SHIPPING_RATE@STG
WHERE ((PRODUCT_ORDER.ORDER_ID = SHIPPING_INFO.ORDER_ID) AND
(SHIPPING_METHOD.SHIPPING_METHOD_ID = SHIPPING_INFO.SHIPPING_METHOD_ID) AND
(SHIPPING_METHOD.SHIPPING_METHOD_ID = SHIPPING_RATE.SHIPPING_METHOD_ID));
BEGIN
FOR C_SHIP_REC IN C_SHIP loop
BEGIN
DBMS_OUTPUT.PUT_LINE ();
END LOOP;
END;
END;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('no_data_found');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('***ERROR: OTHER ERROR DURING WRITING TO THE TABLE ');
END WRITESHIPPING;
null

Answer 1

<BLOCKQUOTE><font size="1" face="Verdana, Arial">quote:</font><HR>Originally posted by Mnemon R ([email protected]):
I believe you have to define implicitly what you want to display on the screen. Something like this procedure:
CREATE OR REPLACE PROCEDURE "WRITESHIPPING"
is
p_Shipid VARCHAR2(40);
p_OrderID VARCHAR2(10);
p_ShippingMethodId NUMBER(10);
p_ShippingMethodName VARCHAR2(50);
p_ShippingAmount NUMBER(19,6);
p_GiftBoxMessage VARCHAR2(40);
CURSOR c_SHIP IS
SELECT SHIPPING_INFO.SHIPPING_INFO_ID, PRODUCT_ORDER.ORDER_ID,
SHIPPING_METHOD.SHIPPING_METHOD_ID, SHIPPING_METHOD.SHIPPING_METHOD_NAME,
SHIPPING_RATE.CHARGE, SHIPPING_INFO.SEND_AS_GIFT_FLAG
FROM FXWEB01.SHIPPING_INFO@STG, FXWEB01.PRODUCT_ORDER@STG ,
FXWEB01.SHIPPING_METHOD@STG ,
FXWEB01.SHIPPING_RATE@STG
WHERE ((PRODUCT_ORDER.ORDER_ID = SHIPPING_INFO.ORDER_ID) AND
(SHIPPING_METHOD.SHIPPING_METHOD_ID = SHIPPING_INFO.SHIPPING_METHOD_ID) AND
(SHIPPING_METHOD.SHIPPING_METHOD_ID = SHIPPING_RATE.SHIPPING_METHOD_ID));
BEGIN
FOR C_SHIP_REC IN C_SHIP loop
BEGIN
DBMS_OUTPUT.PUT_LINE (c_ship_rec.SHIPPING_INFO_ID&#0124; &#0124;','&#0124; &#0124;c_ship_rec.PRODUCT_ORDER.ORDER_ID&#0124; &#0124;','&#0124; &#0124;c_ship_rec.SHIPPING_METHOD_ID&#0124; &#0124;','&#0124; &#0124;c_ship_rec.SHIPPING_METHOD_NAME&#0124; &#0124;','&#0124; &#0124;c_ship_rec.CHARGE&#0124; &#0124;','&#0124; &#0124;c_ship_ rec.SEND_AS_GIFT_FLAG);
END LOOP;
END;
END;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('no_data_found');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('***ERROR: OTHER ERROR DURING WRITING TO THE TABLE ');
END WRITESHIPPING;<HR></BLOCKQUOTE>
null