2バイト文字支援機能

世界の言語の中には、日本語のように文字の数が数千にも及ぶ文字集合を使用しているものが数多くある。一方、たいていの計算機では、文字を表わすのに8ビットを使用し、8ビット・コードのそれぞれの値に別々の文字を割り当てている。この方式だと、256種類の文字までしか表わすことができない。

理想的には、COBOLのプログラマは文字を表わすための内部コードを意識する必要がないことが望ましい。しかし、実際には内部コードの特性がプログラマに影響を与えることがある。中でも、表わせる文字の数が256しかないということは、特に大きな制約である。

この問題に対処するため、2バイト文字集合（double-byte character set:DBCS）が用意されている。この方式では、各文字は隣接する2バイトからなる16ビットのコードで表わされる。この結果、数千種類の文字を表わすことが可能となる。

2バイト・コードを具体的にどのように文字に割り当てるかは、国によって異なっている。

COBOLシステムで使用されている8ビット・コードは、情報交換用米国標準コード（ASCII）である。この章では、ASCIIコードのことを、1バイト文字集合（single-byte character set）と呼ぶことにする。

2バイト文字集合はDBCS指令の影響を受ける。

日本語支援の詳細については、2バイト文字支援機能のMicro Focus 拡張の章を参照。

2バイト文字（DBCS）データ

DBCS指令を使用すると、COBOLシステムは2種類のコード体系を認識するようになる。これによって、データを2バイト文字形式で格納できるようになる。しかし、DBCS指令は他のコード体系を使用できないようにするわけではない。したがって、DBCS指令を使用しても、1バイト文字形式でデータを格納することができる。

必要なハードウェアを備えていれば、2バイト文字の形式で入力や出力に使用されるデータ項目が認識されて、画面やキーボードやプリンタなどの装置にそれらのデータを適正に表示したり、データを受け取ったりすることができる。

2バイト文字集合中のローマ字

1バイト文字集合には、ローマ字のアルファベットとその他のいくつかの文字が含まれる。国によっては、2バイト文字集合の中に1バイト文字集合の中の文字の多くが含まれる。

ハードウェアによっては、データの格納方式が1バイトか2バイトかで、表示される文字の形態がはっきり異なるものがある。たとえば、画面によっては、2バイト・コードの文字の方が、1バイト・コードの文字よりも大きく表示される。

マルチベンダー統合体系支援機能

NTTのマルチベンダー統合体系（MIA）に合わせて作成したプログラムは、COBOLコンパイラによってコピーできる。このためには、DBCS指令およびCURRENCY-SIGN"92"指令を使用する。

原始プログラム

2バイト・コード文字は、定数（定数はデータであるため）、注記、注記項、利用者語に使用できる。これ以外については、DBCS指令は原始プログラム中で使用できる文字の範囲を変更しない。つまり、プログラムは依然としてCOBOLの文字集合(言語リファレンスのCOBOL言語の概念の章を参照。) を使用して書かれている。

言語の拡張

2バイト文字のデータを含むデータ項目を定義するために、PICTURE句とUSAGE句が拡張されている。2バイト文字のデータ用には、新しい形式の定数が必要である。

2バイト文字のデータの取扱いを定義するために、各種の指定や句や文に規則が追加されている。

特に断わりがないかぎり、COBOLのすべての機能と規則は、2バイト文字を使用する際にも適用される。 以下に記述するのは、2バイト文字に関して追加されている規則と書き方だけである。

注記と注記項

注記および注記項の中では、1バイト文字と2バイト文字を自由に混ぜて書いてよい。

利用者語

利用者語の中では、1バイト文字か2バイト文字のどちらかを使用できる。利用者語を使用するものには、符号系名、字類名、条件名、データ名/一意名、レコード名、ファイル名、指標名、呼び名、段落名、節名、記号文字がある。

利用者語の中では、1バイト文字と2バイト文字を自由に混ぜて書いてよい。ある文字が1バイト文字集合と2バイト文字集合の両方の中に存在するときは、それぞれに属する文字は異なるものとみなされる。(前述の2バイト文字集合とローマ字の節を参照。)

空白

　字類が2バイト文字のデータ中の空白は、2バイト・コードで表わされる。2バイト・コードで表わされた空白文字を、「全角の空白」と呼ぶ。

