Oracle EXCEPTION_INIT to HiRDB

PRAGMA EXCEPTION_INIT changed to DECLARE CONDITION FOR SQLCODE VALUE

Oracle:

PRAGMA  EXCEPTION_INIT( exception_name, sqlcode_value )

HiRDB:

DECLARE  exception_name  CONDITION FOR  SQLCODE VALUE  sqlcode_value

EXAMPLE:

Oracle:

DECLARE
 deadlock_detected EXCEPTION;
PRAGMA EXCEPTION_INIT(deadlock_detected, -60);
BEGIN
 NULL;
 EXCEPTION
 WHEN deadlock_detected THEN
    NULL;
END;

HiRDB:

CREATE PROCEDURE sp_exc1()
BEGIN
 DECLARE SWV_Null_Var DEC(10) DEFAULT 0;
 DECLARE deadlock_detected CONDITION FOR SQLCODE VALUE -60;
 DECLARE EXIT HANDLER FOR deadlock_detected
 begin
    SET SWV_Null_Var = 0;
 end;
 SET SWV_Null_Var = 0;
 END;
END_PROC