COBOL语言概述

COBOL语言概述

一．COBOL程序的结构

1．部

IDENTIFICATION DIVISION 标识部

ENVIRONMENT DIVISION 环境部

DATA DIVISION 数据部

PROCEDURE DIVISION 过程部

2．节（SECTION）和段（PARAGRAPH）

（1）部-节-段

（2）标识部下面不设节，直接设段

（3）过程部可以设节，下面再设段，也可以直接设段

3．句子、语句和子句

每一段由若干句子（Sentence）组成，一个句子以句号加上一个以上的空格来结束。

句子由语句（Statement）组成。

语句中又可以包含若干子句（clause），每一个子句也有一个动词（但这个动词往往是可以省略的），它指定某一方面的特定功能。

二．COBOL源程序的书写格式

1．1-6列：标号区

2．第7列：续行标志区（“-”为续行，“*”为注解）

3．8-11列：A区（部头，节头，段头，层号01、77，文件描述符FD等）4．12-72列：B区（正文）

5．73-80列：注释区

三．COBOL字符

数字0-9，大写字母A-Z，小写字母a-z，

专用字符15个{ + - * / = , . ; ‘ ( ) < > $ 空格 }

四．常量

1．数值常量

（1）小数点不能多于一个，而且不能出现在常数最右边。

（2）数值常量的长度不能超过18位数字。

（3）至少要有一个数字，不能有多于一个符号。

（4）数字间不能有空格，空格是分界符。

2．非数值常量

（1）用’’把字符串包起来

（2）假如要把’’放到非数值常量中，用QUOTE保留字，

如MOVE QUOTE ‘CHINA’QUOTE TO A

（3）长度不应超过120个字符。

五．COBOL的数据关系

过程部初步

一．输入输出语句

1．ACCEPT（接收语句）：直接从中断键盘或系统指定的输入设备上输入少量的数据。

语法：ACCEPT 标识符 [FROM 助忆名]

2．READ（读语句）：从外部文件上读入数据输到程序中的数据项中。

语法：READ 文件名 RECORD [INTO 标识符][；AT END 执行语句]

3．WRITE（写语句）：将内存区中的数据输出到外部设备

语法：

WRITE 记录名 [FROM 标识符1][BEFORE ADVANCING 标识符2/整数 LINE/LINES] AFTER 助忆名/PAEG

4．OPEN（打开语句）：程序若要读和写文件，先要把文件打开

语法：OPEN INPUT/OUPUT 文件名1[，文件名2……]

5．CLOSE（关闭语句）：关闭文件。

语法：CLOSE 文件名1[，文件名2……]

二．算术运算语句

1．ADD（加法语句）

举例：ADD A TO B A+BaB

ADD 15 TO C 15+CaC

ADD A，B TO C A+B+CaC

ADD 15，25 TO C 15+25+CaC

ADD A，B GIVING C A+B–C

ADD 15，25 GIVING T 15+25aT

ADD A，B TO C，D A+B+CaC,A+B+DaD

2．SUBTRACT（减法语句）

举例：SUBTRACT B FROM A A-BaA

SUBTRACT B，C FROM A A-B-CaA

SUBTRACT B，C FROM A，T A-B-CaA,T-B-CaT

SUBTRACT B，C FROM A GIVING X A-B-CaX

3．MULTIPLY（乘法语句）

举例：MULTIPLY A BY B A*BaB

MULTIPLY 0.5 BY B 0.5*BaB

MULTIPLY A BY B GIVING C A*BaC

MULTIPLY 1.5 BY 3 GIVING C,A 1.5*3aC,1.5*3aA

MULTIPLY A BY B,C A*BaB,A*CaC

4．DIVIDE（除法语句）

举例：DIVIDE A INTO B B/AaB

DIVIDE A INTO B GIVING C B/AaC

DIVIDE A BY B GIVING C A/BaC

5．COMPUTE（计算语句）

语法：COMPUTE 标识符1[，标识符2]……=算术表达式

举例：COMPUTE T = （A + B） * C / D

注意：（1）所以运算符两侧应留一空格

（2）括号外侧应留空格，内侧可不要留空格

三．MOVE（传送语句）

语法：MOVE 标识符1/常量1 TO 标识符2[，标识符3]……

四．GOTO（转移语句）

语法：（1）GO TO 过程名

（2）GO TO 过程名1[，过程名2]……过程名n，DEPENDING ON 标识符

五．IF（条件语句）

1．关系运算符

COBOL关系运算符意义

IS GREATER THAN

IS > THAN 大于

IS LESS THAN

IS < THAN 小于

IS EQUAL TO

IS = TO 等于

NOT GREATER THAN

NOT > 不大于

NOT LESS THAN

NOT < 不小于

NOT EQUAL TO

NOT = 不等于

2．IF语句的两种形式

（1）IF 条件语句组

（2）IF 条件语句组1 ELSE 语句组2

3．IF语句的一般格式

IF 语句组1/NEXT SENTENCE [ELSE 语句组2/NEXT SENTENCE] 六．STOP（停止语句）

语法：STOP RUN/常量

标识部和环境部

一．标识部

1．必写部分

IDENTIFICATION DIVISION

PROGRAM-ID. 程序名.

2．任选部分

[AUTHOR 作者姓名.]

[INSTALLATION. 计算机设置的场所.]

[DATE-WRITTEN. 源程序编写的日期.]

[DATE-COMPILED. 源程序编译的日期.]

[SECURITY. 保密程度.]

二．环境部

1．环境部的一般形式

ENVIRONMENT DIVISION. （环境部）

CONFIGURATION SECTION. （配置节）

SOURCE-COMPUTER. 源计算机名

OBJECT-COMPUTER. 目标计算机名

[SPECIAL-NAMES. 专用名描述项]

[INPUT-OUTPUT SECTION. （输入输出节）

FILE-CONTROL. {文件描述体}……

[I-O-CONTROL. 输入输出控制描述体]]