Bug? SQL server 7 - Oracle 8i stored procedures

Question

I'm having a problem converting some SQL 7 stored procedures to Oracle using MW. The cursor definition appears to be garbage in some cases. See example as follows:
*********** SQL 7 stored procedure *********
CREATE PROCEDURE CLCClaim
/* Procedure: CLCClaim */
/* Description: Cascading delete to child tables */
/* Table: CLClaim */
/* Generated: 4/23/01 2:31:21 PM */
@AuditUserId int,
@AuditLctn varchar(20),
@ClaimId int
AS
DECLARE
@Trncnt int,
@ErrorNumber int,
@Id int,
@Rows int,
@ClsnId int
SELECT @ErrorNumber = -1
/* Save transaction count value */
SELECT @Trncnt = @@TRANCOUNT
/* Issue begin transaction if not already in a transaction */
If @Trncnt = 0
BEGIN TRANSACTION T1
/* Build a cursor for finding child CLClaimAtchm rows */
DECLARE CLClaimAtchmCursor Cursor For
SELECT ClaimAtchmId, ClsnId
FROM dbo.CLClaimAtchm
WHERE ClaimId = @ClaimId
/* Open the cursor */
OPEN CLClaimAtchmCursor
SELECT @ErrorNumber = @@ERROR
If @ErrorNumber <> 0 GoTo ErrorHandler
FETCH Next
FROM CLClaimAtchmCursor
INTO @Id, @ClsnId
... more follows, but this is the gist of it
**** Oracle Procedure created by MW
CREATE OR REPLACE PROCEDURE CLCClaim(
AuditUserId NUMBER ,
AuditLctn VARCHAR2 ,
ClaimId NUMBER )
AS
StoO_selcnt INTEGER;
StoO_error INTEGER;
StoO_rowcnt INTEGER;
StoO_crowcnt INTEGER := 0;
StoO_fetchstatus INTEGER := 0;
StoO_errmsg VARCHAR2(255);
StoO_sqlstatus INTEGER;
Trncnt NUMBER(10,0);
ErrorNumber NUMBER(10,0);
Id NUMBER(10,0);
Rows_ NUMBER(10,0);
ClsnId NUMBER(10,0);
CURSOR CLClaimAtchmCursor IS SELECT omwb_emulation.globalPkg.trancount
FROM CLClaimAtchm
WHERE ClaimId = CLCClaim.ClaimId;
CURSOR CLClaimDiagCursor IS SELECT StoO_error
FROM CLClaimDiag
WHERE ClaimId = CLCClaim.ClaimId;
CURSOR CLClaimAdjdCursor IS SELECT StoO_error
FROM CLClaimAdjd
WHERE ClaimId = CLCClaim.ClaimId;
CURSOR CLSvcLineCursor IS SELECT StoO_error
FROM CLSvcLine
WHERE ClaimId = CLCClaim.ClaimId;
/* Procedure: CLCClaim */
/* Description: Cascading delete to child tables */
/* Table: CLClaim */
/* Generated: 4/23/01 2:31:21 PM */
/* Save transaction count value */
BEGIN
CLCClaim.ErrorNumber := -1;
/* Issue begin transaction if not already in a transaction */
CLCClaim.Trncnt := omwb_emulation.globalPkg.trancount;
IF CLCClaim.Trncnt = 0 THEN
/* Build a cursor for finding child CLClaimAtchm rows */
/* Emulating @@TRANCOUNT functionality in Oracle model */
omwb_emulation.globalPkg.trancount:=omwb_emulation.globalPkg.trancount+1;
SAVEPOINT T1;
END IF;
NULL;/*DECLARE CURSOR CLClaimAtchmCursor */
/* Open the cursor */
BEGIN
StoO_error := 0;
StoO_rowcnt := 0;
StoO_crowcnt := 0;
OPEN CLClaimAtchmCursor;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
WHEN OTHERS THEN
StoO_error := SQLCODE;
StoO_errmsg := SQLERRM;
END;
CLCClaim.ErrorNumber := StoO_error;
IF CLCClaim.ErrorNumber <> 0 THEN
GOTO ErrorHandler;
END IF;
BEGIN
StoO_error := 0;
StoO_rowcnt := 0;
StoO_crowcnt := 0;
FETCH CLClaimAtchmCursor INTO CLCClaim.Id, CLCClaim.ClsnId;
EXCEPTION
WHEN OTHERS THEN
StoO_rowcnt := 0;
StoO_selcnt := 0;
StoO_error := SQLCODE;
StoO_errmsg := SQLERRM;
END;
...more follows, but the error is in the SELECT clause of the CURSOR declaration
I'm having to manually fix the CURSOR declarations for these converted procedures.
Is there a fix or workaround to prevent me from growing my collection of gray hairs?
Thanks,
Billy Smith

