Um dado programa COBOL possui o seguinte código:
IDENTIFICATION DIVISION.
PROGRAM-ID. MULTIPLIC RECURSIVE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 IND PIC 9(02) VALUE 4.
77 AUX PIC 9(04) VALUE 0.
LOCAL-STORAGE SECTION.
01 VALOR PIC 9(04).
PROCEDURE DIVISION.
INICIO.
MOVE IND TO VALOR.
IF IND = 2
MOVE 3 TO AUX
ELSE
SUBTRACT 1 FROM IND
CALL ‘MULTIPLIC’
COMPUTE AUX = AUX + VALOR * 2
END-IF.
DISPLAY ‘AUX=’ AUX.
GOBACK.
END PROGRAM MULTIPLIC.
Ao final da execução, tal programa apresentará
AUX=0009
AUX=0015
AUX=0003
AUX=0012
AUX=0032
AUX=0003
AUX=0003
AUX=0009
AUX=0003
AUX=0009
AUX=0017
AUX=0003