|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
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 "";
display "" . $wert2 . " | ";
foreach($inhalt2 as $wert3 => $inhalt3){
display "" . $inhalt3 . " | ";
display " | ";
evaluate wert2
when "6":
display "Neuanmeldungen (gesperrt), noch nicht vom ADMIN freigegeben | ";
exit perform;
when "7":
display "Altsprecher (aus Access), Stammdaten noch nicht überarbeitet | ";
exit perform;
when "8":
display "alles OK, Sprecher hat alte Stammdaten überarbeitet oder es ist eine Neuanmeldung | ";
exit perform;
when "9":
display "logisch glöschte Sprecher | ";
exit perform;
else
display " = Status-Code undefiniert, nicht vorgesehen | ";
exit perform;
end-perform
display " ";
end-perform
display " | ";
display "
";
end-program anzt2.
¤ Dauer der Verarbeitung: 0.0 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.
|
