COBOL入门教程

COBOL入门教程

COBOL也许你认为听过,或者从来没听过,大多数人都认为 COBOL 是上个世纪的语言。

事实上在银行和金融机构仍然在大量使用。俺在某处读到过,超过70%的业务事务是通过用COBOL编写的程序完成的。

原因有很多。首先,该语言是为该用例设计的。

毕竟,它被称为面向业务的通用语言。

另一个原因是它非常古老。它诞生于1959年,从一开始就被用于制造这些系统,没有人会去改变那些运行良好的程序,银行和金融机构更不会动,万一产生bug,那可就惨了

这些程序非常重要,它们只是被维护和改进,而不是从头开始重写。

本文目标是向大家快速介绍这门语言,以便下次听到COBOL时,您知道它是什么。

安装GNU COBOL编译器

在Mac中,可以使用Homebrew

brew install gnu-cobol

安装完成后,就可以终端命令上输入以下命令查看 COBOL 的使用手册:

man cobc
COBOL入门教程

俺在网上找到了一些关于安装IDE(集成开发环境)的文章,但是你不需要用它来测试。

在.cob文件中编写COBOL程序,并使用它进行编译:

cobc -x <filename>.cob

编写第一个程序HelloWorld

接下来我们需要安装一下关于Vs Code COBOL 的拓展,俺是安装的最受欢迎的拓展。

COBOL入门教程

然后,我们创建一个hello. cob 文件,可以很明显的看到拓展为该文件提供了高亮功能。

输入以下代码:

HELLO
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.
       PROCEDURE DIVISION.
           DISPLAY "Hello, World!".
           STOP RUN.

在终端输入以下命令,编译:

cobc -x hello.cob

最后运行编译生成的二进制文件

./hello

一切正常的情况下,我们将会看到终端输出了Hello World。 这也太酷了吧?兄dei

COBOL入门教程

下面我们挑战一些高难度的。

挑战-计算用户输入的两个数字

创建sum.cob文件,并输入以下代码:

HELLO
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDITION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 NUM_1 PIC 9(4).
       77 NUM_2 PIC 9(4).
       77 SOLVE_SUM PIC 9(4).
       PROCEDURE DIVISION.
       PARA.
       DISPLAY "First number: ".
       ACCEPT NUM_1.
       DISPLAY "Second number: ".
       ACCEPT NUM_2.
       COMPUTE SOLVE_SUM = NUM_1 + NUM_2.
       DISPLAY "Sum: " SOLVE_SUM.
       STOP RUN.

与上面的步骤同样,编译,执行。

cobc -x sum.cob
./sum

输入两个数字,程序将会帮我们自动计算出结果。

COBOL入门教程

恭喜你!编写完成了两个 COBOL 小程序。

(8)
上一篇 2020年5月8日 下午7:01
下一篇 2020年5月9日 上午11:17

发表回复

登录后才能评论