COBOL(Common Business Oriented Language)通用商业语言

第一章COBOL 概述一、COBOL 的语言特点：COBOL:Common Business Oriented Language通用商业语言它是专门为数据管理而设计的计算机高级语言。

COBOL语言的主要特点：1、适用于数据处理,（科学计算、数据处理、过程控制、计算机辅助设计、人工智能等）数据处理的特点：算术计算量多而逻辑处理少，输入输出量大；数据项之间有清晰的层次关系；大量的分类排序；对打印报表的高要求及多样化等等2、通用性强使用是要注意它的特殊性，COBOL有较高的标准化程序硬件集中管理不同厂家生产的计算机系统所提供的COBOL是COBOL 的标准的全集或子集，设备的逻辑名可能不一样。

3、机构严谨、层次分明、比较接近于自然语言，便于初学者模仿。

二、COBOL的发展概况1959年12月在美国提出了世界上第一个COBOL语言文本并于1960年4月由美国政府印刷局正式发表称之为COBOL—60→COBOL61→COBOL65ANSI标准（美国国家标准化协会）ANSI COBOL68->(修订扩充)-〉ANSI COBOL-74-〉ANSI COBOL-85ISO 标准（国际标准化组织）ISO COBOL-72->ISO COBOL-78三、COBOL源程序结构及书写格式源程序示例：例（P8）将A和B的值相加其和放在B中源程序的结构部（DIVISION）:标识部、环境部、数据部、过程部以部头开始以“.”和空格结束节（SECTION）:每个节以节头作标识，以“.”和空格结束如WORKING_STORAGE SECTION (工作单元节)段（PARAGRAPH）:每个短都有一个段名，以“”和空格结束如PROGRAM__ID EXAM2 句子（SENTENCE）:用空格分开的多条语句称为句子最后以“.”和空格结束的一个语句序列语句（STA TEMENT）:一条完整的指令用于完成一定的操作子句（CLAUSE）:用于完成某一方面的特定功能如环境部中的SELECT子句。

描述体：在数据部中有若干个节，每个接中有若干个描述体，（每个描述体又有若干个子句构成）如数据项描述体77，文件描述体FD,记录描述体01等注：标识部只有段没有节，环境部既有节又有段；数据部只有节没有段；过程部中的段和节是有程序员自己定义的，如果使用了节则其后的段必须包含在此节中直到遇到下一个节为止。

书写格式COBOL 的程序格式连续标号有程序的编写者自定义。

续行区：空格续行但插入一个空格—绕行紧接不插入空格*：注释行/：换页打印源程序A区：COBOL规定：部头、段头、节头、层号01、层号77、文件描述符FD、过程名等必须从A区开始书写（但不一定从第八列开始）其他层号也可以在A区书写B区：除了在A区书写的源程序内容外其他的内容都可以在B区书写书写源程序注意事项：（1）允许一行内书写多个语句（用空格分开）或一个语句写在几行上（2）一个空格和多个空格作用相同（3）相邻的两个字（保留字、自定义的名字）必须用空格分开（4）运算符（+-*/）和等号两侧必须个留一个空格过程部中的“（”和“）”的外侧留而内侧不留空格（5）逗号、点、分号的左边不留空格而右边留空格四、COBOL字符集和COBOL字1.COBOL字符集共51个不同的计算机系统可能不一样，有0-9，A-Z和15个专用字符2.COBOL的字：COBOL保留字：在COBOL中作专门用途如ADD,SELECT,ZERO.SPACE用户字：如变量名、助记名、过程名、条件名等等系统名：由编译系统定义的字，如计算机名。

外部设备名等等五、数据名和常量1、数据名：在其它语言中成为变量名数据名不能去保留字，数据名中不能出现空格，最好去有意义的英文字2、常量（1）数值常量：由正负号、小数点、0-9组成，但小数点不可以出现在常量的最右边，即整数是不加小数点因小数点在COBOL中有特殊用途。

数据常量的长度不可以超过18个数字（不包含小书店和符号）。

数据之间不能有空格。

（2）非数值常量：用引号括起的字符串，使用单引号还是双引号又具体的计算机系统规定，非数值常量的长度不能超过120个字符（又具体的计算机系统确定）。

例：MOVE ‗ABC‘TO AMOVE QUOTE ‗ABC‘QUOTE TO B(3)：表意常量：P20页表格即可作为字符型常量也可作为表意型常量它的联用的数据项长度相同。

