Quelle  anzt3.cob

       identification division.
       program-id. anzt3.
       author. "JD".
       date-written. 24.7.2006.
       date-compiled.
       data division.
       working-storage section.
        77 datum   pic X(10).
       linkage section.
        77 counter      pic 9(4).
       procedure division using counter.
     * Es werden die letzten 50 logins angezeigt 
       $agru = "";
       $ngru = ""; 
       foreach ($log as $wert1 => $row){
         display "<tr>";   
         if ($_SERVER["SERVER_NAME"] == "gr2")   $ngru = substr($row['Date'],8,2);
         else                                    $ngru = substr($row['Date'],6,2);
           if ($agru != $ngru){
             if ($agru != "") {
               display "<tr>";
               display "<td><hr /></td>";
             end-if
             $agru = $ngru; 
             display "<tr>"; 
          else
             display "<tr>";
             if   ($row['User_ID'] == 'K1978st'
                or $row['User_ID'] == 'P1979st'
                or $row['User_ID'] == 'K1963st'
                or $row['User_ID'] == 'P1970st')
               musterzugang($row);
             else 
               standard_login($row);
             display "</tr>";
   
        end-if
   end-program anzt3.