2.4.30 SEARCH
| | | | | |
Format1:
SEARCH Datenfeld1 [VARYING {Datenfeld2 / Index1}]
[[AT] END Befehlssequenz1]
[WHEN Bedingung1 {Befehlssequenz2 / NEXT SENTENCE]
....
[END-SEARCH]
| |
| | | |
Mit SEARCH können Tabellen durchsucht werden. Wird VARIYING angegeben, wird die Tabelle ab diesem Wert bis zum Ende durchsucht. Der aktuelle Indexwert befindet sich in Datenfeld2 bzw. Index1 beim Durchlaufen der WHEN - Anweisung(en).
Wird VARYING nicht angegen, wird der 1. Index der Tabelle verwendet.
| | | | | |
Format2:
SEARCH ALL Datenfeld1
WHEN
{
Datenfeld2 {IS EQUAL [TO] / = } Datenfeld3
/
Bedingung1
}
[
AND
{
Datenfeld4 {IS EQUAL [TO] / = } Datenfeld5
/
Bedingung2
}
]
...
{ Befehlssequenz1/ NEXT SENTENCE }
[END-SEARCH]
| |
| | | |
SEARCH ALL verhält sich wie SEARCH ohne VARYING - Angabe.
Zurück zu Acc-Cobol Rewrite Statement
Hoch zu Procedure Divison in COBOL
Weiter zu SEND
|