2007/11/3,1,山东省农村信用社 COBOL培训,IBM全球服务技术团队,2007/11/3,2,COBOL简述及基本语法 COBOL程序部及运算逻辑处理 COBOL对文件处理 COBOL报表生成 COBOL表格处理及子程序的调用 COBOL程序出错诊断及优化处理,内容概述,2007/11/3,3,COBOL简述,英文缩写: COBOL (Common business Oriented Language) 中文译名:公用面向商业的语言 解 释: 一种适合于商业及数据处理的类似英语的程序设计语言。这种语言可使商业数据处理过程精确表达。,2007/11/3,4,COBOL（面向商业的通用语言，又称为企业管理语言、数据处理语言等，Common Business Oriented Language）是最早的高级编程语言之一，是世界上第一个商用语言。 COBOL有许多版本，针对不同机器和操作系统，如大型机上的IBM COBOL和PC机上的Fujitsu与Micro Focus COBOL。,COBOL简述,2007/11/3,5,COBOL发展历史,1959年5月，五角大楼委托格雷斯霍波（G.Hopper）博士领导一个委员会并由Rear Admiral Grace Hopper公司主持开发，并于1961年由美国数据系统语言协会公布。正式发布于1960年4月，称为Cobol60。 1963年，美国国家标准研究所(ANSI)进行了标准化，但是ANSI标准很少被遵循；因此，COBOL程序只是部分可移植的。,2007/11/3,6,1974年ANSI对COBOL-68作出了修订扩充，形成了ANSI COBOL X3.23-1974，随后1978年ISO采用其形成ISO COBOL-78，后来又提出了ANSI X3.23-85，增加了很多结构化程序设计的内容，ISO标准ISO1989:1985也采用了该标准。 最新的标准COBOL 2002主体已经于2002年12月出版，其他部分还在不断地完善之中，具体内容请参考 http:/www.cobolstandards.com/,COBOL发展历史,2007/11/3,7,COBOL重要性及应用,经过40多年的不断修改、丰富完善和标准化，COBOL已发展为多种版本的庞大语言，在财会工作、统计报表、计划编制、情报检索、人事管理等数据管理及商业数据处理领域，都有着广泛的应用。 COBOL的重要性可以用这句话来描述：世界上70的数据都是用COBOL语言处理的，并且90的ATM事务处理用的都是COBOL语言。每天在线处理的COBOL事务有300亿次。500强中有492家（包括全部的100强）使用了COBOL语言，目前在COBOL方面的投资已经超过3万亿美元，据称用COBOL书写的程序超过了1000亿行，并且以每年大约50亿行代码的速度在增长。 由于COBOL在商业领域的雄厚基础，而且COBOL主要是应用于银行、金融和会计行业等非常重要的商业数据处理领域。,2007/11/3,8,COBOL编程基本语法,COBOL程序结构 COBOL字符集 COBOL字 COBOL变量 COBOL常量 COBOL数据集 COBOL源程序书写格式,2007/11/3,9,COBOL程序结构,IDENTIFICATION DIVISION. *标识部 PROGRAM-ID. MORTGAGE. *程序名标识段 ENVIRONMENT DIVISION. *环境部 DATA DIVISION. *数据部 WORKING-STORAGE SECTION. *工作存储节 77 A PIC 9(3). *对变量A的描述 77 B PIC 9(3). *对变量B的描述 77 C PIC 9(4). *对变量C的描述 PROCEDURE DIVISOIN. *过程部 BEGIN. ACCEPT A *输入A值 ACCEPT B. *输入B值 ADD A B GIVING C. *计算 C=A+B DISPLAY C. *显示C STOP RUN.,2007/11/3,10,每个COBOLO程序都分为四个部分,标识部,环境部,数据部,过程部.每个部分必须以部头开始. 标识部 以部头: IDENTIFICATION DIVISION. 开始,在标识部中主要规定源程序的名称,另外可以提供一些其他的说明.如作者,编写程序日期等等. 环境部 以部头: ENVIRONMENT DIVISION. 开始,主要说明计算机中使用哪些设备,如直接输出在屏幕上,输出在打印机等.,COBOL程序结构:部,2007/11/3,11,数据部 以部头: DATA DIVISION 开始,数据部定义程序所处理数据的名字及特征.也就是数据定义. 过程部 以部头: PROCEDURE DIVISOIN 开始,程序运行时处理数据的各种语句都在这里书写,过程部是程序的核心,其他三个部仅是对程序做必要的说明.,COBOL程序结构:部,2007/11/3,12,COBOL是一种层次结构很强的程序设计语言.除标识部外,在 其他三个部下面,可以设置若干节,每个结以: 节名 SECTION. 开始,在环境部,数据部中COBOL语言规定了几个节,节头应按规 则书写,各节有不同的作用,根据需要可以选定不同的节.例如:数 据部可以设工作存储节. DATA DIVISION. 数据部部头 WORKING-SRORAGE SECTION. 工作存储节头,COBOL程序结构:节和段,2007/11/3,13,标识部下面没有节,直接设段.例如程序名段 PROGRAME-ID. MORTGAGE. 过程部中,程序比较小时,可以不设节,直接设段.较长的程序可以设计节,下面还可以设段,段应有段名.段由一个或多个句子组成. 书写节头,后面要加SECTION,节头独占一行,段头只写段名,段名可以独占一行,也可以和下面的语句同占一行.,COBOL程序结构:节和段,2007/11/3,14,在过程部中,每段由若干句子组成,上例的过程部由4个句子组成.第一句 ACCEPT A ACCEPT B. 句子用句号”.”作为结束标志.句号后面至少应该有一个空格,句子又由若干语句组成,每个语句之间用空格,逗号”,”或分号”;”分开,(逗号,分号后面应有一个以上空格,所以通常用空格分来).每个语句后面接着操作对象或操作内容,完成独立的计算机操作.例如ACCEPT A表示从键盘接受数据,送入A中(相当于C语言的scanf和C+的cin).数据部,环境部中也可以出现子句.,COBOL程序结构:句子,语句,子句,2007/11/3,15,在数据部中有若干节,每个节又有若干描述体,描述数据的类型,长度等.上例中数据部的工作存储节:WORKING-STORAGE SECTION中以77开始的三行,就是数据的描述体,说明A,B,C都是数值型数据项,A,B为三位整数,C为四位整数. 77 A PIC 9(3). *对变量A的描述 77 B PIC 9(3). *对变量B的描述 77 C PIC 9(4). *对变量C的描述,COBOL程序结构:描述体,2007/11/3,16,COBOL字符集,COBOL字符是组成COBOL程序的最小单位.字符集是所有COBOL字符的总称.COBOL字符集共有78个字符.它们是: 字母 AZ (az) 数组 09 专用字符 + 加号 - 减号 * 星号 / 斜线(除号) = 等号 大于号 小于号 $ 美元符号(货币符号) , 逗号 ; 分号 . 句号(小数点) 单引号 “ 双引号 ( 左括号 ) 右括号 空格,2007/11/3,17,COBOL字,COBOL语言的基本单位为单字,通称为COBOL字,如同组成英文句子的基本单词为英文单词一样,例如下面COBOL语句: MULTIPLY HOURS-WORKED BY HOURLYRATE GIVING RATE. COBOL字包括保留字及用户字两大类. 1.保留字:保留字是在COBOL语言中已经规定用作专门用途的字,有特定的含义。 例如ADD代表加操作,DISPLAY代表显示.保留字不能作为用户字使用.,2007/11/3,18,2.用户字:编程人员自己定义的句子,例如:程序名,数据名等等,用户字的构成应符合下列规则: a.由字母,数字及连字符”-”组成,其他特殊字符不得使用. b.字符组合中至少含有一个字母或连字符,但段名可以有数字组成. c.字符组合的开始字符或结尾字符不能是连字符 d.字的长度最多三十个字符. 不正确的用户字例子:-BEGIN(连字符出现在最左边),DATA(是保留 字),*A*(不符合规则),DAT NUMBER(中间有空格),COBOL字,2007/11/3,19,COBOL程序结构:结构图,2007/11/3,20,变 量,变量是在内存中定义的一块地址，程序可以在此存放数据或从此处检索数据。 变量名或标识符是用来标识变量存储在内存中的那块地址。 变量必须以类型和大小来描述。 COBOL程序中用到的变量必须在数据部中有描述。COBOL语言中没有像C/C语言那样的局部变量。,2007/11/3,21,1.变量描述PIC子句 PIC(PIC的所写)子句对每个变量进行详细描述,包括类型及大小.一般 格式如下: PICTURE/PIC IS 描述字符串 PIC只对基本项和孤立项进行描述,而不能描述组项.书写PIC子句应先写层号, 数据名,接着写PIC保留字,最后写变量描述字符和句号.PIC子句应该从B区开始。下面具体叙述描述字符串. (1) 数值型变量的描述 a. “9”描述 “9”描述表示实际的或概念上的数据位上有一个数字. 例: 02 B PIC 9999. 表示变量B可以放入四位整数数字,范围从09999,可以简写为 02 B PIC 9(4). 说明:最多允许18个”9”.若把大于变量长度的数字存入该数据段,则会 发生高位截断.,变量的定义,2007/11/3,22,b. “V”描述符 “9”描述符只能存放整数,而无法保存小数. 例: 02 A PIC 9(2). 如果把12.34存入A,则A只会保存12,为了解决这个问题,用”V”描述 符,”V” 描述符可以标出隐含的小数点位置. 例: 02 A PIC 99V99. 表示A可以存放两位整数,两位小数,即099.99之间的任意值. 说明:由于”V”不占字节,直接显示含小数的变量不会出现小数点,如用显示语 句把A的内容显示在屏幕上,只能显示1234,想显示小数点,则需要把A传送到 具有小数点编辑描述的变量再显示,关于编辑型数据在后面描述.若V在最右 边,可以不写.一个PIC语句只允许一个”V”描述. c. “S”描述符 上述两个描述符描述的变量只能存放绝对值,为了正确表示数值得正负, 用”S”描述符,这样就可以存放带符号的数.,变量的定义,2007/11/3,23,例:01 M PIC S99V99. 表示M可以存放带符号的三位整数两位小数. 说明:”S”代表一个正负号的位置,应是最左测的描述符.不能直接显示带”S”描述的变量,”S”在内存中不单独占用一个字节,而在带”S”描述的变量中加入一些标记.标记和原来数据末尾数字混合在一起.例如: 02 A PIC S9999. A中含有-1234,当显示A时,给出的信息是123M.若想显示出带符号的数字,应该把含有”S”描述的数据项传送到含有正负号编辑型描述字符的变量中再显示.,变量的定义,2007/11/3,24,（2）字符型描述符”A” a, 用”A”描述的变量,只能存放英文字母或空格.例如: 02 A PIC A(7). 表示变量A中可以存放7个字符. b, 字符型数据描述符”X” 由”X”描述的变量可以存放计算机能够使用的任意字符.例