Quelle  anzt2.cob

       identification division.
       program-id. anzt2.
       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 counter.
       * Es werden die Sprecherstatis analysiert und mit Countern zur Anzeige gebracht 
         foreach ($counter2 as $wert2 => $inhalt2){
           display "<tr>";
           display "<td align='right'><font color='gray'>" . $wert2 . "</font></td>"; 
           foreach($inhalt2 as $wert3 => $inhalt3){
             display "<td align='right'><font color='gray'>" . $inhalt3 . "</font></td>"; 
             display "<td>  </td>";
             evaluate wert2
             when "6":
              display "<td id='t6'>Neuanmeldungen (gesperrt), noch nicht vom ADMIN freigegeben </td>";
              exit perform;
            when "7":
              display "<td id='t7'>Altsprecher (aus Access), Stammdaten noch nicht überarbeitet</td>";
              exit perform;
            when "8":
              display "<td id='t8'>alles OK, Sprecher hat alte Stammdaten überarbeitet oder es ist eine Neuanmeldung</td>";
              exit perform;
            when "9":
              display "<td id='t9'>logisch glöschte Sprecher</td>";
              exit perform;
            else  
              display "<td id='tx'> = Status-Code undefiniert, nicht vorgesehen</td>";
              exit perform;
           end-perform
           display "</tr>";
         end-perform
         display "</table>";
         display "<hr />";
   end-program anzt2.