cobol介绍

英文缩写: COBOL (Common business Oriented Language)

中文译名: COBOL语言

解释: 一种适合于商业及数据处理的类似英语的程序设计语言。这种语言可使商业数据处理过程精确表达。

COBOL（面向商业的通用语言，又称为企业管理语言、数据处理语言等，Common Business Oriented Langauge）是最早的高级编程语言之一，是世界上第一个商用语言。

1 COBOL的历史

1959年5月，五角大楼委托格雷斯·霍波（G.Hopper）博士领导一个委员会并由Rear Admiral Grace Hopper公司主持开发，并于1961年由美国数据系统语言协会公布。正式发布于1960年4月，称为Cobol－60。1959年12月出现了第一个COBOL语言文本，并于1960年4月正式发表，因此也被称为COBOL-60。1968年美国国家标准委员会ANSI 又通过了新的标准ANSI COBOL X.3.23-1968。1972年国际标准化组织ISO将其作为ISO COBOL-72。1974年ANSI对COBOL-68作出了修订扩充，形成了ANSI COBOL X3.23-1974，随后1978年ISO采用其形成ISO COBOL-78，后来又提出了ANSI X3.23-85，增加了很多结构化程序设计的内容，ISO标准ISO1989:1985也采用了该标准。COBOL 标准还在不断地改进和完善，最新的标准COBOL 2002主体已经于2002年12月出版，其他部分还在不断地完善之中。现在最新的版本是Cobol－2002。

1963年，美国国家标准研究所(ANSI)进行了标准化，但是ANSI标准很少被遵循；因此，COBOL程序只是部分可移植的。

2 COBOL的重要性

经过40多年的不断修改、丰富完善和标准化，COBOL已发展为多种版本的庞大语言，在财会工作、统计报表、计划编制、情报检索、人事管理等数据管理及商业数据处理领域，都有着广泛的应用。

COBOL的重要性可以用这句话来描述：世界上70％的数据都是用COBOL语言处理的，并且90％的A TM事务处理用的都是COBOL语言。每天在线处理的COBOL事务有300亿次。500强中有492家（包括全部的100强）使用了COBOL语言，目前在COBOL方面的投资已经超过3万亿美元，，据称用COBOL书写的程序超过了1000亿行，并且以每年大约50亿行代码的速度在增长。

由于COBOL在商业领域的雄厚基础，而且COBOL主要是应用于银行、金融和会计行业等非常重要的商业数据处理领域。所以，即使对于具有相当经验的IT公司来说，重新编写COBOL语言的可靠的应用软件也是不实际或是从商业角度上并不可行的，而且还要花上很长的时间，只要大型机存在，COBOL就不会消失，即使是对电脑界产生巨大影响的“千年虫”（Y2K）也没有改变COBOL的命运。

3 COBOL的特点

COBOL是一种面向数据处理的、面向文件的、面向过程(POL)的高级编程语言，是一种功能很强而又极为冗长的语言。

COBOL适合于具有循环处理周期的环境(例如打印工资支票)以及数据操纵量相当大的环境。COBOL主要应用于商业数据处理领域，对各种类型的数据进行收集、存储、传送、分类、排序、计算及打印报表、输出图象是它的强项。

COBOL语法与英文很接近，即使不懂电脑的人也能看懂程序。

强大的文件处理功能，大量的数据通常以文件的形式存储在磁盘上。

仅提供了加、减、乘、除及乘方这五种简单的算术运算，因而不适于进行科学计算。

未来的COBOL将支持XML等Web时代的新技术。

4 COBOL的程序结构

COBOL程序由4部(DIVISION)组成：IDENTIFICATION DIVISION.(标识部)、ENVIRONMENT DIVISION.(环境部)、DA TA DIVISION.(数据部)、PROCEDURE DIVISION.(过程部)，而每个部又由若干节(SECTION)组成

1．编码格式

第1～６列为序号区，用于表示行号。行号不是必须的，也不必是顺序的，甚至可以是本机字符集中的任意字符，但正确的行号是很重要的。

第7列为指示区，可以包含如下指示符：

"*"指示本行内容为注释。

"-"指示本行代码为上一行的延续。

"D"指示本行代码为调试代码，将在启用DEBUGGING模式时被编译，未启用时将被忽略。"/"指示编译器为源码列表开始新的一页，并且本行将被视为注释。

第8～11列为A区。下列项必须从A区开始：

部标题（DIVISION）

节标题（SECTION）

段名（段标题）

层指示符FD和SD，层号01和77

DECLARATIVES 和END DECLARATIVES

END PROGRAM

第12～72列为B区。作为程序主体的条目(entries)，句子(sentences)，语句(statements)，从句(clauses)和续行(/)等都必须从B区开始。

*句法说明：

节(SECTIONs)和段(paragraphs)定义了程序，它们又细分为以下部分：

条目(entries)：以句点(.)结尾的一系列从句。构造于标识部、环境部和数据部。

从句(clauses)：连续的COBOL字符串的有序集合，用于指定条目的某个属性。构造于标识部、环境部和数据部。

句子(sentences)：以句点(.)结尾的一个或多个语句的序列。构造于过程部。

语句(statements)：指定程序要执行的某个动作。构造于过程部。

短语(phrases)：构成从句和语句的更小单元。

2．基本结构

----|----1----|----2----|----3----|----4----|----5----|----6----|----7----|----8

//标识部

000001 IDENTIFICATION DIVISION.

000002 PROGRAM-ID. PGMNAME. //指定本程序名。此段是必须的，并且必须排在标识部的最前头。

//环境部

000003 ENVIRONMENT DIVISION.

//配置节

000004 CONFIGURATION SECTION.

000005 SOURCE-COMPUTER. IBM-PC WITH DEBUGGING MODE. //WITH从句指定启用调试代码。

000006 OBJECT-COMPUTER. IBM-PC.

000007 SPECIAL-NAMES.

000008 CURRENCY-SIGN IS $. //指定货币符号为"$"。

000009 DECIMAL-POINT IS COMMA. //在PIC字符串或数字字面值中交换逗号","和小数点"."的功能。

//输入输出节

000010 INPUT-OUTPUT SECTION.

000011 FILE-CONTROL. //命名程序所用文件，并将其与外部文件相关联。

000012 SELECT INPUT-FILE ASSIGN TO "IN.DAT".

//数据部

000013 DATA DIVISION.

//文件节

000014 FILE SECTION. //定义数据文件的结构。

000015 FD INPUT-FILE. //File Description.后面的文件名必须与前面SELECT语句中的一致。

000016 01 INPUT-RECORD-1 PIC X(100). //描述文件属性及与其关联的数据记录（可以是多个）。

000017 01 INPUT-RECORD-2 //同一存储区域的另一种定义。重定义INPUT-RECORD-1。

000018 03 ITEM-1 PIC X(20).

000019 03 ITEM-2 PIC X(80).

//工作存储节，描述程序处理过程中所涉及的不属于文件的数据记录。