COBOL语言总结.docx

1、COBOL语言总结COBOL语言概述一COBOL程序的结构 1部IDENTIFICATION DIVISION 标识部ENVIRONMENT DIVISION 环境部DATA DIVISION 数据部PROCEDURE DIVISION 过程部 2节（SECTION）和段（PARAGRAPH） （1）部-节-段（2）标识部下面不设节，直接设段（3）过程部可以设节，下面再设段，也可以直接设段 3句子、语句和子句 每一段由若干句子（Sentence）组成，一个句子以句号加上一个以上的空格来结束。 句子由语句（Statement）组成。 语句中又可以包含若干子句（clause），每一个子句也有一个动

2、词（但这个动词往往是可以省略的），它指定某一方面的特定功能。二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）数字间不能有空格

3、，空格是分界符。 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表示一个或多

4、个引号字符ALL 常量表示由一个或多个该常量组成的字符串 五COBOL的数据关系过程部初步一输入输出语句 1ACCEPT（接收语句）：直接从中断键盘或系统指定的输入设备上输入少量的数据。 语法：ACCEPT 标识符 FROM 助忆名 2READ（读语句）：从外部文件上读入数据输到程序中的数据项中。 语法：READ 文件名 RECORD INTO 标识符；AT END 执行语句 3WRITE（写语句）：将内存区中的数据输出到外部设备 语法：WRITE 记录名 FROM 标识符1BEFORE ADVANCING 标识符2/整数 LINE/LINES AFTER 助忆名/PAEG 4OPEN（打开语

5、句）：程序若要读和写文件，先要把文件打开 语法：OPEN INPUT/OUPUT 文件名1，文件名2 5CLOSE（关闭语句）：关闭文件。 语法：CLOSE 文件名1，文件名2二算术运算语句 1ADD（加法语句） 举例：ADD A TO B A+B B ADD 15 TO C 15+C C ADD A，B TO C A+B+C C ADD 15，25 TO C 15+25+C C ADD A，B GIVING C A+B-C ADD 15，25 GIVING T 15+25 T ADD A，B TO C，D A+B+C C,A+B+D D 2SUBTRACT（减法语句） 举例：SUBTRACT

6、 B FROM A A-B A SUBTRACT B，C FROM A A-B-C A SUBTRACT B，C FROM A，T A-B-C A,T-B-C T SUBTRACT B，C FROM A GIVING X A-B-C X 3MULTIPLY（乘法语句） 举例：MULTIPLY A BY B A*B B MULTIPLY 0.5 BY B 0.5*B B MULTIPLY A BY B GIVING C A*B C MULTIPLY 1.5 BY 3 GIVING C,A 1.5*3 C,1.5*3 A MULTIPLY A BY B,C A*B B,A*C C 4DIVIDE（

7、除法语句） 举例：DIVIDE A INTO B B/A B DIVIDE A INTO B GIVING C B/A C DIVIDE A BY B GIVING C A/B C 5COMPUTE（计算语句） 语法：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，DEPEN

8、DING ON 标识符五IF（条件语句） 1关系运算符COBOL关系运算符意义IS GREATER THANIS THAN大于IS LESS THANIS 不大于NOT LESS THANNOT 不小于NOT EQUAL TONOT =不等于 2IF语句的两种形式 （1）IF 条件 语句组 （2）IF 条件 语句组1 ELSE 语句组2 3IF语句的一般格式 IF 语句组1/NEXT SENTENCE ELSE 语句组2/NEXT SENTENCE六STOP（停止语句） 语法：STOP RUN/常量标识部和环境部一标识部 1必写部分 IDENTIFICATION DIVISION PROGRA

9、M-ID. 程序名. 2任选部分 AUTHOR 作者姓名. INSTALLATION. 计算机设置的场所. DATE-WRITTEN. 源程序编写的日期. DATE-COMPILED. 源程序编译的日期. SECURITY. 保密程度.二环境部 1环境部的一般形式 ENVIRONMENT DIVISION. （环境部） CONFIGURATION SECTION. （配置节） SOURCE-COMPUTER. 源计算机名 OBJECT-COMPUTER. 目标计算机名 SPECIAL-NAMES. 专用名描述项 INPUT-OUTPUT SECTION. （输入输出节） FILE-CONTRO

10、L. 文件描述体 I-O-CONTROL. 输入输出控制描述体 2配置节（CONFIGURATION SECTION） （1）源计算机段和目标计算机段的一般格式 SOURCE-COMPUTER. OBJECT-COMPUTER. MEMORY SIZE IS 整数WORDS/CHARACTERS/MODULES （2）专用名段 格式：SPECIAL-NAMES. DECIMAL-POINT IS COMMA. CURRENCY SIGN IS 非数值常量. 专用名 IS 助记名. 3输入输出节（分为输入输出控制段与文件控制段） 文件控制段 格式：INPUT-OUTPUT SECTION. （输

