How to declare procedure without using IN OUT parameter?

Question

Hi:
I want to declare procedure without using IN OUT parameter.
My Script is:
DECLARE
procedure pro_bank_master() As
Declare
kr_bankid integer;
last_bank_id number(10,0);
CURSOR comp_cur IS select bank_id,date_created,created_by,modified_by,name_en from COM_BANK_MASTER ;
comp_rec comp_cur%ROWTYPE;
BEGIN
OPEN comp_cur;
FETCH comp_cur INTO comp_rec;
WHILE comp_cur%FOUND
LOOP
kr_bankid:= comp_rec.bank_id;
insert into crayom_db.C_Bank(ad_client_id, ad_org_id, isactive, created, createdby, updated, updatedby, name, routingno, c_location_id, swiftcode, isownbank, description) values(11,11,'Y',sysdate,100,sysdate,11,comp_rec.name_en,'A',1000009,'A','Y','A');
select crayom_db.C_Bank.c_bank_id into last_bank_id from crayom_db.C_Bank where rownum=1 ORDER BY crayom_db.c_bank.c_bank_id DESC;
insert into crayom_db.CR_IdBackup values(kr_bankid, last_bank_id);
FETCH comp_cur INTO comp_rec;
End LOOP;
close comp_cur;
END;
BEGIN
pro_bank_master();
END;
The Error i am receiving is:
Error starting at line 1 in command:
DECLARE
procedure pro_bank_master() As
Declare
kr_bankid integer;
last_bank_id number(10,0);
CURSOR comp_cur IS select bank_id,date_created,created_by,modified_by,name_en from COM_BANK_MASTER ;
comp_rec comp_cur%ROWTYPE;
BEGIN
OPEN comp_cur;
FETCH comp_cur INTO comp_rec;
WHILE comp_cur%FOUND
LOOP
kr_bankid:= comp_rec.bank_id;
insert into crayom_db.C_Bank(ad_client_id, ad_org_id, isactive, created, createdby, updated, updatedby, name, routingno, c_location_id, swiftcode, isownbank, description) values(11,11,'Y',sysdate,100,sysdate,11,comp_rec.name_en,'A',1000009,'A','Y','A');
select crayom_db.C_Bank.c_bank_id into last_bank_id from crayom_db.C_Bank where rownum=1 ORDER BY crayom_db.c_bank.c_bank_id DESC;
insert into crayom_db.CR_IdBackup values(kr_bankid, last_bank_id);
FETCH comp_cur INTO comp_rec;
End LOOP;
close comp_cur;
END;
BEGIN
pro_bank_master();
END;
Error report:
ORA-06550: line 8, column 27:
PLS-00103: Encountered the symbol ")" when expecting one of the following:
<an identifier> <a double-quoted delimited-identifier>
current
06550. 00000 - "line %s, column %s:\n%s"
*Cause:    Usually a PL/SQL compilation error.
*Action:
Can any Body Help Me?
Thank You

Answer 1

DECLARE
procedure pro_bank_master As --also you should remove brackets when you are not using any parameters
----Declare-- *( declare should not be present in procedure declaration )*
kr_bankid integer;
last_bank_id number(10,0);
CURSOR comp_cur IS select bank_id,date_created,created_by,modified_by,name_en from COM_BANK_MASTER ;
comp_rec comp_cur%ROWTYPE;
BEGIN
OPEN comp_cur;
FETCH comp_cur INTO comp_rec;
WHILE comp_cur%FOUND
LOOP
kr_bankid:= comp_rec.bank_id;
insert into crayom_db.C_Bank(ad_client_id, ad_org_id, isactive, created, createdby, updated, updatedby, name, routingno, c_location_id, swiftcode, isownbank, description) values(11,11,'Y',sysdate,100,sysdate,11,comp_rec.name_en,'A',1000009,'A','Y','A');
select crayom_db.C_Bank.c_bank_id into last_bank_id from crayom_db.C_Bank where rownum=1 ORDER BY crayom_db.c_bank.c_bank_id DESC;
insert into crayom_db.CR_IdBackup values(kr_bankid, last_bank_id);
FETCH comp_cur INTO comp_rec;
End LOOP;
close comp_cur;
END;
BEGIN
pro_bank_master();
END;
Edited by: user11183973 on Sep 22, 2009 5:49 PM