尝试运行 COBOL 代码时获取"mismatched input '>' expecting {<EOF>, IDENTIFICATION, REPLACE}"

Question

在这里完成NOOB，只是想学习一些COBOL。我正在关注一个YT视频，由于这个错误，我逐字逐句写的代码无法运行。我需要安装另一个扩展吗？

>>SOURCE FORMAT FREE
IDENTIFICATION DIVISION.
PROGRAM-ID. coboltut.
AUTHOR. John Doe.
DATE-WRITTEN. November 24th 2021
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 UserName PIC X(30) VALUE "You".
01 Num1    PIC 9 VALUE ZEROS.
01 Num2    PIC 9 VALUE ZEROS.
01 Total PIC 99 VALUE 0.
01 SSNum.
02 SSArea   PIC 999
03 SSGroup  PIC 99
03 SSSerial PIC 9999
PROCEDURE DIVISION.
DISPLAY "WHAT IS YOUR NAME " WITH NO ADVANCING
ACCEPT UserName
DISPLAY "Hello " USERNAME


STOP RUN.

Answer 1

试试这个：

$ cat coboltut.cbl 
IDENTIFICATION DIVISION.
PROGRAM-ID. coboltut.
AUTHOR. John Doe.
DATE-WRITTEN. November 24th 2021
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 UserName PIC X(30) VALUE "You".
01 Num1    PIC 9 VALUE ZEROS.
01 Num2    PIC 9 VALUE ZEROS.
01 Total   PIC 99 VALUE ZEROS.
01 SSNum.
03 SSArea   PIC 999.
03 SSGroup  PIC 99.
03 SSSerial PIC 9999.
PROCEDURE DIVISION.
DISPLAY "WHAT IS YOUR NAME " WITH NO ADVANCING
ACCEPT UserName
DISPLAY "Hello " USERNAME
STOP RUN.

执行：

$ cobc -F -x coboltut.cbl 
$ ./coboltut
WHAT IS YOUR NAME Halley
Hello Halley