اخواني هذا كود اوراكل , اريد تحويله الى SQL , فكيف سيكون الكود :
DECLARE
v_CODE varchar2(120);
v_OBJ varchar2(120);
v_OBTYPE varchar2(30);
v_TYPE varchar2(30);
v_OBJECT varchar2(120);
v_ORG varchar2(60);
v_STATUS varchar2(16);
v_CONTA integer;
v_EVT_SAFETY varchar2(12);
CURSOR C IS
SELECT EVT_CODE, EVT_ORG, EVT_TYPE, EVT_OBJECT, EVT_STATUS, EVT_SAFETY
FROM R5EVENTS
WHERE rowid =:rowid;
BEGIN
OPEN C;
FETCH C INTO v_CODE, v_ORG, v_TYPE, v_OBJECT, v_STATUS, v_EVT_SAFETY;
CLOSE C;
IF v_TYPE = 'JOB' THEN
IF v_STATUS = 'WREQ' THEN
SELECT COUNT(*) INTO v_CONTA FROM R5EVENTS WHERE EVT_ORG = v_ORG AND EVT_OBJECT = v_OBJECT AND EVT_CODE <> v_CODE AND EVT_STATUS NOT IN ('WREQ', 'COM', 'COMC', 'CLS', 'CLSC', 'CANC');
IF v_CONTA > 0 THEN
IF v_EVT_SAFETY <> '+' THEN
UPDATE R5EVENTS
SET EVT_SAFETY = '+'
WHERE EVT_CODE = v_CODE AND EVT_ORG = v_ORG;
END IF;
END IF;
END IF;
IF v_STATUS = 'ISS' AND v_EVT_SAFETY = '+' THEN
raise_application_error(-20001,'Another work order exists on the same object!');
END IF;
END IF;
END;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\