Quelle  muster.cob

       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 "<td align='center' id='tpkm'>" . $row['lfdnr']   . "</td>"; 
        display "<td id='tpkm'>" . $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='tpkm'>" . $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='tpkm'>" . $dt_string . "</td>"; 
        end-if
        display "<td align='center' id='tpkm'>"   . $row['Status']  . "</td>"; 
        if (substr($row['User_ID'],0,1) == 'K')
          display "<td id='tpkm'>Muster-Zugang Kunde</td> "; 
        else
          display "<td id='tpkm'>Muster-Zugang Partner</td> "; 
        end-if
      end-program muster.