Beim Sortieren mit erweiterten Zeichensätzen wird das Format TRANSLATE-CHARACTER des SORT (siehe [ 6]) im BS2000/OSD genutzt.
Als Sprachmittel für das Sortieren mit erweiterten Zeichensätzen steht das Sonderregister SORT-CCSN (siehe Handbuch „COBOL2000-Sprachbeschreibung“ [1]) bei der SORT-Anweisung (Datei- und Tabellensort) zur Verfügung1.
Der Inhalt des Sonderregisters SORT-CCSN wird an den SORT übergeben als Name eines Moduls aus der Tabellenmodulbibliothek (SYSLNK.SORT.nnn.TAB2).
Diese Bibliothek enthält derzeit die Module EDF03DRV, EDF03IRV, EDF041. Um zusätzliche eigene Tabellen zu definieren, benötigt man die Berechtigung, diese Bibliothek zu ändern.
Zur Definition eigener Module stellt SORT in der Tabellenmodulbibliothek das Quellcodeelement MUSTER zur Verfügung (siehe auch „Hinweise für das Erstellen der TRANSLATE-CHARACTER-Tabellen“ in [6]).
Beispiel 11-1
Erzeugen von Dateien mit erweitertem Zeichensatz EDF041
Um mit einem Editor im BS2000 eine Datei im erweiterten Zeichensatz erstellen zu können, sind folgende Schritte nötig:
Einstellungen der Emulation:
DSS-Modus:
Zeichensatz:
DSS-Typ:
Konfiguration … Datensichtstation
8 Bit
Lat. Alphabet Nr. 9 ISO8859-15
DSS9763
Logische Eigenschaften der Datenstation ändern (siehe [3])
/MODIFY-TERMINAL-OPTIONS CODED-CHARACTER-SET=EDF041
Einstellen des Codes im EDT für eine neue Datei (siehe [23]):
@CODENAM EDF04
Beispiel 11-2
Zuweisung einer Ausgabedatei mit erweitertem Zeichensatz:
/CREATE-FILE SORT-AUSGABE,CODED-CHARACTER-SET=EDF041 —————————————— (1) /ADD-FILE-LINK LINK-NAME=AUSGABE,FILE-NAME=SORT-AUSGABE ——————————— (2)
(1) | weist das DVS an, die Datei SORT-AUSGABE mit dem CODED-CHARACTER-SET EDF041 anzulegen |
(2) | stellt die Beziehung zum Programm her |
1 Das Attribut CODED-CHARACTER-SET von SORT-Eingabe- oder Ausgabedateien wird vom COBOL-SORT nicht ausgewertet
2 nnn steht für die aktuelle SORT-Version