products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Rainers-Beispiele/diverse image not shown  
"; 
           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.3 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 . "" . $dt_string . ""   . $row['Status']  . "" .  $row['Fehler_text']  . "



Kontakt
Drucken
Kontakt
sprechenden Kalenders

in der Quellcodebibliothek suchen




schauen Sie vor die Tür

Fenster


Die Firma ist wie angegeben erreichbar.

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff