Sorting with extended character sets

In sorting with extended character sets, the TRANSLATE-CHARACTER format of SORT (see “Sort” manual [6]) is used in BS2000/OSD.

The special register SORT-CCSN (see the “COBOL2000 Reference Manual” [1]) is available with the SORT statement (file and table sorting) as a language element for sorting with extended character sets¹.

The contents of the special register SORT-CCSN are transferred to SORT as the name of a module from the table module library (SYSLNK.SORT.nnn.TAB²).

This library currently contains the modules EDF03DRV, EDF03IRV and EDF041. In order to define additional tables, you need authorization to modify this library.

For the purpose of defining separate modules, SORT provides the source code element MUSTER in the table module library (see also the notes on creating
TRANSLATE-CHARACTER tables in “Sort” manual [6]).

Example 11-1

Creating files with the extended character set EDF041

To create a file in the extended character set using an editor in BS2000, the following steps are necessary:

• Emulation settings:

  DSS mode:

  Character set:

  Display terminal type:

  Configuration ... display terminal

  8 bit

  Lat. alphabet Nr. 9 ISO8859-15

  DSS9763

• Modify the logical properties of the terminal (see [3])

  /MODIFY-TERMINAL-OPTIONS CODED-CHARACTER-SET=EDF041

• Set the code in EDT for a new file (see [23]):

  @CODENAM EDF04

Example 11-2

Assigning an output file with an extended character set:

/CREATE-FILE SORT-AUSGABE,CODED-CHARACTER-SET=EDF041 ——————————————— (1)
/ADD-FILE-LINK LINK-NAME=AUSGABE,FILE-NAME=SORT-AUSGABE ———————————— (2)

(1)	Instructs the DMS to create the file SORT-AUSGABE with the CODED-CHARACTER-SET EDF041.
(2)	Establishes the relationship with the program.

¹ The CODED-CHARACTER-SET attribute of SORT input or output files is not evaluated by COBOL-SORT

² nnn stands for the current SORT version