MOVE and Arithmetic Statements

In COBOL, the MOVE statement copies data from a sending field to one or more receiving fields, converting between PICTURE representations as needed. A numeric MOVE right-justifies and zero-fills or truncates according to the receiving field's PICTURE, while an alphanumeric MOVE left-justifies and space-fills. Understanding PICTURE clauses like PIC 9(5), PIC X(10), and PIC S9(7)V99 is essential because MOVE silently reformats data to match the target, and mismatched sizes cause truncation without raising any runtime error.

A group move copies an entire record or group item, including all its subordinate elementary fields, as one alphanumeric operation regardless of the underlying data types of the subordinates. This is different from MOVE CORRESPONDING, which compares the data-names of subordinate fields in the sending and receiving groups and moves only the fields whose names match exactly, skipping any that don't. MOVE CORRESPONDING is commonly used when copying between two records that share many but not all field names, such as an input record and an output record with a similar but not identical layout.

COBOL provides dedicated arithmetic verbs rather than requiring an expression language for simple operations. ADD 1 TO WS-COUNTER increments a field in place, while ADD WS-A, WS-B GIVING WS-TOTAL sums two fields into a third without altering the operands. SUBTRACT, MULTIPLY, and DIVIDE follow the same GIVING pattern, and DIVIDE additionally supports REMAINDER to capture the modulus of an integer division. Every arithmetic verb can be paired with an ON SIZE ERROR clause, which executes imperative statements if the result would overflow the receiving field's PICTURE, letting the program handle the condition instead of producing corrupted data.

The COMPUTE statement evaluates a full arithmetic expression using standard operator precedence (parentheses, then exponentiation, then multiplication and division, then addition and subtraction) and assigns the result to one or more receiving fields, which is often clearer than chaining several individual arithmetic verbs. Adding the ROUNDED phrase to any arithmetic statement, including COMPUTE, applies standard rounding to the least significant digit instead of truncating it, which matters for financial calculations where truncation would systematically undercount fractional cents. COMPUTE is generally preferred over separate ADD/SUBTRACT/MULTIPLY/DIVIDE statements whenever an expression involves more than one operator, since it reduces the number of intermediate working-storage fields needed.