CODE-SET 句

これを指定できるのは、レコード順編成

および行順編成の

ファイルのみである。

この機能は標準 COBOL 定義の一部であるが、X/Open の COBOL 言語定義では明示的に除外されている。したがって、X/Open の COBOL 準拠のソースプログラムでは使用するべきではない。

一般形式

予約語リストのフラグ設定および修正を行うコンパイラ指令に加えて、以下の指令が、本セクションに記載の構文または意味内容に影響を与える可能性がある。
- CHARSET - 固有の符号系と見なされるものを決定する。

ファイルに CODE-SET 句を指定する際には、そのファイル内のすべてのデータの用途を DISPLAY と記述し、符号付き数値データがあれば SIGN IS SEPARATE 句を記述するものとする。
これらの制約は該当しない。
CODE-SET 句が参照する alphabet-name 句には、定数を指定できない。
identifier-1 は修飾できるが、添え字は付けられない。
各 identifier-1 は、該当するファイルのレコード記述に記述したデータ項目とする。ただし、それ自体がレコード記述であってはならない。
オプションの FOR を指定すると、CODE-SET 句は、指名したデータ項目に使用する文字符号を指定する。FOR を指定しない場合、CODE-SET 句は、ファイル全体で使用する文字符号を指定する。
固有の文字集合は、CODE-SET 句が適用されないファイルまたはファイル内のデータ項目に対して使用される。

レコード領域内のデータは、常に ASCII コードで記述される。特殊名段落で alphabet-name が EBCDIC に設定されていると、CODE-SET 句の影響を受けるデータは、ファイルに書き込まれる際に ASCII から EBCDIC に変換され、ファイルから読み取られる際には EBCDIC から ASCII に変換される。特殊名段落で alphabet-name が STANDARD-1、STANDARD-2、NATIVE、または ASCII に設定されている場合は、コード変換は必要ない。
上記のコード変換に際しては、CODE-SET 句が適用されるデータ項目はいずれも英数字として扱われる。項目のデータ記述の記載どおり、字類または項類については考慮されない。
identifier-1 に OCCURS 句を指定している場合、CODE-SET 句はその最初の登場箇所に対してのみ適用される。identifier-1 の下位に、OCCURS 句を指定した項目がある場合、COSE-SET 句は identifier-1 全体に適用される。