"; 
        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 ""; 
        if (substr($row['User_ID'],0,1) == 'K')
          display " "; 
        else
          display " "; 
        end-if
      end-program muster.

Quelle  muster.cob   Sprache: Cobol
identification division.        program-id. muster.        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.       * Musterzugang wird besonders farblich gekennzeichnet         display "	" . $row['lfdnr']   . "	" . $row['User_ID'] . "	" . $dt_string . "	" . $dt_string . "	"   . $row['Status']  . "	Muster-Zugang Kunde	Muster-Zugang Partner

Messung V0.5