全角の空白に割り当てられる値は、DBCS指令およびDBSPACE指令の影響を受ける。

データ項目

2バイト文字データ項目

言語リファレンスのCOBOL言語の概念の章で説明した字類の他に「2バイト文字」を追加する。字類の2バイト文字には、項類として、2バイト文字と2バイト文字編集の2つが含まれる。

字類が2バイト文字のデータ項目を表わすには、USAGE DISPLAY-1句を使用する。この句を指定したデータ項目のPICTURE文字列には、文字"G"と"B" だけを書くことができる。" G" は2バイト文字の文字位置を表わす。"B" は編集文字であり、全角の空白を挿入する文字位置を表わす。PICTURE文字列がすべて"G" であるデータ項目の項類は、2バイト文字である。PICTURE文字列中に"G"と"B" が混在するデータ項目の項類は、2バイト文字編集である。

PICTURE文字の"G" と "B" は、どちらも1つの2バイト文字の文字位置を表わす。2バイト文字のデータ項目の長さは、そのPICTURE文字列中の"G" と "B" の数で表わす。ただし、例外として別途規定している場合もある。

部分参照では、最左端文字位置と長さはバイト数ではなく、2バイト文字の数で指定する。

字類が英数字のデータ項目を使用できる箇所であれば、どこでも字類が2バイト文字のデータ項目を使用してよい。ただし、この章で後述する該当する規則に従うものとする。また、これには例外もある。

混合データ項目

項類が英数字のデータ項目中に収めたデータの中に、2バイト文字を含めることができる。このようなデータにおいては、1バイト文字は1バイト・コードで表わされ、2バイト文字は2バイト・コードで表わされる。空白は半角で表わされる。

入力および出力のとき、1バイト文字も2バイト文字も認識される。2バイト文字の最初のバイトは1バイト文字では使われないコードであるので、両者を一緒に使用しても混同されることはない。しかし、プログラム内でデータを操作する際には、2バイト文字も通常の英数字と同様に扱われる。したがって、2バイト文字の2つのバイトが分割されないようにすることは、プログラマの責任である。

この型のデータ項目の長さは、すべての場合において、バイト単位で数える。

定数

2バイト文字定数

言語リファレンスのCOBOL言語の概念の章で説明した文字定数と数字定数の他に、3番目の定数として2バイト文字定数が加えられている。

2バイト文字定数は、両端を引用符またはアポストロフィで囲み、その前に"G" を付けた文字列である。2バイト文字定数には、計算機の2バイト文字集合中の任意の文字を含めることができる。2バイト文字定数の長さは、2バイト文字で最長28文字までである。2バイト文字定数を行をまたがって継続することはできない。

引用符またはアポストロフィを区切り文字として使用した場合、2バイト文字定数の中にその区切り文字を含めるには、その文字を2つ続けて書く。区切り文字として使用していない引用符またはアポストロフィを2バイト文字定数の中に含める場合は、その文字を1つだけ書く。実行用プログラム内での2バイト文字定数の値は、文字列に下記の解釈を加えたものである。

  1. 先頭の"G"と両端の区切り文字を除く。

  2. 文字列中に含まれる2つの連続した区切り文字は、1つの文字として扱う。

2バイト文字定数の項類

文字定数を使用できる箇所であれば、どこでもすべての2バイト文字定数を使用することができる。ただし、この章で後述する該当する規則に従うものとする。また、これには例外もある。

混合定数

文字定数の中に2バイト文字を含めることができる。2バイト文字が含まれる文字定数を「混合定数」と呼ぶ。このような定数においては、1バイト文字は1バイト・コードで表わされ、2バイト文字は2バイト・コードで表わされる。空白は半角で表わされる。

出力のとき、1バイト文字も2バイト文字も認識される。2バイト文字の最初のバイトは1バイト文字では使われないコードであるので、両者を一緒に使用しても混同されることはない。しかし、プログラム内でデータを操作する際には、2バイト文字定数も通常の文字定数と同様に扱われる。したがって、2バイト文字の2つのバイトが分割されないようにすることは、プログラマの責任である。

