COBOL計算式の中間ワーク桁数について

質問

富士通オフコン：GP6700-1、OS：ASP Version V10
のCOBOL で

例えば、WORKING-STRAGE SECTION で

01 WORK-AREA.
03 A PIC S9(10)V9(03).
03 B PIC S9(10)V9(03).
03 C PIC S9(10)V9(03).
03 D PIC S9(10)V9(03).
03 E PIC S9(10)V9(03).
03 F PIC S9(10)V9(03).

という項目があって

COMPUTE E = ( A + B ) * C / D.

COMPUTE F = A * B + C / D.

を実行する場合、

(1) A + B の結果を格納する中間ワーク(1)
(2) 中間ワーク(1) * C の結果を格納する中間ワーク(2)
(3) A * B の結果を格納する中間ワーク(3)
(4) C / D の結果を格納する中間ワーク(4)

の４つはコンパイラが所定のルールに従って用意すると思います。
この中間ワーク(1)、(2)、(3)、(4)の属性／桁数をコンパイラが決定する際のルールを
教えて下さい。

回答No.2

sanga12 · ベストアンサー

富士通固有に決められているなら、判りませんが、

一般的には、有効小数点は、計算する式の最も多い桁になるはずですが・・・・・

たとえば、
０２　Ａ　　ＰＩＣ　９（５）.
０２　Ｂ　　ＰＩＣ　９（５）.

ＭＯＶＥ　２０　ＴＯ　Ａ．
ＭＯＶＥ　７５　ＴＯ　Ｂ．
ＣＯＭＰＵＴＥ　Ａ　＝　Ａ　／　Ｂ　*　１００．
これだと
Ａは０ですね．
ちょっと　式を変えて
ＣＯＭＰＵＴＥ　Ａ　＝　Ａ　*　１．００　／　Ｂ　*　１００．
にすると
Ａは２６になりますね
ＣＯＭＰＵＴＥ　Ａ　＝　（Ａ　*　１．００　／　Ｂ　+　０．００５　）*　１００　．
だと　どうでしょうか　Ａは２６のまま
ＣＯＭＰＵＴＥ　Ａ　＝　（Ａ　*　１．０００　／　Ｂ　+　０．００５　）*　１００　．
では、　Ａ　は　２７ですね

パーセントを１００で表示する際には、途中式で　*　１．０００００
などをすれば　その桁が有効桁になります。

加算（＋）、減算（－）でどれだけ小数桁を確保しても、元となる桁が優先されますので、積・商の元で桁を確保するのがいいと思います

回答にならず済みません・・・・・

お礼

どうもありがとうございます。
やり方として参考にさせていただきます。

回答No.1

chukenkenkou

そういったことは、マニュアルに記載されていませんか？

お礼

回答記入ありがとうございます。
残念ながらマニュアルを買ってもらえないため、手近にマニュアルがありません。