cobol语言简介

机缘巧合之下做一个老项目翻新的项目，从cobol到java，我也学习了cobol的一些知识，记载一下我的cobol语言的学习。

cobol语言简介

cobol:common business oriented language(公用面向商业语言)，这个语言目前使用面没有之前的广，也就需要了解对应cobol语言即可。不需要配置对应环境学习。

语言格式

如上图所示，在cobol程序中，1-6 列表示代码的序号区,代表当前序列，类似与行号。7列表示指示符区，如果是*，则表示此行为注释行。

程序结构

cobol代码遵循严格的程序结构规则，每个完成的程序都有四部分构成，依次为标志部、环境部、数据部和过程部，部与部之间的顺序不可更改。

标志部

• 标识：IDENTIFICATION DIVISION

• 作用：描述和程序相关的信息

• 字段：

   * PROGRAM-ID 必须，指明程序名
   * AUTHOR:作者
   * INSTALLATION：设计程序的公司或部门
   * DATE-WRITTEN：程序编写或者修改的日期
   * DATE-COMPILED：程序编译的日期
   * SECURITY：权限
  

000900*
001000 IDENTIFICATION                   DIVISION.
001100 PROGRAM-ID.                      ACOM01.
001200 AUTHOR.                          L.V.
001300*

环境部

• 标识：ENVIRONMENT DIVISION
• 作用：程序同外部系统环境之间的各种对应关系
• 分类：配置节和输入输出节
  

配置节

• 标识：CONFIGURATION SECTION
• 字符
  * SOURCE-COMPUTER：指示编译程序的计算机
  * OBJECT-COMPUTER：描述运行程序的计算机
  * SPECIAL-NAMES：制定符号

输入/输出节

cobol程序中，数据主要保存在文件中。数据的输入和输出都是以文件为对象进行的。主要讲程序中的逻辑文件同环境中的物理文件相互对应。

• 标识：INPUT-OUTPUT SECTION
• 分类：FILE-CONTROL、I-O-CONTROL
  

FILE-CONTROL

指定文件的对应关系，上图所示，SGCHJ和U01文件相互对应。CSV-FILE和CSVF相对应。也就是类似java类与类对应。

I-O-CONTROL

定义程序返回点

数据部

• 标识：DATA DIVISION
• 分节：文件节、工作存储节、连接节

文件节

• 标识：FILE-SECTION
• 作用：用于程序中用到的文件里的数据进行定义
  ** FD **
  使用FD语句实现对文件的定义。在FD语句中，通过PIC语句依次定义文件中每条记录的数据项。
  FD是 File Descriptor，即文件描述符，以. 结束语句。
  特性：
• RECORDING MODE IS F:文件记录格式，F = Fixed-length records 定长记录
• LABEL RECORDS ARE OMITTED： 文件记录的标号 OMITTRD多用于输出打印的文件，STANDARD
• RECORD CONTAINS 132 CHARACTERS：每条文件记录包含132个字符
• DATA RECORD IS PRINT-LINE：文件记录包含的文件名
• BLOCK CONTAINS n RECORDS：一个数据块包含多少条记录

定义数据主要有数据组和数据项组成。
数据组层从01到49，可以不连续。

** PIC **
PICTURE，用于定义数据的类型和长度， X表示字符，9 表示数字。
X(3) == XXX
9(2) == 999

工作储存节

• 标识：WORKING-STORAGE SECTION
• 作用： 定义程序中用到的各种数据
  

过程部

• 标识：PROCEDURE DIVISION
• 作用：过程部是程序中最重要的步骤