1、COBOL 资料整理 COBOL 语言概述 一 COBOL 程序的结构 1部 IDENTIFICATION DIVISION 标识部 ENVIRONMENT DIVISION 环境部 DATA DIVISION 数据部 PROCEDURE DIVISION 过程部 2节（ SECTION）和段（ PARAGRAPH） （ 1）部 -节 -段 （ 2）标识部下面不设节，直接设段 （ 3）过程部可以设节，下面再设段，也可以直接设段 3句子、语句和子句 每一段由若干句子（ Sentence）组成，一个句子以句号加上一个以上的空格来结束。 句子由语句（ Statement）组成。 语句中又可以包含若干
2、子句（ 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）小数点不能多于一个，而且不能出现在常数最右 边。 （
3、 2）数值常量的长度不能超过 18 位数字。 （ 3）至少要有一个数字，不能有多于一个符号。 （ 4）数字间不能有空格，空格是分界符。 2非数值常量 （ 1）用把字符串包起来 （ 2）假如要把放到非数值常量中，用 QUOTE保留字， 如 MOVE QUOTE CHINA QUOTE TO A （ 3）长度不应超过 120 个字符。 3表意常量 表意常量 所表示的值 ZERO/ZEROS/ZEROES 表示一个或多个零字符 SPACE/SPACES 表示 一个或多个空格字符 HIGH-VALUE/HIGH-VALUES 表示一个或多个具有“最高值”的字符（每个字符的二进制表示为 11111111
4、） LOW-VALUE/LOW-VALUES 表示一个或多个具有“最小值”的字符（每个字符的二进制表示为 00000000） QUOTE/QUOTES 表示一个或多个引号字符 ALL 常量 表示由一个或多个该常量组成的字符串 五 COBOL 的数据关系 文件 记录 1 记录 i 记录 n 组合项 1 组合项 i 组合项 n 初等项 组合项 p 组合项 q 初等项 初等项 初等项 初等项 过程部初步 一输入输出语句 1 ACCEPT（接收语句）：直接从中断键盘或系统指定的输入设备上输入少量的数据。 语法： ACCEPT 标识符 FROM 助忆名 2 READ（读语句）：从外部文件上读入数据输到程
5、序中的数据项中。 语法： READ 文件名 RECORD INTO 标识符 ； AT END 执行语句 3 WRITE（写语句）：将内存区中的数据输出到外部设备 语法： WRITE 记录名 FROM 标识符 1BEFORE 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
6、+BB ADD 15 TO C 15+CC ADD A， B TO C A+B+CC ADD 15， 25 TO C 15+25+CC ADD A， B GIVING C A+B-C ADD 15， 25 GIVING T 15+25T ADD A， B TO C， D A+B+CC,A+B+DD 2 SUBTRACT（减法语句） 举例： SUBTRACT B FROM A A-BA SUBTRACT B， C FROM A A-B-CA SUBTRACT B， C FROM A， T A-B-CA,T-B-CT SUBTRACT B， C FROM A GIVING X A-B-CX 3 M
7、ULTIPLY（乘法语句） 举例： MULTIPLY A BY B A*BB MULTIPLY 0.5 BY B 0.5*BB MULTIPLY A BY B GIVING C A*BC MULTIPLY 1.5 BY 3 GIVING C,A 1.5*3C,1.5*3A MULTIPLY A BY B,C A*BB,A*CC 4 DIVIDE（除法语句） 举例： DIVIDE A INTO B B/AB DIVIDE A INTO B GIVING C B/AC DIVIDE A BY B GIVING C A/BC 5 COMPUTE（计算语句） 语法： COMPUTE 标识符 1，标识符
8、 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 不大于 NOT LESS THAN NOT 0 等价 （ 2） IF X IS NEGATIVE 与 IF X0 等价 （ 3） IF X IS ZERO 与 IF X=0 等价 4类型条件 格式：标识符 IS NOT NUMERIC/ALPHABETIC 其中， NUMERIC 表示数值类型， ALPHABETIC 表示字母类型。 5条件名条件 作 用：用来代替一系列繁杂的 IF-ELSE语句。 格式： 88 条件名 VALUE IS/ARE 常量 1THROUGH/THRU 常量 2 常量 3THROUGH/THRU 常量 4 举例：首先在数据部说明
