أرجو تصحيح هذا الكود

السلام عليكم ورحمة الله وبركاته

أرجو منكم تصحيح هذا الكود ، حيث يحتوي على ثلاث جمل استعلام وداخلها شرط IF

Create or replace Procedure ChackVacDeputTrain (prm_COMPNO IN NUMBER,prm_ATTENDDATE IN DATE,prm_ATTENDTYPE OUT VARCHAR2)

IS

lmv_TRANSACTION_CODE NUMBER;

BEGIN

IF

(SELECT COMP_NO INTO lmv_TRANSACTION_CODE

FROM EMPLOYEES_VACATIONS

WHERE COMP_NO=prm_COMPNO

AND prm_ATTENDDATE BETWEEN FROM_GDATE AND TO_GDAT);

IS NOT NULL THEN

prm_ATTENDTYPE:=to_char(lmv_TRANSACTION_CODE);

ELSE IF

(SELECT COMP_NO INTO lmv_TRANSACTION_CODE

FROM EMPLOYEES_DEPUTATIONS

WHERE COMP_NO=prm_COMPNO

AND prm_ATTENDDATE BETWEEN FROM_GDATE AND TO_GDAT);

IS NOT NULL THEN

prm_ATTENDTYPE:=to_char(lmv_TRANSACTION_CODE);

ELSE

(SELECT COMP_NO INTO lmv_TRANSACTION_CODE

FROM EMPLOYEES_TRAININGS

WHERE COMP_NO=prm_COMPNO

AND prm_ATTENDDATE BETWEEN FROM_GDATE AND TO_GDAT);

IS NOT NULL THEN

prm_ATTENDTYPE:=to_char(lmv_TRANSACTION_CODE);

END IF;

EXCEPTION WHEN NO_DATA_FOUND THEN

null;

END;

اقتباس