Stilblüten und Codeleichen

Aus der Rubrik "Neulich im Quelltext":

PROCEDURE displayData(parameter1, parameter2)
BEGIN
IF parameter1 is not null OR 1=1 THEN --just for testing
...a huge block of code to display the data...
END IF;
END;

Kein ELSE-Teil und seit langer Zeit unverändert im Repository

Querdenker der Woche:

-- zu ratendes Objekt
v_objectId := getCustomerObject();

Es ging übrigens ums Rating (also: Beurteilung der Bonität) nicht ums Raten (im Sinne von Rätselraten)

Querschläger der Woche:

v_objectId := nimmIrgendeinObjektAusDerListe(liste);

Wie jetzt irgendein!?
Das Erste/Letzte würde zumindest verhersagbare Ergebnisse liefern.
So weiß man zwar, daß man eine Objekt-ID bekommt, aber es könnte auch bei unveränderter Liste jedesmal eine andere sein.

Daily Business:

BEGIN
WHILE fehlerVorhanden() LOOP
behebeFehler();
EXIT WHEN schnauzeVoll();
END LOOP;
END;