الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل كود الاوراكل الى SQL

بدأه tatatab في 6 يونيو 2013 · 0 رد · 972 مشاهدة · في قواعد بيانات Oracle
مشاركة: واتساب X فيسبوك تيليجرام
#1

اخواني هذا كود اوراكل , اريد تحويله الى 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;

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 6 يونيو 2013 في 09:44 — السبب: تنسيق الكود

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…