";
           display ""; 
           foreach($inhalt2 as $wert3 => $inhalt3){
             display ""; 
             display "";
             evaluate wert2
             when "6":
              display "";
              exit perform;
            when "7":
              display "";
              exit perform;
            when "8":
              display "";
              exit perform;
            when "9":
              display "";
              exit perform;
            else  
              display "";
              exit perform;
           end-perform
           display "";
         end-perform
         display "

Quelle  anzt2.cob   Sprache: Cobol
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 "
" . $wert2 . "	" . $inhalt3 . "		Neuanmeldungen (gesperrt), noch nicht vom ADMIN freigegeben	Altsprecher (aus Access), Stammdaten noch nicht überarbeitet	alles OK, Sprecher hat alte Stammdaten überarbeitet oder es ist eine Neuanmeldung	logisch glöschte Sprecher	= Status-Code undefiniert, nicht vorgesehen

";
         display "

---

";
   end-program anzt2.