Mirgation 3.0 EA problem missing or to much out SYS_REFCURSOR

Question

Hi,
first thanks for the great work you did with the new version. I specially like the commandline migration!
I tested the new migration functionality and every think what i used to migrate so far worked well.
Because I migrate TSQL stuff quite frequent, I found a new issue which didn't show up so far:
1. no out cursor at all
TSQL:
CREATE PROCEDURE GetInfo
     @FromDate datetime,
     @ToDate datetime,
     @State int,
     @Kind int
AS
     DECLARE @strSQL varchar(8000)
     DECLARE @strSelClause varchar(8000)
     SET @strSelClause = 'SELECT * '
     SET @strSQL = @strSelClause +
               'FROM INFO WHERE DistributionDate >= ''' + @FromDate + ''' AND DistributionDate <= ''' + @ToDate+ ''''
               IF @State IS NOT NULL set @strSQL = @strSQL + ' AND State = ' + @State
               IF @Kind IS NOT NULL set @strSQL = @strSQL + ' AND Kind = ' + @Kind
               EXEC (@strSQL)
Migration ORACLE:
CREATE OR REPLACE PROCEDURE GetInfo
v_FromDate IN DATE DEFAULT NULL ,
v_ToDate IN DATE DEFAULT NULL ,
v_State IN NUMBER DEFAULT NULL ,
v_Kind IN NUMBER DEFAULT NULL
AS
v_strSQL VARCHAR2(4000);
v_strSelClause VARCHAR2(4000);
BEGIN
v_strSelClause := 'SELECT * ' ;
v_strSQL := v_strSelClause || 'FROM INFO WHERE DistributionDate >= ''' || v_FromDate || ''' AND DistributionDate <= ''' || v_ToDate || '''' ;
IF v_State IS NOT NULL THEN
v_strSQL := v_strSQL || ' AND State = ' || v_State ;
END IF;
IF v_Kind IS NOT NULL THEN
v_strSQL := v_strSQL || ' AND Kind = ' || v_Kind ;
END IF;
EXECUTE IMMEDIATE v_strSQL;
END;
instead of EXECUTE IMMEDIATE I expect OPEN cv_1 FOR v_strSQL
2. Problem to many cursors
CREATE PROCEDURE PfmGetPrintformsR
          @QueryMode int
AS
-- Use @SelectBody in Custom Section queries like:
-- EXEC (@SelectBody + ' WHERE xxx = ' + @xxx)
DECLARE @SelectBody VARCHAR(182)
SET @SelectBody =
'SELECT
TAB.ID
FROM PFM_Printform TAB'
IF @QueryMode = 0
SELECT
     [ID]
FROM
     [PFM_Printform]
ELSE
IF @QueryMode = 5 AND @CustomQueryType = 1
EXECUTE (@SelectBody + ' WHERE xxx = ')
ELSE
IF @QueryMode = 2
SELECT
     TAB.[ID]
FROM
     [PFM_Printform] TAB, [ABB_AssociationDirectory] AD
WHERE
     AD.AssociationClass = @AssociationClass
translates to
CREATE OR REPLACE PROCEDURE PfmGetPrintformsR
v_QueryMode IN NUMBER DEFAULT NULL ,
cv_1 IN OUT SYS_REFCURSOR,
cv_2 IN OUT SYS_REFCURSOR
AS
-- Use @SelectBody in Custom Section queries like:
-- EXEC (@SelectBody + ' WHERE xxx = ' + @xxx)
v_SelectBody VARCHAR2(182);
BEGIN
v_SelectBody := 'SELECT
TAB.ID
FROM PFM_Printform TAB' ;
IF v_QueryMode = 0 THEN
OPEN cv_1 FOR
SELECT ID
FROM PFM_Printform ;
ELSE
IF v_QueryMode = 5
AND v_CustomQueryType = 1 THEN
OPEN cv_2 FOR
v_SelectBody || ' WHERE xxx = ';
ELSE
IF v_QueryMode = 2 THEN
OPEN cv_1 FOR
SELECT TAB.ID
FROM PFM_Printform TAB,
ABB_AssociationDirectory AD
WHERE AD.AssociationClass = v_AssociationClass;
END IF;
END IF;
END IF;
END;
I expect that cv_1 is also used for the "string Query" what actually is done when the last else if is removed.
Can these problems be fixed? I will be confronted with these kinds of translation problems in future more frequent.
Thanks for your help
Dominik

Answer 1

Hi,
to who reads my post.
Do you have an idea how to solve the problem or trick the migration so it creates in case 1 an "open cv_1 for v_strSql".
Or why does the migration decide to open second cursor in case 2 while in case 1 it decides not open a cursor at all even it's almost the syntax.
Thanks for your help
Dominik