SSL stdlog.cob   Interaktion und
PortierbarkeitCobol

       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 "<td align='center' id='ta'>" . $row['lfdnr']   . "</td>"; 
           display "<td id='ta'>" . $row['User_ID'] . "</td>"; 
           display "<td id='ta'>" . $dt_string . "</td>"; 
           display "<td align='center' id='ta'>" . $row['Status']  . "</td>"; 
           display "<td id='ta'>Admin</td> ";     
           exit perform;
         when 'P':
           display "<td align='center' id='tpk'>" . $row['lfdnr']   . "</td>"; 
           display "<td id='tpk'>" . $row['User_ID'] . "</td>"; 
           display "<td id='tpk'>" . $dt_string . "</td>"; 
           display "<td align='center' id='tpk'>" . $row['Status']  . "</td>"; 
           display "<td id='tpk'>Partner</td> ";     
           exit perform;  
         when 'K':
           display "<td align='center' id='tpk'>" . $row['lfdnr']   . "</td>"; 
           display "<td id='tpk'>" . $row['User_ID'] . "</td>"; 
           display "<td id='tpk'>" . $dt_string . "</td>"; 
           display "<td align='center' id='tpk'>" . $row['Status']  . "</td>"; 
           display "<td id='tpk'>Kunde</td> ";     
           exit perform;  
         else
           display "<td align='center' id='t9'>" . $row['lfdnr']   . "</td>"; 
           display "<td id='t9'>" . $row['User_ID'] . "</td>"; 
           display "<td id='t9'>" . $dt_string . "</td>"; 
           display "<td align='center' id='t9'>" . $row['Status']  . "</td>"; 
           display "<td id='t9'>Sprecher</td> "; 
           exit perform
        end-evaluate 
      else
      *nok
        display "<td align='center' id='tx'>" . $row['lfdnr']   . "</td>"; 
        display "<td id='tx'>" . $row['User_ID'] . "</td>"; 
        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 "<td id='tx'>" . $dt_string . "</td>"; 
        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 "<td id='tx'>" . $dt_string . "</td>"; 
        end-if
       display "<td align='center' id='tx'>"   . $row['Status']  . "</td>"; 
       display "<td id='tx'>" .  $row['Fehler_text']  . "</td> "; 
    end-program stdlog.