Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 284

Dateien für das Sortierprogramm
– SORT-CORE-SIZE: mit der gewünschten Größe der internen Arbeitsbereiche in Byte.
Durch diese Angaben kann der Programmablauf beeinflusst werden.
Bei fehlender Angabe werden standardmäßig 24 x 4096 Byte, d.h. 24 Seiten zu je
4 Kbyte angenommen. Näheres siehe Handbuch [6], Optimierung von Sortierläufen.
Nach SORT- und RELEASE- und vor RETURN-Anweisungen kann der Programmierer das
SORT-Sonderregister SORT-RETURN abfragen:
„0" zeigt das ordnungsgemäße Sortieren an,
„1" das fehlerhafte Sortieren.
Diese Abfrage empfiehlt sich, da bei fehlerhaftem Sortieren der Programmlauf nicht abge-
brochen wird.
Die fehlerhafte Belegung eines SORT-Sonderregisters bewirkt die Fehlermeldung
COB9134 (siehe
Eingabedatei(en)
Ist keine Eingabeprozedur definiert, generiert COBOL2000 einen OPEN INPUT und einen
READ...AT END für die angegebene Datei. Jede Eingabedatei muss im COBOL-Programm
definiert sein.
Die Linknamen SORTIN und SORTINnn (01 ≤ nn ≤ 99) dürfen nicht innerhalb eines Sor-
tierprogramms verwendet werden.
Ausgabedatei
Ist keine Ausgabeprozedur definiert, generiert COBOL2000 einen OPEN OUTPUT und ei-
nen WRITE für die angegebene Datei. Die Ausgabedatei muss im COBOL-Programm de-
finiert sein.
Der Linkname SORTOUT darf nicht innerhalb eines Sortierprogramms verwendet werden.
SORT-Parameterdateien
SORT erlaubt die Festlegung und Änderung von voreingestellten Werten für einige Para-
meter (siehe Anweisung MODIFY-SORT-DEFAULTS in [6]).
Die meisten dieser Werte wirken nicht bei SORT-Anweisungen in COBOL-Programmen.
Daher werden solche Parameterdateien nur bei der ersten SORT-Anweisung in einer
COBOL-Ablaufeinheit ausgewertet. Nachträgliche Änderungen bleiben für den weiteren
Programmablauf wirkungslos. Dies führt zu einer Beschleunigung von COBOL-Program-
men, die dynamisch sehr viele SORT-Anweisungen mit wenigen zu sortierenden Sätzen
ausführen.
284
Kapitel „Meldungen des COBOL2000-Systems" auf Seite
Sortieren und Mischen
349).
U41113-J-Z125-6