coboｌ教育学习資料.doc

简介

COBOL是COMMONBUSINESSORIENTEDLANGUAGE(通用商业语言)主要供数据处理用，是专门为管理上使用而设计的语言，所处理的问题具有数据繁多，运算简单，逻辑处理多，输入输出量大。

程序结构

部

分四个部，部头为：

IDENTIFICATIONDIVISION.

(指出源程序的名称，日期，作者等备忘信息。)

ENVIRONMENTDIVISION.

(程序用到的数据文件名和外部设备的联系。)

DATADIVISION.

（程序中用到的全部数据，包括输入输出数据和中间数据，都要在此说明类型和占内存的情况）

PROCEDUREDIVISION.

（给出程序要执行的指令，是唯一的执行部分，程序的核心。

四大部分缺一不可，即使下面无内容，也要写上部头。

节

部头下面分若干节，有节头，如(PROCEDUREDIVISION的)MAINSECTION.节下面又可包括若干段，有自己的名字。例如(IDENTIFICATIONDIVISION的)PROGRAMID.

3.句子，语句

一个语句有一个动词，一个句子有一个点。

书写格式

6列：标号区，行号，可写可不写。

7列：续行区一个词没写完，下一行接着写的时候，要用在下一行此位置写“—”注释行要在这写“*”。

8-11列：内容：部头，节头，段头，01层，77层号，FD应该从此区写。

12-72列：正文区，过程部的内容要在这里写。

**指程序不是数据**

注意：

所有字母大写。

相邻字间有空格。

运算符和等号两边有空格，左括号左边，右括号右边要有空格。

逗号，句号，分号的左边不能有，右边有空格。

一个空格和多个空格作用相同。

常量与变量

变量名用“-”而不用“_”。

数值常量不能把小数点放在最后。

字符串用双引号。

数据类型

表意常量：ZERO,SPACE,HIGH-VALUE,LOW-VALUE,ALL

设备部ENVIRONMENTDIVISION.

配置节（CONFIGURATIONSECTION）

下有SPECIAL-NAMES.段（专用名）用来通知系统把系统中原规定的一些设备名或功能名都赋予一个特定的专用名。用法例：ENVIRONMENTNAMEISENV-NAME.

ENVIRONMENTVALUEISENV-VALUE.

输入输出节（INPUT-OUTPUTSECTION.）

下有FILE-CONTROL.段，如果程序中用到输入输出文件，就应该在这个节把文件与外部设备联系起来。比如：

INPUT-OUTPUTSECTION.

FILECONTROL.

SELECTA1ASSIGNTOPRINTER.

SELECTA2ASSIGNTOSYS010.

如果在程序中有

WRITEA1-REC.

WRITEA2-REC.

A1-REC和A2-REC是A1和A2文件的记录名。

将向打印机或文件输出一条记录。对于A2,要在程序运行时指定SYS010对应的物理文件名。

注意：

SELECT要从B区开始写。

多个文件名分配到一个外部装置时，不能写在一句中，要分开写。例如下面的写法是错误的：

SELECTA1,A2,A3ASSIGNTOSYS010.

数据部DATADIVISION.

数据的层次和层号：

层次：记录—组合项—初等项。

初等项是逻辑上不能再分的项目，包含若干初等项的项目是组合项，组合项还可以包括组合项。组合项的最高层次是记录，它是存取内存的最大单位。以层次组织，层号大的项目从属于层号小的项目。

层号：01-49表示各层项目，77层用来表示孤立的初等项目，其它的组合项目01层是记录层，必须有。层号可以不连续，在同一组合项目下面，小层号第一次出现前不能出现比它大的层号。一个组合项包括它下面层号更大的组合项和初等项，直到相同层号出现为止。

注意：引用项目时可以直接用项目名，但是如果不同的组合项目有相同的子项，比如：

TEACHER.

03NAMEPICX(10).

STUDENT

03NAMEPICX(8).

则在用到NAME时，要说明从属于哪个组合项，如：

NAMEOFTEACHER

NAMEOFSTUDENT.

数据类型

数值型：

9型，例如: