Code Doesn't Run - Not Sure Why.....

Question

Hello Everyone:
I have an Oracle “program” (I wouldn’t call it a program, but just some code for a one off move of data). I use TORA as the interface for Oracle. I do not have a copy of TOAD. But for some reason, when I run this code, it takes all of 0.003 seconds and doesn’t actually move any data. Below is a copy of the code. If I take the query being used in the cursor, it does return data and takes about 1.5 seconds to execute, but when trying to run this code, it takes 1/10th of that time, so I am doing something wrong but I can’t figure out what.
I also tried to copy this code into SQLPlus, but that also does not run. Can anyone spot what I am doing wrong? I am not sure if it is my environment and how I am trying to run this or the code itself is flawed.
DECLARE
-- Local Variables
l_gm_master_label VARCHAR2(20);
l_active_flag VARCHAR2(1);
l_currdate DATE;
l_comp_id VARCHAR2(2);
l_site_id VARCHAR2(2);
l_gm_master_id NUMBER;
c_serial_number VARCHAR(40);
c_creation_date DATE;
c_interface_date DATE;
c_ebiz_sku_no NUMBER;
c_ebiz_ord_no NUMBER;
-- Cursor
CURSOR serial_number_data IS
SELECT
S.serial_number,
S.creation_date,
S.interface_date,
S.ebiz_sku_no,
O.ebiz_ord_no
FROM
dmlogic.trn_rm_serial_number S
INNER JOIN ebiznet.trn_ordhead O ON S.ord_no = O.ord_no;
BEGIN
DBMS_OUTPUT.ENABLE(2000);
-- Set default values
l_gm_master_label := 'DMLogic001';
l_active_flag := 'N';
l_currdate := SYSDATE;
l_comp_id := 'XE';
l_site_id := 'OHIO';
l_gm_master_id := 0;
-- Get the next value
SELECT
trn_gm_master_seq.NEXTVAL
INTO
l_gm_master_id
FROM
dual;
-- Insert generic Gray Number master record that will be joined to all the DMLogic serial numbers
INSERT INTO trn_gm_master
(gm_master_id,
gm_master_label,
active_flag,
currdate,
comp_id,
site_id)
VALUES
(l_gm_master_id,
l_gm_master_label,
l_active_flag,
l_currdate,
l_comp_id,
l_site_id);
-- Open the cursor
OPEN serial_number_data;
LOOP
-- Fetch the values
FETCH serial_number_data INTO c_serial_number, c_creation_date, c_interface_date, c_ebiz_sku_no, c_ebiz_ord_no;
EXIT WHEN serial_number_data%NOTFOUND;
INSERT INTO ebiznet.trn_gm_serial_number
(gm_serial_number_id,
gm_master_id,
gm_serial_number,
received_by,
received_date,
picked_by,
picked_date,
ebiz_sku_no,
comp_id,
site_id,
ebiz_ord_no,
interface_date)
VALUES
(trn_gm_serial_number_seq.NEXTVAL,
l_gm_master_id,
c_serial_number,
1,
c_creation_date,
1,
c_creation_date,
c_ebiz_sku_no,
l_comp_id,
l_site_id,
c_ebiz_ord_no,
c_interface_date);
EXIT WHEN serial_number_data%NOTFOUND;
END LOOP;
CLOSE serial_number_data;
-- Commit the changes
COMMIT;
-- Rollback if an error has occured
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
DBMS_OUTPUT.PUT_LINE('ERROR HAS OCCURED');
END;

Answer 1

When running it in SQL Plus, remember to put the / at the end of the script;
Also, remember to print out your error in your exception handler;
DECLARE
  -- Local Variables
  l_gm_master_label VARCHAR2(20);
  l_active_flag VARCHAR2(1);
  l_currdate DATE;
  l_comp_id VARCHAR2(2);
  l_site_id VARCHAR2(2);
  l_gm_master_id NUMBER;
  c_serial_number VARCHAR(40);
  c_creation_date DATE;
  c_interface_date DATE;
  c_ebiz_sku_no NUMBER;
  c_ebiz_ord_no NUMBER;
  -- Cursor
  CURSOR serial_number_data IS
    SELECT
      S.serial_number,
      S.creation_date,
      S.interface_date,
      S.ebiz_sku_no,
      O.ebiz_ord_no
    FROM
      dmlogic.trn_rm_serial_number S
    INNER JOIN ebiznet.trn_ordhead O ON S.ord_no = O.ord_no;
BEGIN
  DBMS_OUTPUT.ENABLE(2000);
  -- Set default values
  l_gm_master_label := 'DMLogic001';
  l_active_flag := 'N';
  l_currdate := SYSDATE;
  l_comp_id := 'XE';
  l_site_id := 'OHIO';
  l_gm_master_id := 0;
  -- Get the next value
  SELECT trn_gm_master_seq.NEXTVAL
  INTO   l_gm_master_id
  FROM   dual;
  -- Insert generic Gray Number master record that will be joined to all the DMLogic serial numbers
  INSERT INTO trn_gm_master
            (gm_master_id,
            gm_master_label,
            active_flag,
            currdate,
            comp_id,
            site_id)
            VALUES
            (l_gm_master_id,
            l_gm_master_label,
            l_active_flag,
            l_currdate,
            l_comp_id,
            l_site_id);
  -- Open the cursor
  OPEN serial_number_data;
  LOOP
    -- Fetch the values
    FETCH serial_number_data INTO c_serial_number
                                 ,c_creation_date
                                 ,c_interface_date
                                 ,c_ebiz_sku_no
                                 ,c_ebiz_ord_no;
    EXIT WHEN serial_number_data%NOTFOUND;
    INSERT INTO ebiznet.trn_gm_serial_number
                (gm_serial_number_id,
                gm_master_id,
                gm_serial_number,
                received_by,
                received_date,
                picked_by,
                picked_date,
                ebiz_sku_no,
                comp_id,
                site_id,
                ebiz_ord_no,
                interface_date)
                VALUES
                (trn_gm_serial_number_seq.NEXTVAL,
                l_gm_master_id,
                c_serial_number,
                1,
                c_creation_date,
                1,
                c_creation_date,
                c_ebiz_sku_no,
                l_comp_id,
                l_site_id,
                c_ebiz_ord_no,
                c_interface_date);
    EXIT WHEN serial_number_data%NOTFOUND;
  END LOOP;
  CLOSE serial_number_data;
  -- Commit the changes
  COMMIT;
  -- Rollback if an error has occured
  EXCEPTION
    WHEN OTHERS THEN
    ROLLBACK;
    DBMS_OUTPUT.PUT_LINE('ERROR HAS OCCURED ' || sqlerrm);
END;
/