11、入输出节） FILE-CONTROL. （文件控制段） SELECT 文件名 ASSIGN TO 外部文件名. 说明：SELECT的三种用法（1） 在SELECT子句的“ASSIGN TO”的后面写上磁盘上实际的文件名。（2） 在SELECT子句中只指出外部设备名。（3） 在一些中、大型计算机系统，在SELECT子句中用该系统指定的逻辑名作为外部文件名，然后用作业控制语句将该逻辑名与实际的设备和文件相联系。数据部（一）一概述 1数据有两种：孤立的数据项，组合的数据项 2数据的层次与层号 （1）数据的层次结构：记录 组合项 初等项 （2）层次的规定如下： 用来描述数据层次结构的层号从01开始，到

12、49。记录的最高层次定为01号。 层号小的组合项包含层号大的数据项（组合项或初等项）。 一个层号为K的组合项包括它下面所有层号比它大的组合项和初等项，直到遇到层号小于K或等于K的层次为止。 3数据部的结构 （1）文件节（FILE SECTION）用来描述程序中用到的输入文件和输出文件及其记录中各数据项的属性。 （2）工作单元节（WORKING-STORAGE SECTION）用来描述程序中用到的数据项。（3）联接节（LINKAGE SECTION） 用来描述与调用程序间发生数据传递的数据项。（4）报表节（REPORT SECTION） 为了完成报表编制功能，此节用来规定欲输出的报表的“体裁“，

13、设计各报表栏的打印形式和方法等。二文件节 1文件描述 格式：FD 文件名 LABEL RECORD IS/RECORDS ARE STANDARD/OMITTED DATA RECORD IS/RECORDS ARE 数据名 2记录描述 记录描述体由01层号开头，后跟记录名。 如果记录下面不再分项，即记录本身就是一个初等项，则这种描述体最简单。三字型子句（PIC子句） 1数值型数据的描述 （1）“9”描述符：表示在该位置上可以放入一个0-9之间的数字 举例：02 X PIC 9999. 02 Y PIC 9(5). （2）“V”描述符：支持在数值型数据结构中隐含的小数点位置 举例：03 M P

14、IC 999V999. （3）“P”描述符：对低位上有若干个零的数，可以用该描述符。 举例：01 A PIC 9P(9). 表示10的9次方 01 B PIC PPPP99. 表示0.000023 （4）“S”描述符：如果想在数据项中放入一个带符号的数，可以用该描述符。对于类似PIC S99的数据项，系统在内存中该数据项的最后一个字节中，放入一个标记，表示此数为负。二字母型数据的描述 “A”描述符：这种类型的数据项中只能放字母或空格三字符型数据的描述 （1）字符型数据的规定 概念：由任意的COBOL字符组成的数据，称字符型数据。 说明：I.字符型数据可以用X描述符来描述，也可以用9和A描述符来

15、描述。 II.字母型数据可以用A来描述，也可以用X。 III.字符型数据中可以放数字。四编辑型描述符 1插入小数点“.”，用“.”描述符。 2插入逗号“，”作分位号，用“，”描述符。 3插入零，用“0”描述符。 4插入空格，用“B”描述符。 5插入正负号，用“+”或“-”描述符。 6插入“$” （1）加到数字前。 （2）在数字前加正负号和$。 7浮动插入正负号和“$” 8取消高位零，用“Z”和“*”描述符。 9插入“DB“和“CR”字符：此两个描述符只能用作固定插入，而且只作最后一个描述符号。当数值为正时，此两次留两个空格；为负时，在编辑型数据项中最后两个字节中置DB或CR。五PIC子句小结

16、1格式：PICTURE/PIC IS 描述字符串 2每一种类型数据可以使用的描述字符如下：数据类型在PIC子句中允许使用的描述字符数值数据项9 V S P字母数据项A字符数据项9 A X编辑数值数据项9 P V . , B Z + - $ * 0 CR DB编辑字符数据项A X 9 B 03描述字符的含义描述字符含义9表示一个数字的位置A表示一个字母的位置X表示一个字符的位置V表示隐含小数点的位置S表示数值数据带符号P表示十进制比例换算，即指明落在数据域外的十进制小数点位置$插入货币号位置.插入小数点位置,插入逗号的位置+一律加符号-对负数加负号，对正数前留一空格Z取消高位零，以代空格*取消高

17、位零，代以*B插入空格的位置0插入零的位置DB（借方）数据为负时，在数据后面出现DB，数据为正时，数据后空两格CR（贷方）数据为负时，在数据后面出现CR，数据为正时，数据后空两格四工作单元节（WORKING-STORAGE SECTION） 1工作单元节的作用 程序中用的数据项分两部分：一部分是属于输入或输出文件的，另一部分是非输入或输出的数据。 在工作单元节中描述的数据项也有两种形式：一种是孤立的数据项，它们是初等项。一种是组合项。COBOL规定，孤立的数据项的描述体以层号77开头，组合项描述体以01到49之间的一个数作层号。在次序上常先写77层，再写01-49层。 2赋初值子句（VALUE

