Converting Between Representations

Data conversion in COBOL happens almost entirely behind the scenes, driven by the MOVE statement and the PICTURE clauses of the fields involved. Unlike languages where you must explicitly call functions like parseInt() or str(), COBOL automatically converts, pads, and truncates data based on the definition of the receiving item. This implicit conversion is powerful but can lead to subtle bugs if you don’t understand the rules.

In this lesson, we will explore exactly what happens when data is moved between different representations, how numeric data aligns, how alphanumeric data pads or truncates, and the special rules that govern group moves.

The Alphanumeric Padding Rule

When moving a shorter string to a longer alphanumeric field, COBOL pads the remainder with spaces on the right side. This ensures that the entire receiving field is initialized and no residual “garbage” data is left behind.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExAlphaPad.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SHORT-VAL PIC X(2) VALUE "AB".
       01 LONG-VAL PIC X(5).
       PROCEDURE DIVISION.
           MOVE SHORT-VAL TO LONG-VAL.
           DISPLAY "*" LONG-VAL "*".
           STOP RUN.

*AB   *

The Alphanumeric Truncation Rule

Conversely, when moving a larger string into a smaller alphanumeric field, COBOL simply truncates the excess characters on the right. The compiler will often warn about possible field truncation if it detects this at compile time.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExAlphaTrunc.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 LONG-VAL PIC X(5) VALUE "ABCDE".
       01 SHORT-VAL PIC X(2).
       PROCEDURE DIVISION.
           MOVE LONG-VAL TO SHORT-VAL.
           DISPLAY SHORT-VAL.
           STOP RUN.

AB

Numeric Alignment and Truncation

Numeric moves behave differently. Data is moved from right to left, typically aligning by the decimal point. If the receiving field is smaller, high-order digits may be truncated, which can silently alter the magnitude of the number. If the field has more integer positions, it pads with zeros on the left.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExNumTrunc.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 BIG-NUM PIC 9(4) VALUE 1234.
       01 SMALL-NUM PIC 9(2).
       PROCEDURE DIVISION.
           MOVE BIG-NUM TO SMALL-NUM.
           DISPLAY SMALL-NUM.
           STOP RUN.

34

Group Moves

One of the most frequent sources of bugs in COBOL is the group move. A group move operates without data conversion, moving left to right byte by byte, ignoring the internal definitions of the elementary items. It is treated exactly like an alphanumeric to alphanumeric move.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExGrpMove.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 GRP-1.
          05 NUM-1 PIC 9(2) VALUE 12.
          05 ALPHA-1 PIC X(2) VALUE "AB".
       01 GRP-2 PIC X(4).
       PROCEDURE DIVISION.
           MOVE GRP-1 TO GRP-2.
           DISPLAY GRP-2.
           STOP RUN.

12AB

Common Misconceptions

A very common mistake is assuming that moving a numeric value to an alphanumeric field automatically formats it nicely. The MOVE statement operates left to right, byte by byte in this context, similar to IBM COBOL. If you move a plain numeric item to an alphanumeric item, it just drops the bytes in.

To properly format numbers for display, you must use numeric-edited fields. Let’s see what happens if you try to move a raw numeric field directly. What do you think the output will be?

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExNumToAlpha.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM-VAL PIC 9(4) VALUE 1234.
       01 ALPHA-VAL PIC X(4).
       PROCEDURE DIVISION.
           MOVE NUM-VAL TO ALPHA-VAL.
           DISPLAY ALPHA-VAL.
           STOP RUN.

1234

Using a numeric-edited picture clause is the correct way to convert a numeric value into a readable string:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExNumEdit.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM-VAL PIC 9(4)V99 VALUE 1234.56.
       01 EDITED-VAL PIC $$,$$9.99.
       PROCEDURE DIVISION.
           MOVE NUM-VAL TO EDITED-VAL.
           DISPLAY EDITED-VAL.
           STOP RUN.

$1,234.56

Memory Layout and Truncation

To visualize how alphanumeric truncation works in memory, consider this diagram. It shows a 6-byte source field being moved into a 4-byte receiving field. The first 4 bytes are transferred, and the remaining 2 bytes are discarded.

By understanding these conversion rules, you can avoid common pitfalls such as high-order digit truncation or incorrect group move behavior, resulting in more robust and predictable COBOL programs.