COBOL

COBOL 是一种编程语言，起源于计算机开发的早期，即 20 世纪 50 年代后期，至今仍在使用。 这种编程语言的风格强烈基于自然语言，主要用于编写商业应用程序。

缩写 COBOL 代表“通用面向业务的语言”。

最初，COBOL 只是用大写字母编写的，因为只有没有小写字母的打孔卡和行式打印机可用。 即使在今天，也不区分大写和小写。 COBOL因此不区分大小写。一个COBOL程序分为部分（DIVISION）、章节（SECTION）和部分（PARAGRAPH）。

四个 DIVISION 按其特定顺序排列：

• 带有程序名称的标识部分和一些基本上已过时的评论段落；
• 环境部门，其中定义了操作系统及其文件系统的接口；
• 定义程序变量和数据结构的数据部门
• 带有程序说明的程序划分。

这显示了 COBOL 特征的数据声明和过程语句的严格分离。 在过程部分，您只能使用先前在数据部分声明过的变量。 格式化输出的外观不是在过程部分定义的，而是在数据部分由 PICTURE 子句定义的。 REPORT WRITER 可以在数据部分将打印列表的结构完全描述为页面的物理结构和带有组总计的项目行的逻辑结构等，而过程部分不必处理它。

COBOL 中的传统编码方案对应于具有 80 列的穿孔卡，书写位置。前 6 个位置保留用于行编号。 保留第 7 列以指示注释行、续行或仅为调试而编译的行。 第 8 至 11 栏（区域 A）包含部门、章节和段落的名称。 第 12 至 72 列（区域 B）包含其他所有内容，例如语句。 第 73 至 80 列用于其他标记。 B. 提供的程序或源代码元素的名称。

...发生在数据部门

• 文件及其记录结构在文件部分进行了描述。
• 静态（全局）变量在工作存储部分中定义。
• 自动（本地或动态）变量在本地存储部分定义。 （见堆栈）
• 调用参数在链接部分定义。
• 复杂的打印列表在报告部分定义。
• 屏幕部分中的屏幕输入和输出。

COBOL 提供了许多用于声明变量的子句，其中最重要的是层数、PICTURE 子句和 USAGE 子句。

层数

层数 77 表示独立变量。 层数 01 也可以表示独立变量，但通常在组声明之前——在其他语言中称为记录（Pascal 等）或结构（C++、C 等）。 级别编号 02 到 49 然后标识从属于该组的数据声明，它们本身也可以是组。 没有子数据声明（即具有更高级别编号）的数据声明在 COBOL 中称为基本项，否则为组变量（组项）。 这样的数据声明可抽象地表示为一棵树； 将组作为节点，将基本项目作为叶子——数据格式通过 PIC 子句分配给它们。

使用特殊级别编号 66，您可以为整个内存区域指定一个不同的名称，使用 88，您可以定义一个条件名称，它可以像 IF 语句中的布尔表达式一样使用，例如。

级别编号通常用两位数字书写。 在组定义中分配级别编号的习惯不是连续的，而是以 5 或 10 为步长，来自打孔卡片的时代，因为那样你就可以插入中间级别而不必再次打整副卡片。

内部和外部数据格式

外观和内部表示基本上由 PICTURE 和 USAGE 条款决定。 用USAGE COMP进行二进制运算和比较运算，USAGE DISPLAY用于显示。 使用 USAGE COMP-3 可以直接进行算术运算和比较（小于/等于/大于...）。

PICTURE 之后的信息指定了数字/字符的数量或编辑符号，例如小数点或千位分隔符、符号、货币符号、虚数小数点分隔符 (V) 等。 您将基本变量指定为字母、字母数字、数字或数字编辑。 如果数值格式不一致的变量参与算术运算，其中一个或两个数据域自动转换为（用于运算） ) 转换的有效格式。

可见输出的格式由数据声明决定，而不是像 Pascal 或 C 等语言中那样由过程语句决定。