Use of goto exception in forms

Question

Hi,
I wonder if anybody can tell me how to GOto exception where the exception is a user-defined one, in forms 6i.
Dipin

Answer 1

Hi Dipin:
EXCEPTION_INIT pragma: This is an instruction to the compile that instructs it to associate a name with an internal error code.
Following example from "ORACLE PL/SQL" book:
The following example, I declare and associate an exception for this error:
ORA-2292 violated integrity constraint (OWNER.CONSTRAINT)
child record found
DECLARE
MY_EXCEPTION EXCEPTION;
PRAGMA EXCEPTION_INIT(MY_EXCEPTION, -2292);
BEGIN
DELETE FROM COMPANY WHERE COMPANY_ID = 'SOME_ID';
EXCEPTION
WHEN MY_EXCEPTION THEN
DBMS_OUTPUT.PUT_LINE('Please delete employees for'
|| ' company first.');
END;
Note that in the example, eventhough I declared the exception, I did not explicitly raised it, this happened because of the EXCEPTION_INIT.
Usage of GOTO:
Syntax: GOTO label_name
EXAMPLE
FUNCTION GET_SOME_DESC(P_CODE IN CHAR) RETURN VARCHAR2 IS
BEGIN
IF P_CODE IS NULL THEN
GOTO no_code_label;
ELSIF P_CODE = 'S' THEN
RETURN 'Simple';
ELSIF P_CODE = 'C' THEN
RETURN 'Complicated';
END IF;
<<no_code_label>>
RETURN NULL;
END;
That should give you an answer for GOTO usage, however, it is my opinion based on experience that GOTO usage makes for more problems than it solves. You should always be able to design your code in a way that makes GOTO unneccessary.
Hope this helps,
Thomas