2.4.1 ACCEPT
Beschreibung:
| |  | |  | | |
Format 1
ACCEPT [
{
OMITTED /
{Datenfeld1 / Konstante1} [...]
}
]
[ON {EXCEPTION/ESCAPE} Befehlssequenz 1 ...]
[NOT ON {EXCEPTION/ESCAPE} Befehlssequenz 2 ...]
[END-ACCEPT][.]
| |
|  | |  |
ACCEPT erwartet eine Eingabe von der Tastatur.
Bei Angabe von OMITTED wird nur die Ausführung des Programmes angehalten bis ein Zeichen von der Tastatur eingegeben wurde.
Ansonsten werden die eingegebenen Zeichen in den Datenfeldern abgestellt. Ist ein Datenfeld aufgefüllt, wird das nächste Datenfeld verwendet. Sind alle Datenfelder aufgebraucht, wird der Befehl beendet.
Die Konstanten werden angezeigt.
Wird die Return-Taste (Enter-Taste) oder Esc-Taste betätigt, ist die Eingabe beendet und die fehlenden Zeichen in den Datenfeldern werden mit Leerzeichen aufgefüllt.
Mit der Rub-Out bzw. Backspace-Taste kann ein Zeichen gelöscht werden.
Mit der Pfeil-Links-Taste wird auf den Feldanfang positioniert. Steht die Eingabe schon am Feldanfang wird auf das letzte Zeichen des vorigen Feldes positioniert (falls vorhanden).
Mit der Tab-Taste wird der Inhalt des aktuellen Datenfeldes mit Space aufgefüllt.
Mit der Pfeil-Rechts-Taste wird der Inhalt des Datenfeldes übernommen.
Mit der Pfeil-Oben-Taste wird auf das 1. Zeichen des 1. Datenfeldes positioniert.
ACCEPT zeigt Konstanten erst dann an, wenn sie abgehandelt werden, d.h. der Befehl:
ACCEPT 'Eingabe1: ' FELD1 ' Eingabe2: ' FELD2 ...
zeigt bei Aufruf nur
Eingabe1:
an. Erst nach vollständiger Eingabe von FELD1 wird der zweite Text (Eingabe2: ) am Bildschirm angezeigt.
ON EXCEPTION (ESCAPE)
Die ON EXCEPTION Anweisungen werden ausgeführt, wenn bei der Eingabe die Escape-Taste betätigt wurde.
Entsprechend wird die NOT ON EXCEPTION Anweisung nur ausgeführt, wenn der ACCEPT ohne Escape-Taste beendet wurde.
| | | | | | |
Format 2
ACCEPT Datenfeld1 from
{
DAY / DATE /DAY-OF-WEEK / TIME / PARTITION /
ARGUMENT-VALUE / ARGUMENT-NUMBER /
ENVIRONMENT-VALUE
}
[ON {EXCEPTION/ESCAPE} Befehlssequenz 1 ...]
[NOT ON {EXCEPTION/ESCAPE} Befehlssequenz 2 ...]
[END-ACCEPT][.]
| |
| | | |
Format 2 des ACCEPT-Befehls dient zum Einlesen verschiedener Werte (keine Tastatureingabe)
DAY liefert das Tagesdatum in der Form JJJJMMTT
DATE liefert das Tagesdatum in der Form JJJJTTT
DAY-OF-WEEK liefert den Wochentag (Montag=1)
TIME übergibt die Zeit in der Form HHMMSS00
PARTITION übergibt die Partition-Nr (Environment CPART)
ENVIRONMENT-VALUE übergibt den Wert der aktuellen Environment-Variablen (siehe DISPLAY UPON)
| | | | | | |
Format 3
ACCEPT Datenname1 {
[AT] LINE [NUMBER] Wert1 /
[AT] {COLUMN / COL} [NUMBER] Wert2 /
AT Wert3
}
[WITH
{
{AUTO / AUTO-SKIP} /
{BACKGROUND-COLOR / BACKGROUND-COLOUR} [IS] Wert4 /
{BELL/BEEP} /
BLINK /
CONTROL [IS] Wert5 /
{EMPTY-CHECK / REQUIRED}
ERASE {EOL / EOS} /
{FOREGROUND-COLOR / FOREGROUND-COLOUR} [IS] Wert6 /
{FULL / LENGTH-CHECK} /
GRID /
HIGHLIGHT /
LEFT-JUSTIFY /
LEFTLINE /
LOWER /
LOWLIGHT /
{NOECHO / SECURE} /
OVERLINE /
PROMPT [CHARACTER [IS] Wert7] /
REVERSE-VIDEO /
RIGHT-JUSTIFY /
SIZE [IS] Wert8 /
SPACE-FILL /
{TIME-OUT / TIMEOUT} AFTER WERT9
TRAILING-SIGN /
UNDERLINE /
UPDATE /
UPPER /
ZERO-FILL
}
]
[ON {EXCEPTION/ESCAPE} Befehlssequenz 1 ...]
[NOT ON {EXCEPTION/ESCAPE} Befehlssequenz 2 ...]
[END-ACCEPT][.]
| |
| | | |
Ist Datenname1 ein Feld aus der SCREEN SECTION wird das Feld entsprechend aufgelöst.
Bei Angabe von LINE enthält Wert1 die Zeilennummer auf der die Eingabe erfolgen soll.
Bei Angabe von COL oder COLUMN enthält Wert2 die Spaltennummer auf der die Eingabe erfolgen soll.
Wird nur AT Wert3 verwendet, muß Wert3 die Position in der Form ZZSS enthalten (Z=Zeile, S=Spalte).
Das normale Cobolfenster enthält 24 Zeilen und 80 Spalten. Dies kann aber durch Verwendung von CWSIZE geändert werden.
Der ACCEPT-Befehl zur Tastatureingabe funktioniert nicht mit Dialogen
Siehe auch: DISPLAY SCREEN SECTION Control-Elemente
 Zurück zu Screen Section
 Hoch zu Procedure Divison in COBOL
 Weiter zu ADD
|
Home