精通COBOL——大型机商业编程技术详解(修订版)
cobol介绍
英文缩写: COBOL (Common business Oriented Language)中文译名: COBOL语言解释: 一种适合于商业及数据处理的类似英语的程序设计语言。
这种语言可使商业数据处理过程精确表达。
COBOL（面向商业的通用语言，又称为企业管理语言、数据处理语言等，Common Business Oriented Langauge）是最早的高级编程语言之一，是世界上第一个商用语言。
1 COBOL的历史1959年5月，五角大楼委托格雷斯·霍波（G.Hopper）博士领导一个委员会并由Rear Admiral Grace Hopper公司主持开发，并于1961年由美国数据系统语言协会公布。
正式发布于1960年4月，称为Cobol－60。
1959年12月出现了第一个COBOL语言文本，并于1960年4月正式发表，因此也被称为COBOL-60。
1968年美国国家标准委员会ANSI 又通过了新的标准ANSI COBOL X.3.23-1968。
1972年国际标准化组织ISO将其作为ISO COBOL-72。
1974年ANSI对COBOL-68作出了修订扩充，形成了ANSI COBOL X3.23-1974，随后1978年ISO采用其形成ISO COBOL-78，后来又提出了ANSI X3.23-85，增加了很多结构化程序设计的内容，ISO标准ISO1989:1985也采用了该标准。
COBOL 标准还在不断地改进和完善，最新的标准COBOL 2002主体已经于2002年12月出版，其他部分还在不断地完善之中。
现在最新的版本是Cobol－2002。
1963年，美国国家标准研究所(ANSI)进行了标准化，但是ANSI标准很少被遵循；因此，COBOL程序只是部分可移植的。
2 COBOL的重要性经过40多年的不断修改、丰富完善和标准化，COBOL已发展为多种版本的庞大语言，在财会工作、统计报表、计划编制、情报检索、人事管理等数据管理及商业数据处理领域，都有着广泛的应用。
COBOL(CommonBusinessOrientedLanguage)通用商业语言.
第一章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）:用空格分开的多条语句称为句子最后以“.”和空格结束的一个语句序列语句（STATEMENT）:一条完整的指令用于完成一定的操作子句（CLAUSE）:用于完成某一方面的特定功能如环境部中的SELECT子句。
16.4.1 伪会话程序的基本概念_精通COBOL——大型机商业编程技术详解（修订版）_[共2页]
![16.4.1 伪会话程序的基本概念_精通COBOL——大型机商业编程技术详解（修订版）_[共2页]](https://img.taocdn.com/s3/m/ac0b1239aeaad1f347933faa.png)
382 第16章 CICS 扩展 COBOL IF REQUEST = 'DATE'
EXEC CICS ASKTIME ABSTIME(GETTIME)
END-EXEC
EXEC CICS FORMATTIME ABSTIME(GETTIME)
DATESEP
DDMMYYYY(DATEOUT)
END-EXEC
STRING 'DATE IS: ' DATEOUT
DELIMITED BY SIZE INTO MSG
PERFORM 100-OUTPUT-RESULT
EXEC CICS RETURN END-EXEC.
GOBACK.
100-OUTPUT-RESULT.
EXEC CICS SEND CONTROL CURSOR(80)
END-EXEC
EXEC CICS SEND FROM(MSG)
LENGTH(20)
END-EXEC.
16.4 伪会话程序
伪会话程序是CICS 开发中十分重要的一个概念，绝大多数CICS 上的程序都是采用的伪会话程序。
伪会话程序充分体现了CICS 的交互能力，形成了区别于批处理作业最大的特征。
同时，伪会话程序也避免了长时间的独占任务资源，从而提供了程序的并发执行能力。
16.4.1 伪会话程序的基本概念
伪会话程序是相对于会话程序发展而来的。
会话程序将会不间断地等待从终端接受数据，直到程序结束。
而伪会话程序则只在终端有输入时才激活，并不会始终占用资源以等待从终端接受数据。
如图16.6所示，是这二者之间的区别。
图16.6 会话程序与伪会话程序的区别。
第1章 COBOL简介
第1章 COBOL简介COBOL是Common Business Oriented Language的缩写，即公用面向商业语言的意思。
在系统地学习COBOL程序设计语言之前，有必要首先对COBOL有一个大致的了解。
本章将分别从背景知识、语法格式、以及实际创建COBOL程序3个方面对其进行简要介绍。
1.1 背景知识在介绍COBOL之前，首先需要了解一下大型机的概念。
大型机也叫主机、大机、mainframe等，属于一种商用高端服务器。
目前大型机主要由IBM公司所生产，最新型号为z系列大型机。
COBOL便是用于大型机上应用软件开发的最主要的程序设计语言。
大型机上的工作大体上可以分为两类，分别为系统方向和开发方向。
系统方向的分工很多，包括使用Tivoli监控系统；使用RACF进行安全管理；使用SMS进行存储管理等等。
开发方向的市场需求相对系统方向则要大得多。
对于开发方向，主要需要掌握以下知识。
❑COBOL：最主要的程序设计语言。
❑JCL：作业控制语言，调用由COBOL编写的程序。
❑VSAM：程序中通常用到的文件类型。
❑DB2：大型机上最主要的数据库，通常以COBOL语言为宿主语言。
❑CICS：用于联机交易的中间件，通常也是以COBOL语言为宿主语言。
对于以上知识，在本书中都有详细介绍。
此外，对于大型机底层的开发，还需要掌握大型机上的汇编语言。
对于大型机汇编语言，在本书中也有具体讲解。
COBOL作为大型机上最主要的程序设计语言，迄今已有40多年的历史。
然而，经过40多年的沧桑，COBOL不仅没有被淘汰，反而在当今愈加流行起来。
关于这一点，主要应该是由以下3个因素所决定的。
❑COBOL广泛应用于广泛应用于银行业、信用卡业、保险业、制造业、航空业等等。
这些领域对于稳定性的要求都是十分高的，因此从很大程度上也保证了COBOL的不可取代性。
❑COBOL自身也在不断发展和更新中。
例如，COBOL本身主要属于面向过程的语言。
COBOL语言基础教程
cobol语言基础培训教程2009年04月23日| 5:23 下午分类:大型机｜Mainframe| 标签:cobol 数据类型、COBOL 程序举例、cobol入门、cobol教程、cobol语言、大型机培训|CHAPTER 1 COBOL 概述COBOL 就是mon Business Oriented Language 得缩写。
它不仅就是商业数据处理得理想语言,而且广泛用于数据管理领域,因此COBOL 语言也被称为”用于管理得语言”。
一。
COBOL 语言得特点最适于数据处理领域:算数计算量少而逻辑处理量多,输入输出量大,数据间存在着一定得逻辑关系,大量得分类排序;COBOL比较接近英语,容易懂;通用性强,易移植,COBOL结构严谨,层次分明。
二。
COBOL得组成部分:1。
标识部(IDENTIFICATION DIVISION):用于标识程序名。
2。
环境部(ENVIRONMENT DIVISION):用于说明程序运行得环境。
3。
数据部(DATA DIVISION):用于说明程序中涉及得所有数据。
4。
过程部(PROCEDURE DIVISION):就是程序得核心部分,它决定计算机应进行什么操作。
三。
最简单得COBOL 程序举例:COL 1 —6 7 8 12—72 73—80 IDENTIFICATION DIVISION。
PROGRAM-ID。
PSAMPLE1。
ENVIRONMENT DIVISION。
DATA DIVISION。
PROCEURE DIVISION。
DISPLAY ’THIS IS A COBOL PROGRAM、’STOP RUN。
四。
COBOL 源程序得书写格式:第1 至 6 列为”标号区”。
第7列为”续行标志区”第8至此11列,称为”A区”。
程序中有些内容如部头,节头,段头,层号01,层号77 及文件描述符FD等应从A区开始写。
第12至此72列,称为”B区”。
写程序中得正文部分。
18.4 修改账户功能模块_精通COBOL——大型机商业编程技术详解（修订版）_[共7页]
![18.4 修改账户功能模块_精通COBOL——大型机商业编程技术详解（修订版）_[共7页]](https://img.taocdn.com/s3/m/3c990d3de009581b6ad9ebb3.png)
445 18.4 修改账户功能模块COBOL MOVE DFHBMPRO TO ENTER-3A.PROCESS-SETMAP3.PERFORM PROCESS-SETMAP2MOVE DFHBMDAR TO ENTER-3AMOVE DFHBMBRY TO NEXT-3A. 18.4 修改账户功能模块 在修改账户功能模块的界面上，用户可以通过输入账号对所需修改的账户信息进行定位。
同时，输入的账号可以为部分内容，以进行模糊查找。
修改的对象为账户姓名。
用户同样可以确认或撤销修改操作、连续修改账户以及返回主菜单。
修改账户功能模块的界面如图18.4所示。
图18.4 修改账户功能模块界面在添加账户功能模块中，系统可输出的提示信息有以下几条。
提示信息1：INV ALID KEY PRESSED （表示用户按了非法的按键）。
提示信息2：INPUT DA TA REQUIRED （表示用户输入数据为空）。
提示信息3：ACCOUNT NUMBER NOT NUMERIC （表示输入的账号不全为数字）。
提示信息4：ACCOUNT NOT EXIST （表示所要修改的账户不存在）。
提示信息5：CLIENT NAME MODIFIED （表示账户姓名修改成功）。
提示信息6：UPDA TE PROCESS CANCELED （表示用户撤销了修改账户操作）。
提示信息7：ENTER “Y” OR “N”（要求用户输入确认或撤销信息）。
提示信息8：PROCESSING ERROR （表示系统在处理过程中发生错误）。
提示信息9：MODIFY SESSION ENDED （表示退出系统）。
修改账户功能模块的任务要求如下。
（1）显示界面，输出提示信息3，允许用户输入账号或姓名信息。
但“PROCEED WITH UPDATE (Y/N)？_”和“PF9=NEXT ”不显示，且下划线位置不允许输入。
（2）根据用户在输入数据前后所按的不同功能按键，分别作出如下处理。
cobol课件大型机基本操作
对文件进行读取和写入操作。
打开文件
使用适当的命令或函数打开已存在的文件。
关闭文件
完成文件操作后，使用命令或函数关闭文件。
数据传
对数据进行格式转换以满 足特定需求。
将数据从大型机导出到外 部目的地。
将数据从外部源导入到大 型机中。
数据导入
数据导出
数据转换
程序执行与调试
编译程序
01
将源代码编译成可执行程序。
解决方案
使用编译器提供的错误信息，定位问题所在，并 逐一修正。
数据处理错误
总结词
数据处理错误通常是由于数据类 型不匹配、数据范围超出限制或 数据操作不当引起的。
详细描述
检查数据类型是否匹配，数据范 围是否在允许的范围内，以及数 据操作是否正确。
解决方案
根据数据类型和范围要求，对数 据进行适当的转换和验证，确保 数据操作的正确性。
执行程序
02
运行编译后的程序并查看输出结果。
调试程序
03
使用调试工具检查程序中的错误并进行修复。
04 常见问题与解决方案
程序编译错误
1 2 3
总结词
编译错误通常是由于语法错误、拼写错误或结构 问题引起的。
详细描述
检查代码中的拼写错误、语法错误和结构问题， 确保所有语句都符合COBOL语法规则，并且程 序结构清晰。
系统运行错误
总结词
系统运行错误通常是由于系统资源不足、系统故障或外部因素引 起的。
详细描述
检查系统资源是否充足，系统是否正常运行，以及是否存在外部干 扰因素。
解决方案
合理分配系统资源，确保系统正常运行，同时采取措施避免外部干 扰因素对系统的影响。
07_第十课_COBOL编程入门
e.g compute A = a * (b + c) – d
一、标识部
北京德派克公司
作用：标识COBOL源程序名及一些备忘信 息，以供系统管理和调用。 格式：
IDENTIFICATION DIVISION. PROGRAM-ID. 程序名. [AUTHOR. 作者姓名] [……]
二、环境部
商业数据处理：银行、证券系统 数据管理领域：人事管理、库存管理、财 会工作、报表统计、情报检索等。
数据处理的特点：算术计算量少而逻辑处理 多；输入输出量大；数据间存在着一定的 逻辑关系；大量的分类排序。主要功能是 描述数据结构和分析处理大批量的数据。
COBOL语言特点
北京德派克公司
常量
北京德派克公司
数值常量 100,30,29.2，-123 非数值常量 ‘abc’‘123’ 表意常量 ZERO/ZEROS/ZEROES，SPACE/SPACES， HIGH-VALUE，LOW-VALUE，ALL
编码方式
北京德派克公司
COBOL的源程序书写格式
区间 关 键点
北京德派克公司
北京德派克公司
·每个字符占一格 ·主机系统一般都用大写字母。 ·相邻的两个字(如COBOL的保留字或用户自定义)之间 必须留一个以上的空格。 ·运算符(如加、减、乘、除、乘方)和等号左右两边必 须各留一个空格。在过程部中左括号的左侧和右括号 的右侧要留一空格，而内侧不必留空格。 ·逗号、句号、分号的左边不能留空格，而右边应有空 格。 ·一个空格和多个空格作用相同
HOST LANGUAGE SOURCE
COMPILE OBJECT MODULE
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5.4 利用INSPECT语句替换字 符串
5 字符串及其操作
5.5 字符串转换
5.5.1 字符串中字 母大小写的转换
A
5.5.2 将字符串转 换为具体数值
B
06
Part One
6 基本运算
6 基本运算
01
02
03
04
6.1 算术 6.2 关系 6.3 逻辑 6.4 本章
7.3.1 循环结构的基本流 程
7.3.4 循环结构的综合应 用
7 流程控制
7.3 循环结构流程控制
01 02
04
7.3.2 使用PERFORM UNTIL语句控制循环结构流程
03
7.3.3 使用线上PERFORM 语句控制循环结构流程
08
Part One
8 数据的排序与合并
8 数据的排序与合并
M U LT I P LY
DIVIDE
6 基本运算
6.1.7 乘方运算 COMPUTE
A
6.1.8 复合算术运算 COMPUTE
B
6.1.9 算术统计运算 COMPUTE
C
6.1 算术运算
6 基本运算
6.3 逻辑运算
6.3.1 逻辑 与运算
6.3.2 逻辑 或运算
6.3.3 逻辑 非运算
6.3.4 复合 逻辑运算
运算
运算
运算
回顾
6 基本运算
6.1 算术运算
01
6 .1 .1 四 舍 五 入 运算 02
6.1.2 运算结果溢出报错
ROUNDED
ON SIZE ERROR
03 6 .1 .3 算 术 加 运 算 04 6 .1 .4 算 术 减 运 算
ADD
SUBTRACT
05 6 .1 .5 算 术 乘 运 算 06 6 .1 .6 算 术 除 运 算
4.1 基本数据 类别
4.4 浮点数类 型
4.2 字符类型
4.5 Signed Numbers符 号类型
4.3 整型数类 型
4.6 Numeric Edited Fields格式输 出类型
4 基本数据类型
4.7 本章回顾
4 基本数据类型
4.1.1 变 量
4.1.3 直 接数
4.1.2 常 量
4.1.4 结 构体
精通COBOL——大型 机商业编程技术详解(修 订版)
01
Part One
1 COBOL简介
1 COBOL简介
011.1 背景知识
1.3 COBOL学03习环境配置
1.3.1 模拟大型机系统—Hercules 1.3.2 终端连接软件—PCOM
015.5 本章回顾02 Βιβλιοθήκη .2 语法格式0 10
2
0 5
4.6.5 其他格 式
0 3
4.6.3 算术数 格式
0 6
4.6.6 各种格 式的综合应用
4.6 Numeric Edited Fields 格式输出类型
05
Part One
5 字符串及其操作
5 字符串及其操作
5.1 字符串的基本概念
5.3 使用UNSTRING语句 拆分字符串
5.5 字符串转换
8.1 排序与 合并概述
1
8.2 数据 的排序
2
8.3 数据 的合并
3
8.4 本章 回顾
4
8 数据的 排序与合 并
8.1 排序与合并概述
https:///
8.1.1 排序的基本 概念
A
8.1.2 合并的基本 概念
B
8.2.1 使用SD语句定义排序 中间文件
8.2.3 使用GIVING短语指 定排序输出文件
A
5.2.2 STRING语 句的综合应用
B
5 字符串及其操作
5.3.1 UNSTRING语 句的基本用法
5.3.2 UNSTRING语 句的综合应用
5.3 使用UNSTRING语句拆分 字符串
5 字符串及其操作
5.4.1 对全体字 符进行替换
5.4.3 对首字符 进行替换
5.4.2 对前缀字 符进行替换
6.3.5 逻辑运算表 达式中常用的省略
方式
07
Part One
7 流程控制
7 流程控制
7.2 选择结构流程 控制
7.1 顺序结构流程 控制
B A
7.3 循环结构流程 控制
C
7.4 本章回顾
D
7 流程控制
7.2.1 选择结构的 基本流程
1
7.2.6 使用ZERO简 化选择结构编码
6
7.2.5 使用
5.2 使用STRING语句合 并字符串
5.4 利用INSPECT语句替 换字符串
5.6 子字符串的概念及应 用
5 字符串及其操作
5.7 通过MAX和MIN得到 最大和最小字符串
5.9 本章回顾
5.8 求取字符串的长度
5 字符串及其 操作
5.2 使用STRING语句合并字 符串
5.2.1 STRING语 句的基本用法
04 1.4 创建第一个COBOL程序
0 3
0 4
0 5
02
Part One
2 程序结构
2 程序结构
2.1 标志部
2.2 环境部
2.2.1 配置节 2.2.2 输入/输出节
2.3 数据部
2.3.1 文件节 2.3.2 工作存储节
2.4 过程部 2.5 本章回顾
03
Part One
3 常用语句
3.1 MOVE 语句
EVALUATE语句控制
5
多分支选择结构流程
2
7.2.2 条件判断表 达式
3
7.2.3 使用IF语句 控制选择结构流程
4
7.2.4 使用嵌套IF语 句控制选择结构流程
7.2 选择结构流程控制
7.2.7 使用88层条件名简化 选择结构编码
7 流程控制
7.2 选择结构流程控制
7.2.8 选择结构的综合应用
3.3.1 使用 ACCEPT语 句接收数据
3.3.2 使用 DISPLAY语 句输出数据
3.3 ACCEPT和DISPLAY语句
3 常用语句
3.5.2 READ语句
3.5.1 OPEN和 CLOSE语句
3.5.3 WRITE语句
3.5 文件相关语句
04
Part One
4 基本数据类型
4 基本数据类型
3 常用语句
3.2 PERFOR M语句
3.4 REDEFI NES语句
3.5 文 件相关 语句
3.3 ACCEPT和 DISPL AY语 句
3.6 本 章回顾
3 常用语句
A
3.1.1 复制单个 数据项
C
3.1.2 复制不同类型 和长度的单个数据项
3.1.3 复制一组 数据
B
3.1 MOVE语句
3 常用语句
4.1 基本数据类别
4 基本数据类型
A
4.5.1 Signed Numbers符号类型
的作用
4.5.2 Signed Numbers符号类型
的输出
B
4.5 Signed Numbers符号类 型
4 基本数据类型
0 1
4.6.1 货币格 式
0 4
4.6.4 日期格 式
0 2
4.6.2 算术符 号格式