Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Rainers-Beispiele/diverse/

";
           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.

¤ Dauer der Verarbeitung: 0.26 Sekunden (vorverarbeitet) ¤

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: stdlog.cob Sprache: Cobol

Original von: verschiedene^©

       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 . "

" . $row['Status'] . "

" . $row['Fehler_text'] . "

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.