1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
CREATE OR REPLACE TYPE MAJ_OBJ_ASSOC_TYPE AS OBJECT
(
TYPE_MAJ CHAR(1) NULL,
ID_TYPE_OBJ_ASS_MAJ NUMBER(10) NULL,
ID_OBJ_ASS_MAJ NUMBER(10) NULL,
MEMBER PROCEDURE CHECK_TYPE_MAJ
)
/
CREATE OR REPLACE TYPE BODY MAJ_OBJ_ASSOC_TYPE AS
MEMBER PROCEDURE CHECK_TYPE_MAJ IS
BEGIN
If TYPE_MAJ Not In ('A') Then
Raise_Application_Error(-20000, 'Le type_Maj est incorrect');
End If;
END CHECK_TYPE_MAJ;
End;
/
declare
var MAJ_OBJ_ASSOC_TYPE;
Begin
var := MAJ_OBJ_ASSOC_TYPE('A', 1, 1);
var.CHECK_TYPE_MAJ; -- OK
var := MAJ_OBJ_ASSOC_TYPE('B', 1, 1);
var.CHECK_TYPE_MAJ; -- KO
End;
/ |
Partager