Prozeduren

OF_RENUMPOSITION

Eingabeparameter

(Es gibt keine Eingabeparameter)

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Nummeriert die Objektfächerpositionen neu durch.

Definition

CREATE PROCEDURE OF_RENUMPOSITION
AS
  DECLARE VARIABLE ofid       INTEGER;
  DECLARE VARIABLE ofposition INTEGER;
  DECLARE VARIABLE ofpos_neu  INTEGER;
  DECLARE VARIABLE ofpos_alt  INTEGER;
BEGIN
  ofpos_alt = -1000;
  ofpos_neu = 0;
  FOR SELECT OFID, OFPOSITION FROM OBJEKTFAECHER
      ORDER BY OFPOSITION ASCENDING
      INTO :ofid, :ofposition
  DO BEGIN
    IF ( ((ofposition - ofpos_alt) < 250) OR (ofposition < 0) ) THEN BEGIN
      UPDATE OBJEKTFAECHER SET OFPOSITION = :ofpos_neu
      WHERE OFID = :ofid;
      ofposition = ofpos_neu;
    END
    ofpos_alt = ofposition;
    ofpos_neu = ofposition + 1000000;
  END
END