MicroFocusを使ったCOBOLプログラミング

質問

MicroFocusを使ったCOBOLプログラミング

環境：MicroFocusNetExpress4.0
OS：WinXP

業務でCOBOLを使っているのですが、
実行結果に疑問があり投稿しました。

■PGのイメージ
X PIC 9(3)
O-SUM PIC 9(3)

COMPUTE O-SUM = X + X

O-SUMに、X + Xの計算結果を与えるものです。
X=1の場合は、O-SUM=2となります。

異常値があった場合の検証として、Xが「A」となるINデータを用意して
実行したところ、デバッグモードでは
「数値項目に異常があります」とポップアップが表示されそれ以上実行されませんが、
ビルドして作られたEXEを実際に動かしてみると、異常終了しません。
（コマンドプロンプトからEXEを実行しています）
さらに、O-SUMの計算結果が2となるデータが出来あがりました。
X=BだとO-SUM=4、X=DだとO-SUM=8…というように、
A→1
B→2
C→3
D→4
と暗黙で変換されているように見受けられる結果となりました。

なぜ変換されたような結果になりデータ異常を検知できないのか、
また、変換されないよう回避するための方法と、
データ異常を検知する方法をご存知の方がみえましたら、ご教示ください。

回答No.2

progmasa9999 · ベストアンサー

MFCOBOLのCOMPUTE命令の解釈の問題と考えられます。
汎用機の文字コード(EBCDIC)は内部は16進表現で次のようになります。
A -> X'C1'
B -> X'C2'
C -> X'C3'
X 9(3)という宣言は、MFCOBOLが9(3)の中身は0～9即ち
16進でX'F0'～X'F9'の範囲内を想定している筈ですが、実際にはA'C1'などが入っている場合に
上位4ビットを無条件にFに置き換えて処理しているものと推測できます。
　このような拡大解釈をするか否かは、コンパイル時のオプションで選択できるようになっているのが一般的な言語処理プログラムの仕様ですので、マニュアルを調べれば見つかるのではないでしょうか?

お礼

丁寧なご説明ありがとうございました。
コンパイル時のオプションがあるのですね。
確認してみたいと思います。

# 業務で資産移行しておりましたが、
# 途中で方針が変わったため移行は中断してしまいました。
# ですがためになるご説明をいただき勉強になりました。
# ありがとうございました。

回答No.1

layy

ソフトについてはわかりません、想定原因です。

エラーは異常とワーニングと分類があり、ワーニングレベルはソフト側にて実行の際回避しますが異常レベルはそうでない、だったように思います。確認してください。

チェックのロジックはある方が良い。

お礼

ありがとうございます。
仰る通り、numericチェック等かませば回避できそうです。
ただ、現在汎用機からの資産移行を行っており、
対象は数百もあるため、ロジックの追加は厳しいところです…。