";   
         if ($_SERVER["SERVER_NAME"] == "gr2")   $ngru = substr($row['Date'],8,2);
         else                                    $ngru = substr($row['Date'],6,2);
           if ($agru != $ngru){
             if ($agru != "") {
               display "";
               display "";
             end-if
             $agru = $ngru; 
             display ""; 
          else
             display "";
             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 "";
   
        end-if
   end-program anzt3.

Quelle  anzt3.cob   Sprache: Cobol
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 "

Messung V0.5