"; 
           display ""; 
           display ""; 
           display ""; 
           display " ";     
           exit perform;
         when 'P':
           display ""; 
           display ""; 
           display ""; 
           display ""; 
           display " ";     
           exit perform;  
         when 'K':
           display ""; 
           display ""; 
           display ""; 
           display ""; 
           display " ";     
           exit perform;  
         else
           display ""; 
           display ""; 
           display ""; 
           display ""; 
           display " "; 
           exit perform
        end-evaluate 
      else
      *nok
        display ""; 
        display ""; 
        if ($_SERVER["SERVER_NAME"] == "gr2"){
          $dt=$row['Date'];
          $dt_string = substr($dt,8,2) . '-' . substr($dt,5,2) . '-' . substr($dt,0,4) . " " . substr($dt,11);
          display ""; 
        else{
          $dt=$row['Date'];
          $dt_string = substr($dt,6,2) . '-' . substr($dt,4,2) . '-'
           . substr($dt,0,4) . " " . substr($dt,8,2) . ':' . substr($dt,10,2) . ':' . substr($dt,12,2);
          display ""; 
        end-if
       display ""; 
       display " "; 
    end-program stdlog.

Quelle  stdlog.cob   Sprache: Cobol

identification division.        program-id. stdlog.        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 row.      * Standard-Login-Sonderbehandlung         if ($row['Status'] == 'OK.'){          if ($_SERVER["SERVER_NAME"] == "gr2"){            $dt=$row['Date'];            $dt_string = substr($dt,8,2). '-' . substr($dt,5,2) . '-' . substr($dt,0,4) . " " . substr($dt,11);          else            $dt=$row['Date'];            $dt_string = substr($dt,6,2) . '-' . substr($dt,4,2) . '-' . substr($dt,0,4)                        . " " . substr($dt,8,2) . ':' . substr($dt,10,2) . ':' . substr($dt,12,2);          end-if          evaluate row['User_ID'](0:1)          when 'X':            display "

" . $row['lfdnr']   . "

" . $row['User_ID'] . "

" . $dt_string . "

" . $row['Status']  . "

Admin

" . $row['lfdnr']   . "

" . $row['User_ID'] . "

" . $dt_string . "

" . $row['Status']  . "

Partner

" . $row['lfdnr']   . "

" . $row['User_ID'] . "

" . $dt_string . "

" . $row['Status']  . "

Kunde

" . $row['lfdnr']   . "

" . $row['User_ID'] . "

" . $dt_string . "

" . $row['Status']  . "

Sprecher

" . $row['lfdnr']   . "

" . $row['User_ID'] . "

" . $dt_string . "

" . $dt_string . "

"   . $row['Status']  . "

" .  $row['Fehler_text']  . "

Messung V0.5