2.4.33 SORT
| |  | |  | | |
Format:
SORT Filename1 [ON]
{ASCENDING / DESCENDING} [KEY] Datenfeld1 [Datenfeld2 ...]
[
{ASCENDING / DESCENDING} [KEY] Datenfeld3 [Datenfeld4 ...]}
...
]
[[WITH] DUPLICATES [IN ORDER]]
[
{
INPUT PROCEDURE [IS] Pocedurename1 [{THROUGH / THRU} Procedurename2]
/
USING Filename2
}
]
[
{
OUTPUT PROCEDURE [IS] Pocedurename2 [{THROUGH / THRU} Procedurename3]
/
GIVING Filename3
}
]
| |
|  | |  |
Filename1, Filename2 und Filename3 sind Dateien, die bei Aufruf des SORT nicht geöffnet sein dürfen und mit FD im Cobolprogramm beschrieben sein müssen.
Datenfeld1 und folgende müssen dem Datenbereich des Records von Filename1 zugehörig sein.
SORT sortiert die Input-Sätze entsprechend den Angaben und stellt sie dem Output zur Verfügung.
Hierbei kann der Input entweder aus der Datei Filename1 oder Filename2 (bei Angabe von USING) stammen. Bei der Angabe INPUT PROCEDURE Procedurename1 wird intern ein PERFORM Procedurename1 THRU Procedurename2 aufgerufen. Dort werden mit Hilfe des RELEASE -Statements die zu sortierenden Sätze bereitgestellt.
Die Input-Sätze weren sortiert, das Ergebnis der Sortierung wird in der Datei Filename1 abgestellt. Wird die GIVING -Klausel angegeben wird das Ergebnis in der Datei Filename3 abgestellt.
Bei Verwendung der OUTPUT PROCEDURE wird nach der Sortierung intern ein PERFORM Procedurenam3 THRU Procedurename4 aufgerufen. Die sortierten Sätze können dort mittels RETURN eingelesen und verarbeitet werden.
Sollte beim Sortieren ein Systemfehler auftreten, wird dieser in dem Spezial-Register SORT-RETURN, sowie in den ersten 3-Stellen des Datenbereichs von Filename1 abgestellt.
Siehe auch Programm sort.cob
 Zurück zu Acc-Cobol Send Statement
 Hoch zu Procedure Divison in COBOL
 Weiter zu START
| |
Home