";
         display ""; 
         move 0 to i 
         foreach($inhalt1 as $wert2 => $inhalt2){
          add 1 to i
          evaluate i
      *     gesperrte User
            when 3:  
            if inhalt2 > 0 
               display "" 
            else
               display "" 
             exit perform;   
      *    gesperrte User
           when 4
             if inhalt2 > 0
               display "" 
             else
               display "" 
             exit perform;   
           when 5
      *      temp. Proben
             if inhalt2 > 0
               display ""
             else
               display ""; 
            exit perform;   
           when 6
      *      mp3-Backup
             if ($inhalt2 > 0) 
               display ""
             else
               display ""; 
            exit perform; 
            when 7:  //Kundenaufträge in arbeit
              if inhalt2 > 0
                display ""; 
              else
                display ""; 
            exit perform;   
          else
            display ""; 
         end-perform   
       
       end-perform
       display "";
       display "

Quelle  anzt1.cob   Sprache: Cobol
identification division.        program-id. anzt1.        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.       * alle Daten des Sprecherarchivs als Counter andrucken        * 1. User im Sprecherarchiv</u></h4>         * <table width='50%'>       * <th align = 'left'>User-Typ</th>       * <th align='right'>gesamt</th>       * <th align='right'>OK.</th>       * <th align='right'>gelöscht</th>       * <th align='right'>gesperrt</th>       * <th align='center'>temp. Proben</th>       * <th align='center'>mp3-Backup</th>       * <th align='center'>Aufträge in arbeit</th>        foreach ($counter as $wert1 => $inhalt1){          display "
" . $wert1 . "	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"	"inhalt2"

";
       display "

---

";
   end-program anzt1.