TIA Schleife

#statusString := DBstatusStrings.Statustext[StatuscodeVonFU];

FUNCTION "GetLenzeText" : Void
   VAR_INPUT 
		errorCode : Int;   //Fehlernummer zum Suchen
   END_VAR

   VAR_OUTPUT 
		errText : STRING;   //out: line containing read texts
   END_VAR

   VAR_IN_OUT 
   END_VAR

   VAR_TEMP 
		l : INT;
		m : INT;
		r : INT;
   END_VAR

   VAR CONSTANT 
   END_VAR


BEGIN

(*
the following code implements a binary search
source: https://de.wikipedia.org/wiki/Bin%C3%A4re_Suche


/**
 * Binäre Suche auf dem Array M nach dem Eintrag suchwert
 *
 * @param M :          zu durchsuchendes Feld
 * @param eintraege :  Anzahl der Feldelemente
 * @param suchwert :   gesuchter Eintrag
 * @return >= 0: Index des gesuchten Eintrags
 *         <  0: nichts gefunden
 */
int binary_search(const int M[], const int eintraege, const int suchwert)
{
    const int NICHT_GEFUNDEN = -1 ;
    int mitte;
    int links = 0;                      /* man beginne beim kleinsten Index */
    int rechts = eintraege - 1;         /* Arrays-Index beginnt bei 0 */

    /* Solange die zu durchsuchende Menge nicht leer ist */
    while (links <= rechts)
    {
        mitte = links + ((rechts - links) / 2); /* Bereich halbieren */

        if (M[mitte] == suchwert)       /* Element suchwert gefunden? */
            return mitte;
        else
            if (M[mitte] > suchwert)
                rechts = mitte - 1;     /* im linken Abschnitt weitersuchen */
            else /* (M[mitte] < suchwert) */
                links = mitte + 1;      /* im rechten Abschnitt weitersuchen */
            /* end if */
        /* end if */
    }

    return NICHT_GEFUNDEN;
    // alternativ: return -mitte ; // gute Positionsschaetzung: "nach (-Returnwert) wuerde es hingehoeren"
}

the code uses the following substitutions
m:			mitte
l:			links
r:			rechts
M:			ErrTextsList.ErrNum[]	search key
suchwert:	        ErrTextsList.ErrText[]

*)

m := 0;								
l := 0;								
r := 124;

while (l <= r) do
	m := l + ((r-l) / 2);
	if (ErrTextsList.ErrNum[m] = errorCode) then
		  errText := ErrTextsList.ErrText[m];
		  return;
	else
		if (ErrTextsList.ErrNum[m] > errorCode) then
			r := m-1;
		else
			l := m+1;
		end_if;
	end_if;
	errText := 'NotFound';
end_while;

END_FUNCTION