精品课程第2章-COBOL简介.ppt

单位 大连理工大学作者 陆坤 李凤岐 姜厚云 1 大型主机平台系统应用开发基础 教育部 IBM精品课程 2 第二章COBOL简介 2 1COBOL语法格式2 2大型机COBOL环境介绍2 3简单COBOL样本程序 3 第一节COBOL语法格式 COBOL的历史COBOL的特点COBOL程序的结构COBOL程序的书写格式COBOL字符和COBOL字数据名常量数据的层次 COBOL的历史 COmmonBusinessOrientedLanguage用于商业数据处理与管理 如 银行 证券 金融 人事管理 财会 统计报表 情报检索等等1959年5月美国国防部召开数据系统语言会议1959年12月第一个COBOL语言文本1960年4月正式发表COBOL60 经过扩充完善COBOL61 ANSICOBOL61 最早的版本1965年COBOL65 ANSICOBOL68 ISOCOBOL721972年COBOL72 ANSICOBOL74 ISOCOBOL78ANSICOBOL85 应用最广泛的版本ANSICOBOL2002 最新版本 COBOL的特点 描述性好 能根据需要描述各种形式的数据适合大批量数据处理 能对数据进行严密的组织 算术运算简单但运算量大 逻辑运算多 语法接近自然语言 英语 成文自明 例如 ADDATOBGIVINGCMOVE HELLO TOD遵循ISO标准 通用性强 移植方便格式固定 结构严谨 层次分明缺点是比较繁琐 COBOL程序的结构 COBOL程序的结构 部下设置节 节下设段或描述体标识部下直接定义段环境部下定义节 节下定义段数据部下定义节 节下定义描述体过程部下定义节 节下定义段 复杂程序 过程部下也可以直接定义段 一般程序 COBOL程序的结构 IDENTIFICATIONDIVISION 标识部 主要指定源程序的名称 也可记录备忘信息如 日期 作者等ENVIRONMENTDIVISION 环境部 指出程序中用到的数据文件名与系统设备的对应关系DATADIVISION 数据部 说明程序中所有数据的类型和所占内存大小PROCEDUREDIVISION 过程部 定义程序要执行的指令 是程序的核心某些部可以省略 但顺序不可以改变 COBOL程序的结构 节是由一个或多个段组成的节的定义从节名开始到下一个节名或文本结束为止节的格式 节名SECTION 注 节名分为系统定义和用户自定义两种 COBOL程序的结构 每个节中包含一个或多个段 段由一个或多个句子组成段的定义从段名开始到下一个段名或文本结束为止段的格式 段名 段名 点号 注 段名分为系统定义和用户自定义两种 COBOL程序的结构 文件描述体只能在数据部中定义 用于描述外部文件的属性及其记录的格式文件描述体用FD FileDescription 语句定义 详见数据部 COBOL程序的结构 句子由语句组成 语句可以包含若干子句句子以一个句号加一个以上的空格来结束每个语句都是一条完整的指令 用相应的动词表示其操作子句也是一个动词 指定某一方面特定的功能 COBOL程序的书写格式 ANSI格式标准COBOL程序每行80列 被分为五个区域第1 6列为 标号区 标号是6位数字 应从小到大 但不一定连续 标号只是方便查阅程序 可以省略第7列为 注释区 续行区 使用 表示本行是注释 使用 表示本行是紧接在上一行后面续行第12列用单引号 续行内容接着书写 COBOL程序的书写格式 第8 11列为 A区 程序中有些内容必须从该区开始书写 如 部 节 段头 文件描述符 FD 层号01和77第12 72列为 B区 程序正文部分 过程部语句必须从该区开始书写第73 80列为 注释区 写入此区的内容在编译时被忽略 COBOL程序的书写格式 COBOL程序的书写格式 大小写字母等价 CAPS 但引号中的字符除外 如 ADDATOB addATobDISPLAY HELLO DISPLAY hello 相邻的两个COBOL字之间有一个以上的空格运算符和等号左右必须各有一个以上的空格 圆括号外侧必须有一个以上的空格 内侧不必如 COMPUTER A B C D否则编译时有警告信息逗号 句号 分号左边不能有空格 而右边应有如 DISPLAY A A COBOL字符和COBOL字 COBOL字符是指在程序中允许出现的字符包括数字 大小写字母及下面15个专用符号 逗号 句号 分号 引号 空格COBOL字是由上述字符组成的最小单位保留字 在COBOL已经规定专门用途的字 300多个 用户字 用户自定义的名字如 程序名 文件名 节名 段名 数据名等 数据名 数据名相当于其它语言中的变量名 它代表一个具体的数据项 数据名只能由字母 至少一个 数字和连字符 组成 连字符不能出现在两端 不能包含空格数据名长度不能超过30个字符 length 30 尽量使用有意义的英文字或拼音 如 NAME XINGMING XMING XM不能用保留字作为数据名建议 多使用连字符 如 DATE OF TODAY 数据名 判断以下哪些数据名是合法的 1 SUM2 SUM OF X3 SUMOFX4 SUM OF X 5 SUM OF ALL THE XS6 SUM OF ALL THE XS IN ENTIRE PROGRAM7 GROSS PAY IN 8 12345 X 连字符在末尾 X 字母至少一个 X 包含了字母 数字和连字符以外的符号 X 长度过长 X 包含空格 常量 数值常量 由数字0 9 正负号和小数点组成的序列如 123 45 67 890 数值长度不超过18位 不包含正负号和小数点 最少有一个数字 最多有一个正负号 且只能出现在最左边 小数点不能出现在常数右边如 MOVE20 TOAGE 错误 常量 非数值常量 用匹配的引号 单 双 括起来的字符串如 DIVISION 123 HELLOWORLD 长度不超过160位 由纯数字组成的非数值常量不能用于数学运算如 123 和123不同 若要写入引号 需使用表意常量QUOTEMOVEQUOTE HENRY QUOTETONAME 单引号和双引号可以相互包含 常量 表意常量 QUOTE QUOTES表示引号 ZERO ZEROS ZEROES 表示零字符 SPACE SPACES 表示空格 HIGH VALUE HIGH VALUES 表示具有最高值的字符 每个字符二进制为11111111 LOW VALUE LOW VALUES 表示具有最低值的字符 每个字符二进制为00000000 ALL 表示由该量组成的字符串 常量 数据的层次 数据的层次 数据的层次 数据的层次 初等项 相互独立 没有内在联系的数据项 是数据的基本单位组合项 由若干初等项和低层组合项组成 在逻辑上存在联系 平等或从属 层次 数据间不是孤立的 而是存在从属关系记录 具有一定层次关系的一组数据项的最大集合文件 存储在外部介质上的记录的集合数据库 文件的集合 文件库 28 第二节大型机COBOL环境介绍 概述创建COBOL源程序创建编译链接JCL创建运行JCL查看运行结果 概述 通过提交JCL脚本调用COBOL编译器对COBOL源程序进行编译链接和运行 创建COBOL源程序 创建分区数据集TE COBOL SOURCE存放源程序 方便对其管理 创建COBOL源程序 在分区数据集SOURCE中建立源程序HELLO TE COBOL SOURCE HELLO 创建编译链接JCL 创建分区数据集TE COBOL LOAD存放可执行模块 LoadModel 方便对其管理 创建编译链接JCL 通过调用IGYWCL程序对源文件编译链接 生成可执行模