フィールドのラップアラウンド

バイナリ データ項目 (つまり RM/COBOL の COMPUTATIONAL-1 形式の項目) に対する算術演算の結果の値がデータ項目の容量を超える場合、ON SIZE ERROR 句が指定されていないと、Enterprise Developer では項目の値がラップアラウンドされます。ただし、RM/COBOL では、データ項目の容量の上限に設定されます。

このような問題を特定するには、ON SIZE ERROR 句を指定してください。

RM/COBOL では、次のコード行により、データ項目 CALC-ITEM に値 +32767 が格納されます。ただし、Enterprise Developer では、CALC-ITEM が -32768 に設定されます。

01 calc-item         pic s9(4)  comp-1.

 procedure division. 
      .... 
     move 32767 to calc-item. 
     add 1 to calc-item.