-
pls 00103: encountered the symbol exception
FUNCTION A(O_error_message IN OUT VARCHAR2
) RETURN NUMBER IS
// all declarations -- no error here
cursor c1;
cursor c2;
cursor c3;
BEGIN
P_SKU :=NULL;
P_STORE :=NULL;
P_CLEARANCE :=NULL;
P_ZONE_GROUP_ID :=NULL;
P_PRICE :=NULL;
--COUNTER :=0;
for c_eff in c1 loop
exit when c1%notfound;
begin
flag_clear_susp_head :=0;
open c_rec(c_eff.effective_date);
loop
fetch c_rec into P_SKU,P_STORE,P_EVENT_NO,P_DEPT,P_ORIGINAL_EFFECTIVE_DATE,P_EFFECTIVE_DATE,P_PRICE,P_TRAN_TYPE,
P_STATUS,P_MANUAL_CHANGE_IND,P_MERCH_IND,P_TICKET_TYPE,P_REASON_MSI,P_SEASONAL_CLEAR_MSI;
exit when c_rec%notfound;
begin
P_Print_worksheet_at_loc_msi := 'Y';
--if O_return_code='TRUE' then
if flag_clear_susp_head=0 then
insert into clear_susp_head (CLEARANCE,
CLEARANCE_DESC,
REASON,
STATUS,
ZONE_GROUP_ID,
ORIG_ZONE_GROUP_ID,
CREATE_DATE,
CREATE_ID,
APPROVAL_DATE,
APPROVAL_ID,
PRINT_WORKSHEET_AT_LOC_MSI,
SEASONAL_CLEAR_MSI)
values
(P_CLEARANCE,
'CODI SKU' ,
3,
'S',
P_ZONE_GROUP_ID,
P_ZONE_GROUP_ID,
sysdate,
user,
sysdate,
user,
P_Print_worksheet_at_loc_msi,
'Y');
flag_clear_susp_head:=1;
--end if;
end if;
for c_szp in c3(P_SKU) loop
exit when c3%notfound;
begin
INSERT INTO CLEAR_SUSP_DETAIL (CLEARANCE,
SKU,
ZONE_GROUP_ID,
ZONE_ID,
MARKDOWN_NBR,
ACTIVE_DATE,
UNIT_RETAIL,
DOWNLOADED_DATE,
STATUS)
VALUES
(P_CLEARANCE,
P_SKU,
P_ZONE_GROUP_ID,
c_szp.zone_id,
1,
P_EFFECTIVE_DATE,
0, -- hard coded unit retail
NULL,
'S');
end loop;
commit;
end loop ;
CLOSE C_REC;
end loop ;
RETURN 0;
EXCEPTION
WHEN OTHERS THEN
O_error_message := SQL_LIB.CREATE_MSG('PACKAGE_ERROR',
SQLERRM,
'A',
to_char(SQLCODE));
O_error_message := O_error_message ||' SKU ' || P_SKU || ' STORE ' || P_STORE ;
ROLLBACK;
RETURN -1;
END A;
I m getting the following error
Error(865,1): PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following: begin case declare end exit for goto if loop mod null pragma raise return select update while with << close current delete fetch lock insert open rollback savepoint set sql execute commit forall merge pipe
Cant understand why..
Any suggestions would be of great help.
-
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|