文字定数の項類は英数字であり、2バイト文字ではない。このことは、2バイト文字が含まれるか否かに左右されない。

混合定数を、行をまたがって継続することはできない。

この制限は解除されている。

表意定数

（この章で記述する字類および項類に関する該当する規則に従って、）2バイト文字定数だけを使用できる箇所で表意定数を使用した場合、これは2バイト文字定数となる。この定数内の各空白は、全角である。

2バイト文字定数として使用できる表意定数は、SPACE（S）だけである。

"N"定数

COBOL/370 および MIA COBOL仕様においては、2バイト文字定数に相当する、別の形式の定数が使用されている。

一般形式

構文規則

  1. N定数には、最長18文字までの2バイト文字を含めることができる。N定数を行をまたがって継続することはできない。

  2. N定数には、計算機の2バイト文字集合中の2バイト文字だけを含めることができる。

  3. 1バイト文字と2バイト文字の引用符を同等視するとき、2バイト文字の引用符を定数中に含める場合は、その引用符を2つ続けて書かなければならない。たとえば、2バイト文字定数中に2バイト文字の引用符を含めるには、下記のように書く。

    N"ABC""DEF"

  4. APOST指令を使用すると、N定数の仕様と動作を、G定数と同様に変更できる。つまり、引用符（2行）を書く代わりに、アポストロフィ（1行）を使用することができる。

一般規則

  1. N定数をALLと共に使用して、表意定数を作成できる。(言語リファレンスの COBOL言語の概念の章を参照。)

  2. すべての文字は、2バイト文字であること。

プログラム構造

プログラム終了見出し

構文規則

  1. プログラム名に2バイト文字を含めてはならない。

    この制限は解除された。

2バイト文字機能単位における見出し部

プログラム名段落

構文規則

2バイト文字機能単位における環境部

翻訳用計算機段落

構文規則

  1. 翻訳用計算機名には、2バイト文字を含めてもよい。

実行用計算機段落

構文規則

  1. 実行用計算機名には、2バイト文字を含めてもよい。

特殊名段落

構文規則

  1. CURRENCY SIGN句において、定数-6は2バイト文字定数であってはならない。また、"G"

    または "N" であってもならない。

  2. ALPHABET句において、定数-1、定数-2、定数-3は2バイト文字定数であってはならない。

  3. CLASS句において、定数-4および定数-5は2バイト文字定数であってはならない。

ファイル管理段落

構文規則

  1. ASSIGN句において、定数-1は2バイト文字定数であってはならない。また、外部ファイル参照には、2バイト文字が含まれてはならない。

    この制限は解除された。

2バイト文字機能単位におけるデータ部

JUSTIFIED（けたよせ）句

一般規則

  1. 2バイト文字のデータ項目にも、JUSTIFIED句を適用できる。

PICTURE（形式）句

一般規則

PICTURE句で表せる項類が、2バイト文字と2バイト文字編集の2種類追加されている。この2つの項類は、共にUSAGE IS DISPLAY-1と記述しなければならない。

この2つの項類は、必ずしもUSAGE IS DISPLAY-1と記述しなくてもよい。

DISPLAY-1 は PIC N項目には任意であるが、PIC G 項目では必ず必要である。

2バイト文字データに関する規則

  1. PICTURE文字列に含めることのできる文字は、"G"

    と "N" だけである。

  2. 内容としては、2バイト文字集合中の任意の文字を含めることができる。

2バイト文字編集データに関する規則

PICTURE文字列には、記号"G"と"B" を任意に組み合わせて含めることができる。

使用する記号

使用する記号の働きは下記のとおり。

G - 各"G"が、2バイト文字または全角の空白だけを含むことができる文字位置を表わす。
B - 各"B"が、全角の空白を挿入する文字位置を表わす。

N -

 各"N"が、2バイト文字または全角の空白だけを含むことができる文字位置を表わす。

1つの"G" または "B"

または "N"

は、2バイト文字の1つの文字位置を表わすことに注意。

編集規則

　データ項目にどのような編集をすることができるかは、そのデータ項目がどの項類に属するかによって決まる。「表 4-1 データの項類に適用できる編集の種類」(言語リファレンスのプログラムの定義の章を参照) に、下記の拡張を加える。

