COBOL语言程序设计

COBOLCOBOL语言程序设计语言程序设计7/4/2023 IBM&DLUT Computer Technology Center 2 第一章第一章 COBOL概述（一）概述（一）1.1 COBOL语言的历史1.2 COBOL语言的特点1.3 COBOL程序的编译方法1.4 两个简单的COBOL源程序1.5 COBOL程序的结构1.6 COBOL程序的书写格式1.7 COBOL字符和COBOL字7/4/2023 IBM&DLUT Computer Technology Center 3 第一章第一章 COBOL概述（二）概述（二）1.8 数据名1.9 常量1.10 COBOL所处理数据的特点7/4/2023 IBM&DLUT Computer Technology Center 4 1.1 COBOL语言的历史lCOmmon Business Oriented Language用于商业数据处理与管理，如：银行，会计业，人事管理，财会，统计报表，情报检索，证券，金融等等l1959年5月 美国国防部召开数据系统语言会议l1959年12月 第一个COBOL语言文本l1960年4月 正式发表COBOL 60,经过扩充完善COBOL 61lANSI COBOL 61-最早的版本l1965年COBOL 65-ANSI COBOL 68-ISO COBOL 72l1972年COBOL 72-ANSI COBOL 74-ISO COBOL 78lANSI COBOL 85-应用最广泛的版本lANSI COBOL 2002-最新版本7/4/2023 IBM&DLUT Computer Technology Center 5 1.2 COBOL语言的特点l描述性好，能根据需要描述各种形式的数据l适合大批量数据处理，能对数据进行严密的组织(算术运算简单但运算量大，逻辑运算多)l接近自然语言(英语)，成文自明例如：ADD A TO B GIVING Cl遵循ISO标准，通用性强，移植方便l格式固定，结构严谨，层次分明l缺点是比较繁琐7/4/2023 IBM&DLUT Computer Technology Center 6 1.3 COBOL程序的编译l创建分区数据集ST.COBOL.SOURCE(COB)存放源程序l创建分区数据集ST.COBOL.LOAD 存放可执行模块它的属性比较特殊：Record format=URecord length=0Block size=6144l创建顺序数据集ST.COBOL.COMLINK编写JCL用于编译链接源文件例1.3l创建顺序数据集ST.COBOL.RUN编写JCL用于运行可执行模块7/4/2023 IBM&DLUT Computer Technology Center 7 1.4 两个简单的COBOL源程序l例程1.4.1 了解COBOL程序的基本结构l例程1.4.2 简单的变量定义，输入输出及运算7/4/2023 IBM&DLUT Computer Technology Center 8 1.5 COBOL程序的结构1.5.1 部1.5.2 节，段和描述体1.5.3 句子，语句和子句1.5.4 结构一览表7/4/2023 IBM&DLUT Computer Technology Center 9 1.5.1 部lIDENTIFICATION DIVISION (标识部)主要指定源程序的名称，也可记录背忘信息，如日期作者lENVIRONMENT DIVISION (环境部)指出程序中用到的数据文件名与系统设备的对应关系lDATA DIVISION (数据部)说明程序中所有数据的类型和所占内存大小lPROCEDURE DIVISION (过程部)定义程序要执行的指令，是程序的核心注意：四个部缺一不可！即使部的内容为空也要写全！注意：四个部缺一不可！即使部的内容为空也要写全！7/4/2023 IBM&DLUT Computer Technology Center 10 1.5.2 节，段，描述体l部下设置节(SECTION),节下设段(PARAGRAPH)或描述体(DESCRIPTION ENTRY)l标识部下直接定义段l环境部下定义节，节下定义段l数据部下定义节，节下定义描述体l过程部下定义节，节下定义段(复杂程序)也可以直接定义段(一般程序)7/4/2023 IBM&DLUT Computer Technology Center 11 1.5.3 句子，语句和子句l句子(SENTENCE)由语句(STATEMENT)组成，语句又由子句(CLAUSE)组成l句子以一个句号加一个以上的空格来结束l每个语句都是一条完整的指令，用相应的动词表示其操作l子句也有一个动词(往往可省)，指定某一方面特定的功能7/4/2023 IBM&DLUT Computer Technology Center 12 1.5.4 结构一览表COBOL源程序环境部数据部过程部节节节标识部段段子句描述体段句子语句子句子句7/4/2023 IBM&DLUT Computer Technology Center 13 1.6 COBOL程序的书写格式（一）lANSI格式l标准COBOL程序每行80列，被分为五个区域l第16列为“标号区”标号是6位数字，应从小到大，但不一定连续标号只是方便查阅程序，可以不写l第7列为“续行区”使用“-”表示本行是紧接在上一行后面续行要从第12列开始写使用“*”表示本行是注释 7/4/2023 IBM&DLUT Computer Technology Center 14 1.6 COBOL程序的书写格式（二）l第811列为“A区”程序中有些内容必须从该区开始书写，如：部头，节头，段头，层号01和77，文件描述符l第1272列为“B区”程序正文部分，过程部语句必须从该区开始书写l第7380列为“注释区”写入此区的内容为注释内容，编译时被舍去7/4/2023 IBM&DLUT Computer Technology Center 15 1.6 COBOL程序的书写格式（三）l早期COBOL要求所有字母应大写，现在COBOL大小写等价，用引号括起来的字符串除外，如：ADD A TO B =add A To bDISPLAY HELLO DISPLAY hellol相邻的两个COBOL字之间有一个以上的空格l运算符和等号左右必须各有一个空格l圆括号外侧必须有一个空格，内侧不必，如：A +(B +C)/Dl逗号，句号，分号左边不能有空格，而右边应有7/4/2023 IBM&DLUT Computer Technology Center 16 1.7 COBOL字符和COBOL字lCOBOL字符是指在程序中允许出现的字符包括数字，大小写字母及15个专用符号+,-,*,/,=,逗号,句号,分号,引号,$,(,),空格lCOBOL字是由上述字符组成的最小单位分为保留字:在COBOL已经规定专门用途的字用户字:用户自定义的名字 如:程序名，文件名，节名，段名，数据项名等 7/4/2023 IBM&DLUT Computer Technology Center 17 1.8 数据名l数据名相当于其他语言的变量名，代表一个具体的数据项l数据名长度为130个字符l只能由字母(至少一个)，数字和连字符“-”组成，连字符不能出现在两端，不能包含空格l不应用保留字作为数据名123,DECO.HENRY,OWEN-,3R,DIVISIONl尽量使用有意义的英文字或拼音，如：NAME,AGE，GONGZIl建议：多使用连字符，如:DEPTART-NUMBER7/4/2023 IBM&DLUT Computer Technology Center 18 1.9 常量（一）l数值常量由正负号，小数点，数字09组成的序列如：12300,45.67,-89小数点不能出现在常数右边，如：MOVE 20.TO AGE数值长度不超过18位最少有一个数字最多有一个正负号,且只能出现在最左边7/4/2023 IBM&DLUT Computer Technology Center 19 1.9 常量（二）l非数值常量用引号括起来的字符串 如：ABCD,$123,HELLO WORLD由纯数字组成的非数值常量不能用于计算123和123不同可以使用保留字,如:DATA可以写入引号,如:MOVE QUOTE HENRY QUOTE TO NAME7/4/2023 IBM&DLUT Computer Technology Center 20 1.9 常量（三）l表意常量例1.9ZERO,ZEROS,ZEROES表示零字符SPACE,SPACES表示空格HIGH-VALUE,HIGH-VALUES表示具有最高值的字符(每个字符二进制为11111111)LOW-VALUE,常LOW-VALUES表示具有最低值的字符(每个字符二进制为00000000)QUOTE,QUOTES表示引号ALL 常量:表示由该量组成的字符串7/4/2023 IBM&DLUT Computer Technology Center 21 1.10 COBOL所处理数据的特点l层次:数据间不是孤立的,而是存在从属关系l记录:具有一定层次关系的一组数据项的最大集合l文件:记录在外部介质上的记录的集合l库:由若干个文件组成l初等项:数据的基本单位l组合项:由若干初等项和低一层组合项组成l层号:由两位整数组成,用来表示层次,层号约小则层次越高7/4/2023 IBM&DLUT Computer Technology Center 22 1.10 COBOL所处理数据的特点l层次:数据间不是孤立的,而是存在从属关系l记录:具有一定层次关系的一组数据项的最大集合l文件:记录在外部介质上的记录的集合l库:由若干个文件组成l初等项:数据的基本单位l组合项:由若干初等项和低一层组合项组成l层号:由两位整数组成,用来表示层次,层号约小则层次越高结束结束