///
IDENTIFICATION DIVISION.
PROGRAM-ID. FEC.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N1 PIC 99.
77 N2 PIC 99.
77 SOMA PIC 9999.
01 xStr PIC X(50) VALUE "O mundo cheio"
PROCEDURE DIVISION.
COMPUTE N1 = 87
COMPUTE N2 = 35
MULTIPLY N1 BY N2 GIVING SOMA
DISPLAY SOMA DISPLAY "Oper:" xStr(9:3)
STOP RUN.A seguir, é apresentado o resultado correto do código COBOL acima.