Field Wrap-Around

Solution:

Specify the ON SIZE ERROR clause.

Example:

Under the RM/COBOL system the following lines of code result in the value +32767 being stored in the data item, CALC-ITEM. However, under this COBOL system the value -32768 is stored in CALC-ITEM:

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

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