Procedure error.

Question

Hello,
I tried to create a procedure without any errors, but while executing I get error.
======================================================
create or replace procedure pod_connect
as
v_date date;
v_hldg_cusip fund_holding_d.hldg_instrument_id%TYPE;
v_hldg_ticker instruments.ticker%TYPE;
v_hldg_sedol instruments.sedol%TYPE;
v_hldg_type funds.fund_typ_cd%TYPE;
v_d_date date;
cursor c1 is select hldg_cusip from temp_raw_fund_holdings;
begin
select date_value
into v_date from ude_cycle_data_dates where date_type_code = 'CYCLE';
insert into temp_raw_fund_holdings
( fund_id, fund_name, fund_dt, fund_cusip, hldg_cusip, hldg_shares, hldg_price, hldg_mv, hldg_pct, user_id, load_dt, change_dt, gnrd_src_id, snap_dt)
select f.instrument_id,
null,
'13-apr-2006',
i.cusip,
f.hldg_instrument_id,
f.hldg_shares,
f.hldg_prc,
f.hldg_mkt_val,
f.hldg_pct,
f.last_mod_id,
f.d_date,
f.d_date,
11, -- it is numeric value and not null.
f.d_date
from fund_holding_d f,
(select * from instruments where ticker in ('FSCFX', 'FINFX') ) i
where (f.instrument_id = i.instrument_id )
and f.d_date = v_date;
FOR c1_rec IN c1
LOOP
select ticker, sedol into v_hldg_ticker, v_hldg_sedol from instruments
where instrument_id = c1_rec.hldg_cusip;
update temp_raw_fund_holdings
set hldg_ticker = v_hldg_ticker,
hldg_sedol = v_hldg_sedol where hldg_cusip = c1_rec.hldg_cusip;
END LOOP;
end;
Procedure created.
SQL> exec procedure pod_connect;
BEGIN procedure pod_connect; END;
ERROR at line 1:
ORA-06550: line 1, column 7:
PLS-00103: Encountered the symbol "PROCEDURE" when expecting one of the
following:
begin case declare exit for goto if loop mod null pragma
raise return select update while with <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge
<a single-quoted SQL string> pipe
<an alternatively-quoted SQL string>
=========================
Any help would be greatly appreciated.

Answer 1

Please format your code next time for better readability using standard UBB notation: [pre] and [/pre].
Execute your procedure in SQL*Plus:
exec pod_connect;