COBOL也许你认为听过,或者从来没听过,大多数人都认为 COBOL 是上个世纪的语言。
事实上在银行和金融机构仍然在大量使用。俺在某处读到过,超过70%的业务事务是通过用COBOL编写的程序完成的。
原因有很多。首先,该语言是为该用例设计的。
毕竟,它被称为面向业务的通用语言。
另一个原因是它非常古老。它诞生于1959年,从一开始就被用于制造这些系统,没有人会去改变那些运行良好的程序,银行和金融机构更不会动,万一产生bug,那可就惨了
这些程序非常重要,它们只是被维护和改进,而不是从头开始重写。
本文目标是向大家快速介绍这门语言,以便下次听到COBOL时,您知道它是什么。
安装GNU COBOL编译器
在Mac中,可以使用Homebrew
brew install gnu-cobol
安装完成后,就可以终端命令上输入以下命令查看 COBOL 的使用手册:
man cobc
俺在网上找到了一些关于安装IDE(集成开发环境)的文章,但是你不需要用它来测试。
在.cob文件中编写COBOL程序,并使用它进行编译:
cobc -x <filename>.cob
编写第一个程序HelloWorld
接下来我们需要安装一下关于Vs Code COBOL 的拓展,俺是安装的最受欢迎的拓展。
然后,我们创建一个hello. cob 文件,可以很明显的看到拓展为该文件提供了高亮功能。
输入以下代码:
HELLO
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY "Hello, World!".
STOP RUN.
在终端输入以下命令,编译:
cobc -x hello.cob
最后运行编译生成的二进制文件
./hello
一切正常的情况下,我们将会看到终端输出了Hello World。 这也太酷了吧?兄dei
下面我们挑战一些高难度的。
挑战-计算用户输入的两个数字
创建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 小程序。