|
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 "Statistik Sprecherarchiv,"
" Stand: $datum "
display "Stand: $datum";
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.
¤ Dauer der Verarbeitung: 0.2 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
