Error(163,1): PLS-00103: Encountered the symbol "PROCEDURE"
Error(244,1): PLS-00103: Encountered the symbol "END" when expecting one of the following: begin function pragma procedure
create or replace
PACKAGE BODY xxdev_cu172_kan_card_upd_pkg
AS
PROCEDURE xxdev_cu172_kan_car_proc
IS
p_kan_card_id NUMBER;
CURSOR cr_kan_card
IS
SELECT mkc.KANBAN_CARD_ID,
decode(mkc.attribute1,'JA','M','x') || decode(mkc.attribute2,'JA','T','x') ||
decode(mkc.attribute3,'JA','O','x') || decode(mkc.attribute4,'JA','T','x') ||
decode(mkc.attribute5,'JA','F','x') || decode(mkc.attribute6,'JA','L','x') ||
decode(mkc.attribute7,'JA','S','x') rep_cycle
FROM mtl_kanban_cards mkc,
ORG_ORGANIZATION_DEFINITIONS ood,
mtl_secondary_inventories msi,
mtl_system_items_b msib,
mtl_item_locations mil
WHERE kanban_card_id = p_kan_card_id
AND mkc.organization_id = ood.organization_id
AND ood.organization_code = NVL(p_org,ood.organization_code)
AND mkc.kanban_card_number = NVL(p_card_num,mkc.kanban_card_number)
AND mkc.subinventory_name = NVL(p_subinventory,mkc.subinventory_name)
AND upper(NVL(mil.segment1,'x')) = upper(NVL(p_room,NVL(mil.segment1,'x')))
AND upper(NVL(mil.segment2,'x')) = upper(NVL(p_locker,NVL(mil.segment2,'x')))
AND msi.organization_id = ood.organization_id
AND msib.inventory_item_id = mkc.inventory_item_id
AND mil.inventory_location_id = mkc.locator_id
AND mil.organization_id = mkc.organization_id
AND mkc.supply_status = '9'
AND mkc.card_status = '1'
AND msi.secondary_inventory_name = mkc.subinventory_name
AND NVL(msi.attribute3,'X') = 'JA';
--
p_simulate VARCHAR2;
P_Days VARCHAR2;
E_invalid_parameter EXCEPTION;
--
BEGIN
IF substr(P_Days,1,1) = 'M' OR substr (P_Days ,1,1) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
IF substr(P_Days,1,2) = 'T' OR substr (P_Days ,1,2) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
IF substr(P_Days,1,3) = 'O' OR substr (P_Days ,1,3) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
IF substr(P_Days,1,4) = 'T' OR substr (P_Days ,1,4) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
IF substr(P_Days,1,5) = 'F' OR substr (P_Days ,1,5) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
IF substr(P_Days,1,6) = 'L' OR substr (P_Days ,1,6) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
IF substr(P_Days,1,7) = 'S' OR substr (P_Days ,1,7) = 'x'
THEN
flag := 0 ;
else
flag:= 1;
end if;
EXCEPTION
WHEN E_invalid_parameter THEN
fnd_file.put_line(fnd_file.LOG,'Invalid replenishment cycle');
END;
IF flag = 0 THEN
BEGIN
IF P_simulate = 'JA' THEN
fnd_file.put_line(fnd_file.LOG,'calling output_procedure');
output_prog_proc;
ELSE
FOR rec_cur IN cr_kan_card
LOOP
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE1 = CASE
WHEN (P_Days,1,1) ='M' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id = rec_cur.kanban_card;
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE2 = CASE
WHEN (P_Days,1,2) ='T' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id = rec_cur.kanban_card;
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE3 = CASE
WHEN (P_Days,1,3) ='O' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id = rec_cur.kanban_card;
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE4 = CASE
WHEN (P_Days,1,4) ='T' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id = rec_cur.kanban_card;
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE5 = CASE
WHEN (P_Days,1,5) ='F' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id =rec_cur.kanban_card;
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE6 = CASE
WHEN (P_Days,1,6) ='L' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id = p_kan_card_id;
UPDATE MTL_KANBAN_CARDS
SET ATTRIBUTE7 = CASE
WHEN (P_Days,1,7) ='S' THEN'JA'
ELSE 'NEJ'
END
WHERE kanban_card_id = rec_cur.kanban_card;
COMMIT;
END LOOP;
END IF;
END;
END IF;
output_prog_proc;
END xxdev_cu172_kan_car_proc;
---procedure for output report-----
PROCEDURE output_prog_proc(p_org IN VARCHAR2 DEFAULT NULL,
p_subinventory IN VARCHAR2 DEFAULT NULL,
p_room IN VARCHAR2 DEFAULT NULL,
p_locker IN VARCHAR2 DEFAULT NULL,
p_card_num IN VARCHAR2 DEFAULT NULL,
p_shelf IN VARCHAR2 DEFAULT NULL,
p_position IN VARCHAR2 DEFAULT NULL,
p_item_no IN VARCHAR2 DEFAULT NULL,
p_item_desc IN VARCHAR2 DEFAULT NULL,
p_output IN VARCHAR2 DEFAULT 'EXCEL',
p_simulate IN VARCHAR2,
p_repl_cycle IN VARCHAR2 )
IS
X_user_id NUMBER;
X_resp_id NUMBER;
X_resp_app_id NUMBER;
x_set_layout_option BOOLEAN;
X_request_id NUMBER;
X_conc_id NUMBER := FND_GLOBAL.CONC_REQUEST_ID;
BEGIN
fnd_file.put_line(fnd_file.LOG,'Inside procedure output_prog');
SELECT requested_by,responsibility_id,responsibility_application_id
INTO X_user_id , X_resp_id , X_resp_app_id
FROM fnd_concurrent_requests
WHERE request_id = FND_GLOBAL.CONC_REQUEST_ID;
-- Add the Template Layout --
x_set_layout_option := fnd_request.add_layout(
template_appl_name => 'XXDEV'
, template_code => 'XXDEV_CU172_KBN_CARD_OUTPUT'
, template_language => 'en'
, template_territory => 'US'
, output_format => p_output
);
IF ( x_set_layout_option ) THEN
fnd_file.put_line(fnd_file.LOG,'Template Successfully Applied');
ELSE
fnd_file.put_line(fnd_file.LOG,'Unable to apply Template');
END IF;
X_request_id := apps.fnd_request.submit_request (
'XXDEV'
,'XXDEV_CU172_KBN_CARD_OUTPUT'
,NULL
,NULL
,FALSE
,p_org
,p_subinventory
,p_room
,p_locker
,p_card_num
,p_shelf
,p_position
,p_item_no
,p_item_desc
,p_simulate
,p_repl_cycle);
COMMIT;
EXCEPTION WHEN OTHERS THEN
fnd_file.put_line(fnd_file.LOG,'Error in displaying output'||SQLCODE||'--'||SQLERRM);
END output_prog_proc;
-----------Main Procedure--------
PROCEDURE MAIN(O_errbuf OUT VARCHAR2
,O_retcode OUT VARCHAR2 )
IS
G_conc_req_id fnd_concurrent_requests.request_id%TYPE;
BEGIN
fnd_file.put_line(fnd_file.log,'Program starts');
G_conc_req_id := fnd_profile.VALUE ('CONC_REQUEST_ID');
fnd_file.put_line(fnd_file.log,'calling xxdev_cu172_kan_car_proc ');
xxdev_cu172_kan_car_proc;
END MAIN;
END xxdev_cu172_kan_card_upd_pkg;
this is the package. please help me out in this.