COBOLの桁落ち

a pic S9(１３）COMP-3　VALUE　００１２３４５６７８９０１．
ｂ　pic S9(11) OCCURS 14.
c pic --,---,---,--9.
aのデータをｂに渡します。
ｂは渡されたデータを集計します。
集計したデータをｃに渡して出力します。
結果は　２、３４５、６７８、９０１しか出力できませんでした。
原因は何ですか？教えてください。

No.1 回答者： negativeomg 回答日時： 2016/07/26 11:13

集計用ｂの符号付桁数なぜａより小さい？

後、符号も桁数に入るんだっけ？（忘れた）

この回答へのお礼

ありがとうぐざいます。
私は初心者ですから、それはよくわからないです。
このプログラムに取り扱うデータは１１桁までです。レコードから読み込むデータの１３桁の内上位二桁は０そうです。

お礼日時：2016/07/26 11:47

No.2 回答者： don_go 回答日時： 2016/07/26 11:35

符号編集用文字「-」は、値が正の場合空白、負の場合「-」を出力

するので、言語仕様通りに該当位置に空白が出力されているだけ。

この回答へのお礼

どうもありがとうぐざいます。

お礼日時：2016/07/26 11:38

No.3 回答者： galapagos299800 回答日時： 2016/07/27 09:45

固定小数点とパック十進はコンパイラーや処理ＣＰＵによって扱える最大数値が制限されるの要注意ですな。

ＣＰＵが３２ビット またはコンパイラが３２ビットなら、固定小数点の最大値は、[phone]ぐらいかな。
桁落ちは起きますね。
パック十進は内部的に固定小数点に変換されて演算される処理系なら同様に桁落ちします。
某メインフレームではパック十進については独自のＨＷやマイクロコードを実装している機種もありますので、
ＣＰＵとコンパイラーの仕様を再確認する必要があります。
ちなみに、
２の累乗数は、キリ番的数値は記憶しておくべきですな。
扱える最大数値を判定する目安になりますので。
２の１０乗 1024
２の１２乗 4096
２の１６乗　65536
２の３２乗 4294967296
等
しかし ３２ビットコンパイラなら以下の表記は桁あふれでシンタックスエラーになるはずですが。
a pic S9(１３）COMP-3　VALUE　００１２３４５６７８９０１．
COBOLは機種やメーカによって方言が多様なので、このタイプのシンタクスエラーを無視するコンパイラかも。

No.4 回答者： yokohamahope 回答日時： 2016/08/02 16:25

微かな記憶で回答するので自信はないのですが。

No.2の回答が最も説得力がありそうですが、「値が正の場合空白」というのはなく0以外は有効数値がそのまま出力されたように思います。ですからこの回答は間違いで、ここにこのような質問として上げられているのでしょう。
私が考えるのは、質問に記載されている内容は簡略化されていますが、プログラムそのものは少し違うのではないかと疑います。つまり、「aのデータをｂに渡します。ｂは渡されたデータを集計します。集計したデータをｃに渡して出力します。」この3行の中に、言い表せていないプログラムで桁落ちする要素が含まれているのではないかと。
もし可能でしたら MOVE a TO b(1)、MOVE b(1) TO c を実行してcの内容を確認してみて下さい。これで桁落ちしないなら、先の3行のロジックに桁落ちの要素があるのです。