佐藤さんからのコメント

-----ここから-----
佐藤ともうします。
ホームページ楽しく拝見させて頂きました。
特に、”こんなコンパイラーが欲しい”はなかなか興味深いものです。
既に、いろいろな方からの回答があり重複しそうですか、NECでCOBOL を開発している人間としてコメントさせて頂きます。

ご希望の完全にそうCOBOLコンパイラは現状存在していませんが、近いものは製品化されています。

まず、動詞を含めて日本語対応したCOBOLは10年以上前に富士通から国語COBOLとして出荷されています。文字通り


もし　Ａ　＝　Ｂ
かつ　Ｃ　＝　Ｄ
または　Ｃ　＝　Ｅ
の時
　　　MOVE　Ａ　ＴＯ　Ｆ

といった、構文をサポートしたCOBOLでした。

また、以下の文章
------本文を引用します。------
一番の問題は「顧客が妊娠経験有り」「顧客の性別が女でなく」「顧客の年齢が１６歳未満」をどうコンパイラーに解釈させるかです。

顧客(KOKYAKU)の属性に

      妊娠経験(NINSHIN-KEIKEN)            0:有り
　　　　　　　　　　                       1:無し
      性別(SEIBETSU)                      1:男
　　                                      2:女
      年齢(AGE)                           NUMERIC

の様な用語定義のデータベースを持ち、ここから組み立てられないでしょうか。
-------------------------
で指摘されている機能については、日本電気のCOBOLでやはり１０年以上まえからサポートしております。文字通りに用語辞書システムというものです。
国産他社のCOBOLでも同様な機能がサポートされているはずです。

上記の例に関しては用語辞書にあらかじめ以下の用語（データ名データの型、データの値、データの値の名前）を登録しておきます。


用語：顧客．
　０２　妊娠経験　　ＰＩＣ　９（１）．
　０２　性別　　　　ＰＩＣ　９（１）．
　０２　年齢　　　　ＰＩＣ　９（２）．

妊娠経験の値　　妊娠経験有り：ＶＡＬＵＥ　１．
　　　　　　　　妊娠経験無し：ＶＡＬＵＥ　０．

性別の値　　　　男：ＶＡＬＵＥ　１．
　　　　　　　　女：ＶＡＬＵＥ　２．

年齢の値　　　　未成年：　年齢＜２０

この用語辞書を利用して以下のCOBOL構文を解釈します。


０１　入院患者　　ＵＳＡＧＥ　ＩＳ　顧客．

ＩＦ　妊娠経験　ＯＦ　入院患者　＝　妊娠経験有り
　ＡＮＤ　性別　ＯＦ　入院患者　＝　男
　ＯＲ　　年齢　ＯＦ　入院患者　＝　未成年
ＴＨＥＮ　ＸＸＸＸＸＸ

上記構文を以下のように展開します。


０１　入院患者　．
　０２　妊娠経験　　ＰＩＣ　９（１）．
　０２　性別　　　　ＰＩＣ　９（１）．
　０２　年齢　　　　ＰＩＣ　９（２）．　

ＩＦ　妊娠経験　ＯＦ　入院患者　＝　１
　ＡＮＤ　性別　ＯＦ　入院患者　＝　１
　ＯＲ　　年齢　ＯＦ　入院患者　＜　２０
ＴＨＥＮ　ＸＸＸＸＸＸ

上記の”顧客”は抽象データ型のようなもので、用語名と呼びます。
”妊娠経験有り””男”等は、値の名前として　用語値名と呼びます。
用語名と用語値名のデータベースを作成してプログラムの誤りを減らそうという主旨で提供されている機能です。
用語名の定義、用語値名の定義は、あらかじめ登録された用語名や用語値名を利用して定義することができますので、相当複雑なデータも誤り無く定義参照することが可能です。

もともとは、１００名単位のプロジェクトチームでのプログラム開発でのデータ定義の共通化やデータの参照方法の共通化を目指して開発しました。

以上参考まで。
-----ここまで。-----
+----------------------------------------------------+
日本電気株式会社　コンピュータソフトウエア事業本部
第三コンピュータソフトウエア事業部　生産技術開発部
　　　　　tel:XXXX-XX-XXXX , 内線:8-23-26142
佐藤　孝夫 fax:XXXX-XX-XXXX , 内線:8-23-26159
e-mail: satoh@lang2.bs1.fc.nec.co.jp 〒:23-26140