IDENTIFICATION DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 aaa PIC 9(5).
PROCEDURE DIVISION.
A0-MAIN
MOVE 00001 TO aaa.
DISPLAY aaa.
STOP RUN.
SURFTlRJRklDQVRJT04gRElWSVNJT04uCiAgICAgICBEQVRBIERJVklTSU9OLgogICAgICAgV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCiAgICAgICAwMSAgYWFhIFBJQyA5KDUpLgogICAgICAgUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgQTAtTUFJTgogICAgICAgICAgIE1PVkUgMDAwMDEgVE8gYWFhLgoJICAgRElTUExBWSBhYWEuCgkgICBTVE9QIFJVTi4K
prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID