Quelle  u0100.cob

       identification division.
       program-id. u0100.
      * Sprecherarchiv Statuskontrolle
      * margin: 15 0 0 15;
      * background-color: #23130E;
      * /*background-color: navy;*/ 
      * /*ckground-image: url(./images/logo_sprecherarchiv.jpg);*/
      * background-repeat: no-repeat;
      * background-position: top right;
      * <title>Kontrolle Sprecherarchiv</title>
       author. "JD".
       date-written. 24.7.2006.
       date-compiled.
       data division.
       working-storage section.
        77 datum      pic X(10).
        01 au-0100    pic X(10) value "au_0100".
        01 au-0100-d  pic X(10) value "au_0100.php".
        77 counter    pic 9(8).
        77 counter2   pic 9(8).
        77 log        pic 9(8).
       procedure division.
         accept datum from date
      *  =date("d.m.Y G:i:s");
         display "<h2><font color='yellow'><u>Statistik Sprecherarchiv,"
                 "  Stand: $datum </u></font></h3>"
         display "<h4>Stand: $datum</h4>";
         call "reqonc" using au-0100-d
      *  Class au_uc_0100
         call "alloc" using au-0100
      *  Alle Informationen besorgen (Class->Methoden)
         move counter of au-0100 to counter
         call anzt1 using counter
      *  Informationen 2 (Sprecherstati) anzeigen und erklären
         move counter2 of au-0100 to counter2
         call anzt2 using counter2
         move log of au-0100 to log
         call anzt3 using log
       end-program u0100.