Konstruera en objektflagga

Objektflaggor är SQL-script som söker ut specifika egenskaper hos objekt och registrerar objektens ID tillsammans med objektflaggans nummer i tabellen OBJECT_OBJECTFLAG.

I nedanstående exempel söks efter objekt i tabellen OBJECT_OBJECT efter ”Från-objekt” med kopplingstypen GRP. De funna objekten märks med flaggnumret 5001.

Exempel på konstruktion av objektflagga.

Delete from object_objectflag where objflagno = 5001;

Commit;

DECLARE

 CURSOR c1 is

   SELECT DISTINCT object_object.objectno1 FROM object_object, object

   where object_object.connecttype = 'GRP'

   and object_object.objectno1 > 0

   and object_object.objectno1 = object.objectno

   and object.techno = 5;

   objectno NUMBER(22);

BEGIN

  OPEN c1;

  LOOP

    FETCH c1 INTO objectno;

    EXIT WHEN (c1%NOTFOUND);

    INSERT INTO object_objectflag VALUES (objectno,5001);

    COMMIT;

  END LOOP;

  CLOSE c1;

END;

/