1。

如：DISPLAY ZERO ;显示一个0六：COBOL所处理的数据的特点：层次概念01 GZTJ02 ZGM02 SR04 JBGZ04 FJGZ04 YBBZ02 KC04BSJ04FZF04SDF04 TEF注意：具有一定层次关系的一组数据项的最大集合。

文件：文件是建立在外部介质上的纪录的集合任何一种外部设备的介质都可以作为文件的载体（如：卡片文件、磁带文件、磁盘文件等等）七：源程序输入计算机的方式（一）键盘输入：先按一下TAB键从第八列开始，输入完一列按回车。

用于微机。

（二）卡片输入：用于大、中型机算机上通过读卡机以批处理方式运行COBOL程序。

（三）软盘磁带输入。

一般的，在大中型计算机系统中，COBOL源程序一般用读卡机，也可以用键盘或其他的外设输入；在微型机算机系统中多用键盘输入，如果配有纸带输入机也可以用纸带输入。

第二章 标识部和设备部一、标识部：程序编译时不生成任何目标代码。

部头和段头都在A 区开始书写。

部头： IDENTIFICA TION DIVISIONPROGRAM_ID 程序名. [AUTHOR. 程序员名.] [INSTALLA TION. 计算机设置的场所.][DA TE_WRITTEN. 源程序编写的日期.] [DA TE_COMPLLED. 源程序编译的日期.] [SECURITY . 保密程序]二、环境部（设备部）：COBOL 源程序中唯一与硬件有关的部分。

可理解成源程序运行的环境指硬件环境。

ENVIRONMENT DIVISION. [CONFIGURA TION SECTION.][SOURCE_COMPUTER. 源计算机名.] [OBJECT_COMPUTER. 目标计算机名.][SPECIAL_NAMES. 专用计算机名.] ；专用名段 [DECIMAL_POINT IS COMMA.] [CURRENCY SIGN IS 非数值常量.][专用名 IS 助记名.][INPUT_OUTPUT SECTION.] ；输入输出节 FILE_CONTROL. ；文件控制段SELECT 文件名 ASSIGN TO 设备名.SELECT 文件名 ASSIGN TO 设备名.[I-O-CONTROL. 输入输出控制描述体.] ；输入输出控制段 用来指定目标程序运行时，几个文件共用一个内存区以节省内存。

（不做要求）说明：助记名：用户自己定义的名字。

专用名：系统规定的一些设备名或功能名或符号。

设备名是指系统规定的，各机器规定不同，使用适应查说明书。

系统名是由编译系统定义的字，如：计算机名和外部设备名等等。

常用专用名：打印机：PRINTER 控制台：CONSOLE宽行打印机：SYSOUT 读卡机：SYSIN 磁带机：TAPE磁盘机：DISK注意：SELECT 子句应从B 区开始书写。

例： IDENTIFICA TION DIVISION. PROGRAM_ID. EX1.ENVIRONMENT DIVISION.CONFIGURA TION SELECTION.SOURCE_COMPUTER. FACOM_MISOF.OBJECT_COMPUTER. FACOM_MISOF.SPECIAL_NAMES.CURRENCY IS ‗Y‘.INPUT_OUTPUT SECTION.FILE_CONTROL.SELECT A1 ASSIGN TO PRINTER.SELECT A2 ASSIGN第三章过程部之一（最基本语句）四．分支语句（一）无条件转向语句Goto 过程名注：过程是指过程部中的节名或段名，它代表一段过程。

（二）开关语句Go To 过程名1[，过成名2]…..过程名n DEPENDING ON 标记名注：表示符的值在1≤且≤n否则执行此语句是出错例1：银行有几种不同的利率（6%，%5，%4，2.5%）对不同的存储户根据其特点确定一个利率并计算利息（p45:源程序略）（三）条件语句（IF）1.IF 语句的基本形式：格式一：IF 条件语句（称为语句组或句子较合适，以下类同）格式二：IF 条件语句1ELSE 语句2格式三：IF 条件语句1 语句2ELSENEXT SENTENCENEXT SENTENCE例１某公司对顾客购买商品的1000件以上的给3%的优惠IF QUANTITY IS NOT LESS THAN 1000MULTIPLY0.97 BY PRICE例2：某公司对顾客购买商品1000件以上的给3%优惠，否则给1%的优惠IF QUANTITY<1000MULTIPLY0.99 BY PRICEELSEMULTIPLY0.97 BY PRICE例3：IF B**2—4*A*C NOT<0NEXT SENTENCEELSE DISPLAY B**2—4*A*C NOT<0STOP RUN.例4：IF A>BMOVE A TO B IF A>BELSE <=====〉MOVE A TO B NEXT SENTENCEASCⅡ码或EBCDIC码）。