18、子句） 举例：77 A PIC 99 VALUE IS 0. 77 T PIC X(9) VALUE fogshadow. 说明：只有对工作单元节中的数据项可以赋初值。过程部之二一传送语句（MOVE语句）的较高技巧1各种类型数据间的传送（1）同类型数据间的传送（2）编辑传送。 注意：传送的方向必须是由数值型数据传送给编辑型数据，而不能由编辑型数据传送给数值型数据。（3）不同类型数据间的传送规则。 说明：Y为允许传送，N为不允许，Z为在某些情况下是正确的横-接收项竖-发送项数值型数值编辑型字母型字符型字符编辑型组合项整数非整数数值型整数YYYYYYY非整数YYYNNNY数值编辑型NNNNYYY字

19、母型NNNYYYY字符型ZZZZYYY编辑字符型NNNNYYY数值常量YYYNNNY非数值常量NNNYYYYZEROYYYNYYYSPACENNNYYYY组合项ZZZZYYY 2组合项的传送 （1）发送项和接收项都是组合项，而且其结构和描述均相同，则可看作将各初等项一一对应传送。 （2）如发送项与接收项长度相同，但数据结构形式不同，则将发送项的内容原样不变地自左而右顺序地传送到接收项。 3对应传送（带CORRESPONDING子句的MOVE语句） （1）数据名的受限与受限名的传送 数据名和限定符之间用OF或IN 来连接。 举例：MOV A1 OF A OF SUM TO T1. （2）用COR

20、RESPONDING子句的传送对应传送（同名传送） 作用：把一个组合项中若干项传送给另一组合项中同名的项。 格式：MOVE CORRESPONDING/CORR 标识符1 TO 标识符2二算术运算语句的较高技巧 1四舍五入处理（ROUNDED子句） 作用：按照数据项的描述要求对多余位截断，然后对被截断的后一位数进行四舍五入处理。 举例：ADD A，B TO C ROUNDEDA+B+C值C描述有无ROUNDEDC内容186.7851999有187186.7851999V9有186.8186.7851999V99有186.79186.7851999V999有186.785如果计算结果有多个，则应

21、该分别说明哪一个接收项要进行舍入处理，ROUNDED应写在有关的接收项（结果数据项）的数据名后面，如ADD A,B,C TO D,E,F ROUNDED,G ROUNDED,H 2长度溢出处理 当计算结果的整数部分的长度如果比结果数据项描述所规定的整数部分长，则发生长度溢出，结果的高位部分被截断。 ON SIZE ERROR子句提供“溢出”处理。即当发生溢出错误的时候，按程序设计者事先指定的操作处理。 举例：MULTIPLY A BY B GIVING C ON SIZE ERROR DISPLAYSIZE ERROR STOP RUN. 3对应项间的运算（带CORRESPONDING子句的算

22、术运算语句） 格式：ADD CORRESPONDING/CORR 标识符1 TO 标识符2 ROUNDED ;ON SIZE ERROR 强制语句SUBTRACT CORRESPONDING/CORR 标识符1 TO 标识符2 ROUNDED ;ON SIZE ERROR 强制语句 4除法语句中的余数子句（REMAINDER子句） 举例：DIVIDE 1.5 INTO 7 GIVING C REMAINDER D.三IF语句的高级技巧 1IF语句的嵌套 举例：（注意IF与ELSE的一一配对） IF A=B MOVE B TO T IF A=C MOVE C TO R IF X0 等价 （2）I

23、F 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 举例：首先在数据部说明 77 X (条件变量) PIC 9(6). 88 X1 VALUE 0 THRU 99. 88 X2 VALUE 100 THRU

24、 999. 88 X3 VALUE 1000 THRU 4999. 88 X4 VALUE 5000 THRU 100000. 经过上面的说明后，可以在过程部中直接使用条件名条件。 IF X1 MOVE 0.03 TO R. (在0=X100时，R=0.03) IF X2 MOVE 0.04 TO R. (在100=X1000时，R=0.04) IF X3 MOVE 0.05 TO R. (在1000=X5000时，R=0.05) IF X4 MOVE 0.06 TO R. (在5000=X5 其作用是执行T1到T2语句序列，X是“循环变量”，是整型数据项。A为初值，B为步长，它们都是整数或整数数据项。六执行语句的多重循环形式 格式：PERFORM 过程名1 THROUGH/THRU 过程名2 VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1 AFTER 参数2 FROM 初值2 BY 步长2 UNTIL 条件2 AFTER 参数3 FROM 初值3 BY 步长3 UNTIL 条件3 说明：1。最后面的循环体先执行。 2COBOL允许用到三重循环。七出口语句（EXIT语句） 作用：提供一