COBOL谭浩强版学习笔记

COBOL 资料整理COBOL 语言概述一COBOL 程序的结构1部IDENTIFICATION DIVISION 标识部ENVIRONMENT DIVISION 环境部DATA DIVISION 数据部PROCEDURE DIVISION 过程部2节（SECTION）和段（ PARAGRAPH）（1）部-节-段（2）标识部下面不设节，直接设段（3）过程部可以设节，下面再设段，也可以直接设段3句子、语句和子句每一段由若干句子（Sentence）组成，一个句子以句号加上一个以上的空格来结束。句子由语句（Statement）组成。语句中又可以包含若干子句（clause） ，每一个子句也有一个动词（但这个动词往往是可以省略的） ，它指定某一方面的特定功能。二COBOL 源程序的书写格式11-6 列：标号区2第 7 列：续行标志区（“-”为续行， “*”为注解）38-11 列：A 区（部头，节头，段头，层号 01、77，文件描述符 FD 等）412-72 列：B 区（正文）573-80 列：注释区三COBOL 字符数字 0-9，大写字母 A-Z，小写字母 a-z，专用字符 15 个 + - * / = , . ; ( ) $ 空格 四常量1数值常量（1）小数点不能多于一个，而且不能出现在常数最右边。（2）数值常量的长度不能超过 18 位数字。（3）至少要有一个数字，不能有多于一个符号。（4）数字间不能有空格，空格是分界符。2非数值常量（1）用 把字符串包起来（2）假如要把 放到非数值常量中，用 QUOTE 保留字，如 MOVE QUOTE CHINAQUOTE TO A（3）长度不应超过 120 个字符。3表意常量表意常量 所表示的值ZERO/ZEROS/ZEROES 表示一个或多个零字符SPACE/SPACES 表示一个或多个空格字符HIGH-VALUE/HIGH-VALUES表示一个或多个具有“最高值”的字符（每个字符的二进制表示为 11111111）LOW-VALUE/LOW-VALUES 表示一个或多个具有“最小值”的字符（每个字符的二进制表示为 00000000）QUOTE/QUOTES 表示一个或多个引号字符ALL 常量 表示由一个或多个该常量组成的字符串五COBOL 的数据关系文件记录 1记录 i记录 n组合项 1组合项 i组合项 n初等项组合项 p组合项 q初等项初等项初等项初等项过程部初步一输入输出语句1ACCEPT（接收语句）：直接从中断键盘或系统指定的输入设备上输入少量的数据。语法：ACCEPT 标识符 FROM 助忆名2READ（读语句）：从外部文件上读入数据输到程序中的数据项中。语法：READ 文件名 RECORD INTO 标识符；AT END 执行语句3WRITE（写语句）：将内存区中的数据输出到外部设备语法：WRITE 记录名 FROM 标识符 1BEFORE ADVANCING 标识符 2/整数 LINE/LINESAFTER 助忆名/PAEG4OPEN（打开语句）：程序若要读和写文件，先要把文件打开语法：OPEN INPUT/OUPUT 文件名 1，文件名 25CLOSE（关闭语句）：关闭文件。语法：CLOSE 文件名 1，文件名 2二算术运算语句1ADD（加法语句）举例：ADD A TO B A+BBADD 15 TO C 15+CCADD A，B TO C A+B+CCADD 15，25 TO C 15+25+CCADD A，B GIVING C A+B-CADD 15，25 GIVING T 15+25TADD A，B TO C，D A+B+CC,A+B+DD2SUBTRACT（减法语句）举例：SUBTRACT B FROM A A-BASUBTRACT B，C FROM A A-B-CASUBTRACT B，C FROM A，T A-B-CA,T-B-CTSUBTRACT B，C FROM A GIVING X A-B-CX3MULTIPLY （乘法语句）举例：MULTIPLY A BY B A*BBMULTIPLY 0.5 BY B 0.5*BBMULTIPLY A BY B GIVING C A*BCMULTIPLY 1.5 BY 3 GIVING C,A 1.5*3C,1.5*3AMULTIPLY A BY B,C A*BB,A*CC4DIVIDE（除法语句）举例：DIVIDE A INTO B B/ABDIVIDE A INTO B GIVING C B/ACDIVIDE A BY B GIVING C A/BC5COMPUTE（计算语句）语法：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 THANIS THAN大于IS LESS THANIS 不大于NOT LESS THANNOT 0 等价（2）IF X IS NEGATIVE 与 IF X0 等价（3）IF X IS ZERO 与 IF X=0 等价4类型条件格式：标识符 IS NOT NUMERIC/ALPHABETIC其中，NUMERIC 表示数值类型，ALPHABETIC 表示字母类型。5条件名