表 5-1 : 2バイト文字の項類に適用できる編集

項　類
 編集の種類
2バイト文字 なし
2バイト文字編集 単に"B" を挿入するだけ

固定挿入編集

　1バイト文字データ項目中で使用した場合、"B"（空白）は半角の空白を表わす。　2バイト文字データ項目中で使用した場合は全角の空白を表わす。

REDEFINES（再定義）句

構文規則

  1. データ名-1またはデータ名-2のどちらかの字類が2バイト文字である場合、両方の字類とも2バイト文字とする。

    この制限は解除された。

RENAMES（再命名）句

構文規則

  1. データ名-1またはデータ名-2のどちらかの字類が2バイト文字である場合、両方の字類とも2バイト文字とする。THROUGH句は、使用できない。

USAGE（用途）句

一般形式

下記の書き方が追加されている。

構文規則

  1. DISPLAY-1項目のPICTURE文字列には、 "G" と "B" だけを含めることができる。PICTURE文字列に"G" を指定した項目には、USAGE IS DISPLAY-1句を記述しなければならない。

    したがって、USAGE IS DISPLAY-1句は、項目の字類を2バイト文字とする働きがあることに注意。

    PICTURE文字列に

    "G" または

    "N" を指定した項目に、USAGE IS DISPLAY-1句を記述する必要はない。

    PICTURE文字列に"G" が含まれていると、対応する項目の字類は2バイト文字とみなされる。

  2. USAGE IS DISPLAY-1と記述した集団項目または基本項目に対して、BLANK WHEN ZERO句は使用できない。SYNCHRONIZED句は、無視される。

  3. 画面節データ項目の用途は、暗黙的または明示的にUSAGE DISPLAY-1と定義してよい。

一般規則

  1. USAGE IS DISPLAY-1句は、データの形式が2バイト文字であることを示す。

VALUE（値）句

構文規則

  1. データ記述項において、項目の項類が2バイト文字である場合、VALUE句中の定数の項類は2バイト文字とする。2バイト文字定数を使用できるのは、項目の項類が2バイト文字または2バイト文字編集であるときだけである。

  2. VALUE句中の2バイト文字定数の長さは、PICTURE文字列によって指定された大きさを超えてはならない。

条件名に関する規則

  1. 条件名記述項において、該当するデータ項目の項類が2バイト文字である場合、対応するVALUE句中の定数の項類は2バイト文字とする。2バイト文字定数を使用できるのは、対応するデータ項目の項類が2バイト文字であるときだけである。

2バイト文字機能単位における手続き部

条件式

比較条件

字類が2バイト文字に属するデータ項目および定数を 比較条件中に使用し、任意の比較演算子を適用できる。各作用対象は、集団項目または2バイト文字とする。データの変換、編集、逆編集は行われない。2バイト文字の項目と2バイト文字編集の項目とは、区別されない。

行われる比較は、文字の比較である。2バイト文字集合中の文字の間には、一般に文字の大小順序は付けられない。したがって、2バイト文字を2進数のようにみなして、その文字を表わすビット・パターンの数値に基づいて文字の大小順序を決定する。

2バイト文字の中に1バイト文字に相当する文字が含まれている場合、2バイト文字の大小順序に従って文字を並べたときに、1バイト文字に相当する文字が1バイト文字の文字の大小順序どおりに並べられる保証はないので注意すること。

ある文字が2バイト文字集合にも1バイト文字集合にも含まれている場合、その2バイト文字と1バイト文字は等しいとはみなされない。（前述の2バイト文字集合中のローマ字の節を参照。）

PROGRAM COLLATING SEQUENCE句は、字類が2バイト文字または2バイト文字定数のデータ項目の比較に関しては効力がない。

作用対象の長さが等しくない場合、長い方と同じになるまで短い方の後ろに全角の空白を付け加えたものとして、比較が行われる。

字類条件

2バイト文字データ項目に対する字類検査は、DBCS および KANJI である。

DBCS および KANJI の字類検査はサポートされていない。

転記操作

字類が2バイト文字のデータ項目同士の間、またはデータ項目と定数の間でデータを転記することに係わるすべての文は、この章で後述するMOVE文の2バイト文字の転記に関する一般規則に従う。

