How can i run Following SQL Server Script in to Oracle 10g

Question

I m new in Oracle...
Create Procedure Insert_profilebasicdetail
@isubprofileid as int,
@Copyisubprofileid as int,
@itranno as int,
As
Begin
Declare @IncKeyId as int
Declare @tempkeyId as int
set @IncKeyId=(select isNull(Max(ikeyId),0)as MaxKeyId from profilebasicdetail)
Declare TempInsert cursor for select ikeyId--,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,iyear
from profilebasicdetail where isubprofileid=@Copyisubprofileid and itranno=@itranno
open TempInsert
fetch from TempInsert into @tempkeyId
while @@fetch_Status=0
Begin
set @IncKeyId = @IncKeyId + 1
Insert into profilebasicdetail
(ikeyid,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,itranno,iyear,isubprofileid)
values(select @IncKeyId,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,'1',
iyear,@isubprofileid from profilebasicdetail where ikeyId=@tempkeyId)
fetch next from TempInsert into @tempkeyId
End
End
Regards,
Ajay

Answer 1

YOu want to migrate your MS sql server procedure to Oracle procedure
Before running procedure please set the values of tempkeyId_v variable
Try this
Create or replace Procedure Insert_profilebasicdetail( isubprofileid_v  number, Copyisubprofileid_v number, itranno_v number )
As
     IncKeyId_v  profilebasicdetail.ikeyid%type;
     tempkeyId_v profilebasicdetail.ikeyid%type;
begin
      select nvl((select Max(ikeyId) as MaxKeyId from profilebasicdetail),0) into IncKeyId_v
      from dual ;
     for i in (select ikeyId--,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,iyear
            from profilebasicdetail
            where isubprofileid=Copyisubprofileid_v and itranno=itranno_v)
     loop
          IncKeyId_v = IncKeyId_v + 1;
          Insert into profilebasicdetail
               (ikeyid,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,itranno,iyear,isubprofileid)
               values(select IncKeyId_v,i.iprofileid,i.iquestionid,i.vquestionans,i.cstatusindi,i.dmodifyon,i.imodifyby,'1',
                    i.iyear,isubprofileid_v from profilebasicdetail where ikeyId=tempkeyId_v);
     end loop
End;
/ Regards
Singh
Create or replace Procedure Insert_profilebasicdetail( isubprofileid_v  number, Copyisubprofileid_v number, itranno_v number )
As
     IncKeyId_v  profilebasicdetail.ikeyid%type;
     tempkeyId_v profilebasicdetail.ikeyid%type;
begin
      select nvl((select Max(ikeyId) as MaxKeyId from profilebasicdetail),0) into IncKeyId_v
      from dual ;
     for i in (select ikeyId--,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,iyear
            from profilebasicdetail
            where isubprofileid=Copyisubprofileid_v and itranno=itranno_v)
     loop
          IncKeyId_v = IncKeyId_v + 1;
          Insert into profilebasicdetail
               (ikeyid,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,itranno,iyear,isubprofileid)
               values(select IncKeyId_v,i.iprofileid,i.iquestionid,i.vquestionans,i.cstatusindi,i.dmodifyon,i.imodifyby,'1',
                    i.iyear,isubprofileid_v from profilebasicdetail where ikeyId=tempkeyId_v);
     end loop
End;
/ Regards
Singh