IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 n PIC Z9 .
77 A PIC Z9 .
PROCEDURE DIVISION.
ACCEPT n
DISPLAY n
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gU0FNUExFLgoKCUVOVklST05NRU5UIERJVklTSU9OLgoKCURBVEEgRElWSVNJT04uCglXT1JLSU5HLVNUT1JBR0UgU0VDVElPTi4KCTc3IG4gUElDIFo5IC4KICAgICAgICA3NyBBIFBJQyBaOSAuCgoJUFJPQ0VEVVJFIERJVklTSU9OLgoJCUFDQ0VQVCBuCgoJCQlESVNQTEFZIG4KCQlTVE9QIFJVTi4=
prog.cbl: 15: error: syntax error, on or before '.'
prog.cbl: 15: error: unknown or wrong statement, on or before '.'