2.4.31 SEND
| |  | |  | | |
Format:
SEND [SCREEN] [USING] {Datenfeld1 / Konstante1}
[{Datenfeld2 / Konstante2} ...]
| |
|  | |  |
Die SEND - Anweisung dient zur Consolenausgabe mit der Möglichkeit Bildschirmmasken zu verwenden.
Die SEND - Anweisung ohne USING - Zusatz verhält sich wie der DISPLAY - Befehl.
Die Angabe SCREEN bewirkt, daß am Ende des SEND - Befehls der Cursor nicht auf den Beginn der nächsten Zeile positioniert wird.
Die SEND - Anweisung mit USING - Zusatz beinhaltet in Datenfeld1 bzw. Konstante1 entweder eine Format-Anweisung oder eine zuvor abgespeicherte Maske (CALL MKSAV).
Bei SEND USING werden alle angegebenen Datenfelder bis zur kleinsten Stufe aufgelöst, d.h. die Angabe eines Gruppenfeldes (Oberstufe) verhält sich so wie die Angabe aller Unterstufen.
Beispiel:
01 KUNDENSATZ.
05 K-NAME PIC X(30).
05 K-PLZ PIC 9(6).
05 K-ORT PIC X(30).
05 K-STRASSE PIC X(30).
SEND USING
'10:05"Name"20*11:05"Plz/Ort"13#20*12:05"Strasse"20*'
KUNDENSATZ.
ist identisch mit
SEND USING
'10:05"Name"20*11:05"Plz/Ort"13#20*12:05"Strasse"20*'
K-NAME K-PLZ K-ORT K-STRASSE.
 Zurück zu Acc-Cobol Search Statement
 Hoch zu Procedure Divison in COBOL
 Weiter zu SET
|
Home