1. 導入：なぜNATIONAL-OFが必要なのか
COBOLの現場では、昔ながらの「シフトJIS」などの文字コードでデータを取り扱うことが一般的です。しかし、近年のWebサービス連携やデータベースの統合により、国際標準である「Unicode（UTF-16など）」への対応が不可欠になっています。文字コードが混在すると、いわゆる「文字化け」が発生し、システムエラーやデータ破損の原因となります。そんな時、既存のDISPLAY形式のデータを安全にUnicodeへ変換してくれるのが、この「NATIONAL-OF関数」です。
2. 基礎知識：NATIONAL項目とDISPLAY項目の違い
まず用語を整理しましょう。
DISPLAY項目は、いわゆる通常の文字データ（英数字や日本語）を格納する項目で、環境に応じた文字コードで保持されます。
一方、NATIONAL項目は、COBOLが内部的にUnicode（UTF-16）を扱うために定義する特殊な項目です。
この2つは「器」の形が全く異なります。そのため、単純にMOVEしても文字コード変換は行われません。そこで、橋渡し役となる「NATIONAL-OF関数」を使用して、データを安全に変換する必要があるのです。
3. 実装・解決策：変換の仕組み
NATIONAL-OF関数を使うことで、実行環境のコード体系（デフォルトの文字コード）から、Unicode（NATIONAL）形式へ一括で変換できます。
手順は簡単です。
1. 受取側のデータ項目をUSAGE NATIONALで定義する。
2. MOVE命令の中でFUNCTION NATIONAL-OFを使用し、変換後の値を格納する。
これで、外部からの入力データを、プログラム内部で安全に扱える形式に変換できます。
4. サンプルプログラム
以下のコードをコピーして、コンパイル・実行してみてください。
IDENTIFICATION DIVISION.
PROGRAM-ID. NAT-TEST.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 通常の文字列定義（DISPLAY）
01 WS-STR-DISP PIC X(10) VALUE “日本語”.
- Unicode用の文字列定義（NATIONAL）
01 WS-STR-NAT PIC N(10) USAGE NATIONAL.
PROCEDURE DIVISION.
> DISPLAY項目をUnicode形式に変換して格納
MOVE FUNCTION NATIONAL-OF(WS-STR-DISP) TO WS-STR-NAT.
> 確認のため表示（環境により出力結果は異なります）
DISPLAY “変換完了しました。”.
STOP RUN.
5. 応用・注意点：現場での活用と落とし穴
現場で使う際に注意すべき点が2つあります。
まず1点目、変換元となるDISPLAY項目の文字コード設定です。コンパイラのオプション（例えば-fconvなど）で、プログラムが「今、何の文字コードを前提としているか」を正しく指定していないと、NATIONAL-OF関数を使っても正しく変換されません。
2点目は逆変換の存在です。NATIONAL-OFの対となるDISPLAY-OF関数もセットで覚えておきましょう。Unicodeから元の文字コードに戻す必要がある場合には、必ずDISPLAY-OFを使用してください。
この2つの関数をマスターすれば、文字コードの壁を越えた堅牢なシステム開発が可能になります。ぜひ活用してください。
コメント