Answer 1

William,
I did a quick check on our latest code and got the following output:
CREATE OR REPLACE PROCEDURE CLCClaim(
AuditUserId INTEGER DEFAULT NULL,
AuditLctn VARCHAR2 DEFAULT NULL,
ClaimId INTEGER DEFAULT NULL)
AS
StoO_selcnt INTEGER;
StoO_error INTEGER;
StoO_rowcnt INTEGER;
StoO_crowcnt INTEGER := 0;
StoO_fetchstatus INTEGER := 0;
StoO_errmsg VARCHAR2(255);
StoO_sqlstatus INTEGER;
Trncnt INTEGER;
ErrorNumber INTEGER;
Id INTEGER;
Rows INTEGER;
ClsnId INTEGER;
CURSOR CLClaimAtchmCursor IS
SELECT ClaimAtchmId, ClsnId
FROM /*standalone*/sa.CLClaimAtchm
WHERE ClaimId = CLCClaim.ClaimId;
/* Procedure: CLCClaim */
/* Description: Cascading delete to child tables */
/* Table: CLClaim */
/* Generated: 4/23/01 2:31:21 PM */
/* Save transaction count value */
BEGIN
CLCClaim.ErrorNumber := -1;
/*[SPCONV-ERR(26)]:('@TRANCOUNT') Global Variable treated as variable*/
/* Issue begin transaction if not already in a transaction */
CLCClaim.Trncnt := CLCClaim.TRANCOUNT;
IF CLCClaim.Trncnt = 0 THEN
/* Build a cursor for finding child CLClaimAtchm rows */
SAVEPOINT T1;
END IF;
NULL;/*DECLARE CURSOR CLClaimAtchmCursor */
/* Open the cursor */
BEGIN
StoO_error := 0;
StoO_rowcnt := 0;
StoO_crowcnt := 0;
OPEN CLClaimAtchmCursor;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
WHEN OTHERS THEN
StoO_error := SQLCODE;
StoO_errmsg := SQLERRM;
END;
CLCClaim.ErrorNumber := StoO_error;
IF CLCClaim.ErrorNumber <> 0 THEN
GOTO ErrorHandler;
END IF;
BEGIN
StoO_error := 0;
StoO_rowcnt := 0;
StoO_crowcnt := 0;
FETCH CLClaimAtchmCursor INTO
CLCClaim.Id, CLCClaim.ClsnId;
EXCEPTION
WHEN OTHERS THEN
StoO_rowcnt := 0;
StoO_selcnt := 0;
StoO_error := SQLCODE;
StoO_errmsg := SQLERRM;
END;
IF CLClaimAtchmCursor%NOTFOUND THEN
StoO_sqlstatus := 2;
StoO_fetchstatus := -1;
ELSE
StoO_sqlstatus := 0;
StoO_fetchstatus := 0;
END IF;
END CLCClaim;
If this is not sufficient please give a complete testcase and migration workbench version to support email address: [email protected] so the bug can be reproduced and logged.
Turloch
Oracle Migration Workbench Team