ACCEPT（受取り）文

構文規則

  1. 書き方2において、一意名は字類が2バイト文字のものであってはならない。

一般規則

  1. 書き方1において、一意名の字類が2バイト文字である場合にだけ、2バイト文字データを入力できる。

CALL（呼ぶ）文

構文規則

  1. 一意名-1は、字類が2バイト文字のデータ項目であってはならない。定数-1は、2バイト文字定数であってはならない。

    この制限は解除された。

  2. 一意名-1または定数-1によって指定するプログラム名には、2バイト文字が含まれていてはならない。

    この制限は解除された。

一般規則

  1. USING句の中で参照される字類が2バイト文字の各項目は、呼ぶプログラムの手続き部の見出しのUSING句の中の、字類が2バイト文字の項目と対応させること。

CANCEL（取消し）文

構文規則

  1. 一意名-1は、字類が2バイト文字のデータ項目であってはならない。定数-1は、2バイト文字定数であってはならない。

    この制限は解除された。

  2. 一意名-1または定数-1によって指定するプログラム名には、2バイト文字が含まれていてはならない。

    この制限は解除された。

INITIALIZE（初期化）文

一般形式

一般形式が拡張されて、ALPHABETICやALPHANUMERICなどのオプションの他に、DBCS,

NATIONAL, NATIONAL-EDITED

が加えられている。

一般規則

  1. DBCS,

    NATIONAL, NATIONAL-EDITEDのいずれかのオプションを指定すると、

    項類が2バイト文字または2バイト文字編集のデータ項目が初期化される。

INSPECT（文字列検査）文

構文規則

  1. 一意名-2を除く一意名および定数の中に、どれか1つでも字類が2バイト文字のものがあれば、それらはすべて字類が2バイト文字のものでなければならない。

一般規則

  1. 一意名-2に記録される計数は、2バイト文字の文字数である。バイト数ではない。

MOVE（転記）文

構文規則

  1. 一意名および定数の中に、どれか1つでも字類が2バイト文字のものがあれば、それらはすべて字類が2バイト文字のものでなければならない。

    字類が2バイト文字の項目、項類が英数字の項目、項類が英字の項目を自由に混在させてよい。

  2. 書き方2のMOVE CORRESPONDINGにおいて、1組の項目のどちらか一方の字類が2バイト文字であるならば、両方とも字類が2バイト文字でなければならない。

一般規則

  1. 送出し側項目の字類が2バイト文字であり、受取り側項目の項類が2バイト文字編集であると、受取り側項目上で編集が行われる。字類が2バイト文字の項目のこれ以外の組合わせでは、変換も編集も逆編集も行われない。

    この規則は、次のように緩められている。受取り側項目の項類が2バイト文字編集であれば、編集が行われる。字類が2バイト文字の項目が含まれるそれ以外の組合わせでは、変換も編集も逆編集も行われない。

  2. 受取り側項目が送出し側項目よりも短い場合は、受取り側項目に収まりきらないデータ部分は切り捨てられる。受取り側項目が送出し側項目よりも長い場合は、受取り側項目の右側部分に全角の空白が埋められる。

SEARCH（表引き）文

構文規則

  1. 書き方2において、一意名-1の字類が2バイト文字であるならば、OCCURS句中に定義されているASCENDING/DESCENDING KEY項目の字類も、2バイト文字でなければならない。

STOP（停止）文

構文規則

  1. 定数は、2バイト文字定数であってはならない。

    この制限は解除された。

STRING（連結）文

構文規則

  1. 一意名-4を除く一意名および定数の中に、どれか1つでも字類が2バイト文字のものがあれば、それらはすべて字類が2バイト文字のものでなければならない。

一般規則

  1. 一意名-4によって示される相対位置は、2バイト文字での位置である。

UNSTRING（分解）文

構文規則

  1. 一意名-1、一意名-2、一意名-3、定数-1、定数-2の中に、どれか1つでも字類が2バイト文字のものがあれば、それらはすべて字類が2バイト文字のものでなければならない。

一般規則

  1. 一意名-7によって示される相対位置は、2バイト文字での位置である。

  2. 一意名-6中に記録される計数は、2バイト文字でのものである。