流程图示打开/关闭文件处理：算术运算，数据传输，编辑操作等判断一个过程的起点和终点卡片的输入/输出打印的输出磁盘输入/输出磁带输入/输出连接符五．文件的基本操作语句（一）打开语句OPEN格式：INPUT 文件名1 ，文件名2OPENOUTPUT 文件名3 ，文件4例：OPEN INPUT x1,x2,x3OPEN OUTPUT Y1,Y2,Y3或OPEN INPUT x1,x2,x3OUTPUT INPUT Y1,Y2,Y3(二)关闭语句close格式：close 文件名1 ,文件名2 …….例Close x1,x2,x3,Y1,Y2,Y3(三)读语句READ该语句是从外部数据中读一条纪录到内存的对应输入区。

每一个输入文件在内存区都有一个对应的输入记录区。

格式：READ 文件名RECODE INTO 表示符，A T END强制语句说明：INTO…将输入记录区的内容使送到另一个数据项中故此时当前纪录同时存在于内存的输入纪录区和数据项两个域中。

READ CARD-FILE INTO A A T END GoTo A1.READ CARD-FILE A T END GO TO A1.MOVE CARD-RECORD TO TA T END……：当数据文件中的最后一条纪录读出后，则下一次读语句将转去执行A T END 后面的强制语句，所谓强制是指一定要执行的语句如：MOVE DISPLAY STOP RUN等而不带ELSE子句得IF不属于强制语句注：<1>读入一个字句后要处理完毕读下一条纪录<2>READ语句必须作为一个句子使用即必须依句点和空格结束；例：数据文件的操作1∽2列年（YEAR）3∽4列月（MONTH）5∽6列日（DAYY）注：DAY 是保留字7∽10列产品代码（PRODUCT-CODE）11∽14顾客代码（CUSTOMER-CODE ）15∽20数量（OUANTITY）21∽26 单价（UNIT-PRICE）27∽80 空白某张卡片纪录数据如下：82 03 10 0010 0002 00020 000200∨∨∨∨∨∨∨年月日产品号顾客号数量单价（2）在环境部中对数据文件对应的数据的设备进行描述ENVIRONMENT DIVISION 环境部INPUT-OUTPUT SECTION 输入输出节FILE-CONTROL. 文件控制段L:SELECT CARD-FILE ASSIGN TO SYSIN 读卡机<3>在数据部中对纪录进行描述FILE SELECTFD CARD-FILE LABEL RECORD IS OMITTED.01 CARD-RECORD(记录名)02 DA TE-C.(组合项)03YEAR PIC 99.03MONTH PIC 99.03 DA YY PIC 99.02 PRODUCT-CODE PIC 9(4).02 CUSTOMER-CODE PIC 9(4).02QUANTITY PIC9(6).02UNIT-PRICE PIC9(6).02FILLER PIC X(54)注：FILLER 是保留字为填充项数据名但不能单独使用可以作为纪录或者组合项的一部分一起被引用<4>在过程部中对文件操作OPEN INPUT CARD-FILE.READING-DA TA.(段名)READ CARD-FILE A T END GOTO A1.ADD QUANTITY TO TOTAL.GOTO READING-DA TAA1:DISPLAY TOTALCLOSE CARD-FILE.STOP RUN.(四).写语句WRITE写语句数将内存中输出记录缓冲区的内容输出到对应的输出文件上格式：WRITE 记录名FORM表示符表示符2 LINEBEFORE （移动行数）(先打印后移动)ADV ANCING 整数LINES（先移动后打印）AFTER 助记名(特殊控制)（换页）PAGE说明：（10）FORM表示符表示先把内存区中的一个数据项的内容送给输出记录区，然后在输出记录区的内容如:WRITE T FROM T1 AFTER 3MOVE T1 TO TWRITE T AFTER 3(2)执行完WRITE 语句后，需要改变输出区的内容，再执行WRITE语句（3）在许多计算机系统的COBOR中，输出记录区的第一个字符作用“纵向走纸控制“用不输出。