Quelle  anzt1.cob

       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 "<tr>";
         display "<td id='t1'>" . $wert1 . "</td>"; 
         move 0 to i 
         foreach($inhalt1 as $wert2 => $inhalt2){
          add 1 to i
          evaluate i
      *     gesperrte User
            when 3:  
            if inhalt2 > 0 
               display "<td align='center' id='tb'>"inhalt2"</td>" 
            else
               display "<td align='center' id='t1'>"inhalt2"</td>" 
             exit perform;   
      *    gesperrte User
           when 4
             if inhalt2 > 0
               display "<td align='center' id='tx'>"inhalt2"</td>" 
             else
               display "<td align='center' id='t1'>"inhalt2"</td>" 
             exit perform;   
           when 5
      *      temp. Proben
             if inhalt2 > 0
               display "<td align='center' id='tx'>"inhalt2"</td>"
             else
               display "<td align='center' id='t1'>"inhalt2"</td>"; 
            exit perform;   
           when 6
      *      mp3-Backup
             if ($inhalt2 > 0) 
               display "<td align='center' id='tx'>"inhalt2"</td>"
             else
               display "<td align='center' id='t1'>"inhalt2"</td>"; 
            exit perform; 
            when 7:  //Kundenaufträge in arbeit
              if inhalt2 > 0
                display "<td align='center' id='tx'>"inhalt2"</td>"; 
              else
                display "<td align='center' id='t1'>"inhalt2"</td>"; 
            exit perform;   
          else
            display "<td align='right' id='t1'>"inhalt2"</td>"; 
         end-perform   
       
       end-perform
       display "</tr>";
       display "</table>";
       display "<hr />";
   end-program anzt1.