精通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
COBOL入门培训教材
02 PROD-PRICE PIC 9（6）.
02 MANU-DATE.
05 DATE-CCYY
PIC 9（4）.
05 DATE-MM PIC 9（2）.
05 DATE-DD PIC 9（2）.
数据部的结构： 数据部中通常用到的有以下几个节：
（1）FILE SECTION：描述程序中用到的输入输出文件及其记录中各数
数据的层次和层号：COBOL中把有从属关系的数据用层次（level）关系来 描述.数据的层次结构是：记录--》组合项--》初等项.如，在前面READ语句中 定义的 IN-FILE 文件具有如下结构：
01 IN-RECORD.
02 PROD-CODE PIC 9（4）.
02 PROD-QUANTITY PIC 9（5）.
COBOL是一种面向数据处理的、面向文件的、面向过程(POL) 的高级编程语言，是一种功能很强而又极为冗长的语言.
COBOL的应用
1.IBM MAINFRAME COBOL,一般应用在OS/390，AS/400等 2.UNIX/LINUX系统下的COBOL,如:HP-UX 3.COBOL被用来开发存货、银行、支付、流通和股票交易系统
标识部
PROGRAM-ID.
程序名.
[AUTHOR.
作者名. ]
[INSTALLATION. 计算机设置场所. ]
[DATE-WRITTEN. 源程序编写日期. ]
[DATE-COMPILED. 源程序编译日期. ]
[SECURITY.
保密程度.]
环境部
CONFIGRATION SECTION.
INPUT-OUTPUT SECTION
INPUT-OUTPUT SECTION 包括两个段，即：FILE-CONTROL 和 I-OCONTROL.FILE-CONTROL段是为文件分配外部文件.I-O-CONTROL段的作用是可以 指定目标程序运行时，几个文件共用一个内存区，以省内存.在此暂不作介绍
COBOL软件开发技术
需改进问题点管理注：重要度最高为10，最低为1。
进度管理更新履历成果物一览不制作光盘，以WEB提供资料、补丁、交互服务。
网址：资料下载内容：EDITPLUS试用版及语法完成、语法高亮、语法剪辑文件及用户工具配置UESTUDIO试用版及语法高亮文件及用户工具配置文件及文件比较工具虚拟机软件使用指南部分案例的源代码录像（是否制作待定，编译器环境配置，编译及调试演示）主机软件开发系列丛书COBOL软件开发技术孙树斌阮利编著目录（自动生成）第1章COBOL85程序设计概述 (10)§1.1COBOL语言简介 (10)1.1.1什么是COBOL (10)1.1.2COBOL语言的特点 (10)1.1.3COBOL语言的历史与发展 (11)§1.2第一个COBOL程序——H ELLO COBOL！ (12)1.2.1程序代码 (12)1.2.2部(DIVISION) (12)1.2.3节(SECTION) (13)1.2.4句子、语句和子句 (13)1.2.5COBOL85程序结构及书写格式 (13)1.2.6COBOL程序的数据分层 (15)1.2.7COBOL字符集 (15)1.2.8COBOL字 (16)1.2.8.1保留字 (16)1.2.8.2表意常量 (16)1.2.8.3用户字 (17)1.2.9COBOL所处理的数据的特点 (18)§1.3本章小结 (18)思考与练习 (18)思考与练习解答 (18)第2章实例操练一：HELLO COBOL (18)§2.1用E DITPLUS+RMC OBOL编译运行 (19)§2.2用UES TUDIO+RMC OBOL编译运行 (19)§2.3用NET COBOL7编译运行 (19)§2.4本章小结 (19)思考与练习 (19)思考与练习解答 (19)第3章COBOL编程轻松上手 (20)§3.1认识数据部 (20)3.1.1了解数据部 (20)3.1.3COBOL数据 (21)3.1.4数据组成层次结构 (21)§3.2工作单元节（WORKING-STORAGE SECTION） (21)§3.3字型语句（PICTURE子句） (22)3.3.1数值型数据描述 (22)3.3.1.1“9”描述符 (22)3.3.1.2“S”描述符 (23)3.3.1.3“V”描述符 (23)3.3.1.4“P”描述符 (23)3.3.1.5数值型变量小结 (24)3.3.2文字型数据描述 (24)3.3.2.1“A”描述符 (24)3.3.2.2"X"描述符 (24)§3.4赋初值子句（VALUE子句） (25)§3.5认识过程部 (25)3.5.1了解过程部 (25)3.5.2接收语句(ACCEPT语句) (26)3.5.3显示语句(DISPLAY语句) (29)3.5.4数据项初始化（INITIALIZE） (30)3.5.5传送语句(MOVE语句) (31)3.5.6停止语句(STOP语句) (32)3.5.7算术运算语句 (32)3.5.7.1加法语句(ADD语句) (32)3.5.7.2减法语句(SUBTRACT语句) (34)3.5.7.3乘法语句(MULTIPLY语句) (34)3.5.7.4除法语句(DIVIDE语句) (35)3.5.7.5计算语句(COMPUTE语句) (35)3.5.8逻辑与控制语句 (36)3.5.8.1条件表达式 (36)3.5.8.2条件语句(IF语句) (36)3.5.8.3IF嵌套与分析 (38)3.5.8.4转移语句(GOTO语句) (39)3.5.9执行语句（PERFORM 语句） (40)3.5.9.1概述 (40)3.5.9.2基本形 (41)3.5.9.3PERFORM 语句与其他语句的区别 (41)3.5.9.4执行语句（PERFORM 语句）的嵌套 (41)3.5.9.5执行语句（PERFORM 语句）语句序列中的转移 (41)3.5.9.6执行语句（PERFORM 语句）语句计数循环 (42)3.5.9.7执行语句（PERFORM 语句）UNTIL循环 (42)3.5.10出口语句（EXIT） (43)§3.6复写语句 (43)思考与练习 (44)第4章实例操练二：九九乘法表 (48)思考与练习 (51)思考与练习解答 (51)第5章数据处理及显示 (51)§5.1数据在计算机内的表示形式 (51)5.1.1计算机内存的组织形式 (51)5.1.2数值型数据在内存中的存储数据 (52)5.1.3数据描述与存储形式的关系 (52)§5.2用法子句（USAGE子句） (52)§5.3重定义子句(REDEFINES子句) (53)§5.4重命名子句(RENAMES子句) (54)§5.5遇零置空子句（BLANK WHEN ZERO） (55)§5.6对齐子句(JUSTIFIED子句) (55)§5.7同步安置子句（SYNCHRONIZED） (56)§5.8编辑型数据描述 (56)5.8.1“.”描述符 (57)5.8.2“+”描述符 (57)5.8.3“-”描述符 (57)5.8.4“，”描述符 (58)5.8.5“$”描述符 (58)5.8.6“*”描述符 (59)5.8.7插入空格、“0” (59)5.8.8“DB”、“CR” (59)§5.9描述符知识点整理 (60)§5.10算术运算精度处理 (61)5.10.1四舍五入处理子句（ROUNDED子句） (61)5.10.2长度溢出处理子句（ON SIZE ERROR） (62)5.10.3除法语句的余数子句(REMAINDER) (62)§5.11对应传送子句（或称作同名传送CORR） (63)§5.12对应项间的运算（CORR） (64)§5.13本章小结 (65)思考与练习 (65)思考与练习解答 (65)第6章字符串处理 (66)§6.1字符串连接（STRING） (66)§6.2字符串分解语句（UNSTRING） (67)§6.3检测语句（INSPECT语句） (68)第7章COBOL85逻辑控制 (70)§7.1逻辑控制语句 (70)§7.2条件表达式 (70)§7.4EVALUATE语句 (71)§7.5CONTINUE语句 (71)§7.6GO TO (71)§7.7条件关系 (72)§7.8复合条件 (72)§7.9符号条件 (73)§7.10类型条件 (73)§7.11条件名条件 (73)§7.12循环处理 (74)§7.13带有循环控制变量的PERFORM语句 (76)7.13.1一重循环 (76)7.13.2三重循环的PERFORM 语句 (77)§7.14本章小结 (78)思考与练习 (79)思考与练习解答 (79)第8章COBOL85表与检索 (79)§8.1表的基本概念 (79)§8.2表的建立 (81)§8.3表元素的引用 (82)§8.4表元素赋初值 (83)§8.5表的应用 (84)§8.6位标法 (84)8.6.1位标名 (84)8.6.2位标法引用表元素规则 (85)8.6.3设置语句 (85)§8.7表的顺序检索 (86)§8.8表的对分检索 (87)§8.9用PERFORM语句对表进行检索 (88)§8.10本章小结 (88)思考与练习 (88)思考与练习解答 (89)第9章COBOL85子程序 (89)§9.1子程序概述 (89)§9.2主程序与子程序连接 (89)一、子程序结构 (89)二、调用语句语法： (90)三、联接节 (91)§9.3子程序返回语句 (91)§9.4公用区数据 (91)§9.5子程序举例 (91)§9.6本章小结 (93)思考与练习 (93)思考与练习解答 (93)第10章实例操练--习题答案演示系统 (93)§10.1需求分析 (93)§10.2系统设计 (93)第11章COBOL85程序部 (93)§11.1标识部 (93)§11.2环境部 (95)11.2.1环境部概述 (95)11.2.2配置节 (96)11.2.3文件组织方式 (100)11.2.4输入输出节 (102)11.2.4.1输入输出节概述 (102)11.2.4.2文件控制段 (103)11.2.4.3输入输出控制段 (109)§11.3数据部 (110)11.3.1数据部概述 (110)11.3.2文件节 (115)11.3.3工作单元节（WORKING-STORAGE SECTION） (118)§11.4过程部 (126)§11.5本章小结 (127)思考与练习 (128)思考与练习解答 (128)第12章COBOL85文件处理 (128)§12.1文件处理常用语句概述 (128)12.1.1打开语句（OPEN语句） (128)12.1.2读语句（READ语句） (129)12.1.3写语句（WRITE语句） (130)12.1.4重写语句REWRITE (131)12.1.5删除语句DELETE (131)12.1.6关闭语句（CLOSE语句） (131)12.1.7开始语句START (131)12.1.8文件操作汇总 (132)§12.2磁带文件 (132)§12.3磁盘顺序文件 (134)§12.4磁盘索引文件 (139)12.4.1索引文件的概念 (139)12.4.2COBOL中与索引文件有关的部分 (139)12.4.3写索引文件记录 (140)12.4.4检索索引文件记录 (141)12.4.5新增索引文件记录 (143)12.4.6修改索引文件记录 (144)12.4.7删除索引文件记录 (145)12.4.8综合实例 (145)§12.5磁盘相对文件 (147)§12.6动态存取 (148)§12.7综合应用举例 .................................................................................. 错误!未定义书签。
大型机学习002--大型机介绍及COBOL(1)
大型机是一种计算机（personal computer/minicomputer/mainframe/supercomputer）大型机的优点：高速（皮秒级，10^-12 ）专注于大型数据的处理和数据存储高度的安全性批处理（BA TCH PROCESS）我们要学的：/COBOL（Common Business-Oriented Language 面向商业的通用语言）/JCL （Job Control Language工作控制语言）/VSAM （VIRTUAL STORAGE ACCESS METHOD 虚拟数据存取方法）/DB2 （IBM Database II IBM 数据库）/CICS (CUSTOMER INFORMA TION CONTROL SYSTEM 客户信息控制系统)COBOL（1）历史1957---ANSI-COBOL-----COBOL68-----74----85------98(面向对象的)特性高级语言（high level）、用户友好性（user friendly）、移植性（translation）、结构化语言（structered language）编程过程一般过程：程序开始（类似于头文件）、变量定义、写处理指令（输入、计算、输出）、结束编程COBOL：IDENTIFICATION DIVISION（识别部）、ENVIRONMENT DIVISION环境部、DA TA DIVISION数据部、PROCEDURE DIVISION过程部部的细分：divisions→sections→ paragraphs→sentences→statements编程格式：1-6 序列列：为“标号区”(sequence area)。
可以填写6个数字。
标号由程序编写者自定，标号应按由小到大的顺序，但不一定连续。
标号区内可以写标号也可以不写标号(标号区空白)。
标号对源程序的执行结果没有任何影响。
cobol课件大型机基本操作.
段显示
2021/5/22
Cobol for Z900 语言程序设计
常用菜单的选择： 6 Command: 输入TSO命令
Cobol for Z900 语言程序设计
大型机基本操作
Cobol for Z900 语言程序设计
一 开机
(主机和硬件控制 台加电）
硬件系统加电
(启动主机外围设备的控制系 统）
系统上电（POWER ON)
上电重置（POWER ON RESET)
系统载入（LOAD) 分区激活（ACTIVATE)
(各系统和分区处于硬件 就绪状态）
2021/5/22
Cobol for Z900 语言程序设计
F2 = Split: 进入屏幕分割模式或改变分割行的位置
2021/5/22
Cobol for Z900 语言程序设计
F3 = End: 结束当前操作，直接返回到前一屏幕 F4 = Return: 结束当前操作，直接返回到主选择菜
单 F5 = Refind:
通过“IBM个人通信”软件（PCOM)登录到TSO环境
2021/5/22
Cobol for Z900 语言程序设计
TSO下的程序产品： ISPF－Interactive System Productivity Facility PDF－ Program Development Facility
用于进行交互式作业提交、系统开发、测试功能。用 户可在该工具环境下查看系统的数据集目录、对数 据集进行常用的操作。
第一章 COBOL简介
目录第一章COBOL简介 (1)1．1 背景知识 (1)1．2 COBOL的历史 (4)1．3 COBOL的重要性 (4)1．4 COBOL的特点 (5)1．5 COBOL的程序结构 (5)1．6 语法格式 (6)1．7 COBOL学习环境配置 (7)1．7．1 模拟大型机系统-Hercules (7)1．7．2 终端连接软件-PCOM (11)1．7．3 启动模拟大型机系统-Hercules (13)1．8 创建第一个COBOL程序 (21)第一章COBOL简介COBOL (Common Business Oriented Language) 即面向商业的通用语言。
在系统地学习COBOL程序设计语言之前，有必要首先对COBOL有一个大致的了解。
本章将分别从背景知识、历史、重要性、特点、程序结构、语法格式、学习环境配置和创建第一个COBOL程序八个方面进行简要介绍。
1．1 背景知识在介绍COBOL之前，首先需要了解一下大型机的概念。
大型机也叫主机、大机或Mainframe等。
大型机（Mainframe）这个词，最初是指装在非常大的带框铁盒子里的大型计算机系统，以用来同小一些的小型机和微型机有所区别。
虽然这个词已经通过不同方式被使用了很多年，大多数时候它却是指System/360 开始的一系列的IBM计算机及兼容的计算机。
这个词也可以用来指由其他厂商，如Amdahl、Hitachi Data Systems (HDS) 制造的兼容的系统。
大型机不仅仅是一个硬件上的概念，它是硬件和专属软件的一个有机整体，是一套密不可分的封闭系统，这种封闭系统在为大型机系统带来了高可靠性和安全性的同时也使得一般的计算机从业人员难以进入这一领域，因为在全球包括美国等发达国家在内，没有比较完善的社会性质的大型机系统培训，这与风起云涌的JAVA等开放开发平台的培训形成了鲜明的对比。
大型机是上世纪六十年代发展起来的计算机系统。
COBOL入门培训教材
04 QANTITY-OF-SALES PIC 9(6).
04 QANTITY-OF-HAND PIC 9(6).
说明：1. OCCURS子句不能出现在77层，因为77层是独立的数据项.
2．OCCURS子句不能用于01层.
3．只有当OCCURS所说明的数据是初等项时，才能在该数据项的描述中使用PIC子句.
数据的层次和层号：COBOL中把有从属关系的数据用层次（level）关系来 描述.数据的层次结构是：记录--》组合项--》初等项.如，在前面READ语句中 定义的 IN-FILE 文件具有如下结构：
01 IN-RECORD.
02 PROD-CODE PIC 9（4）.
02 PROD-QUANTITY PIC 9（5）.
UNTIL FILE-STATUS=END. //循环 PERFORM 122-FILE-CLOSE-SECTION. PERFORM 300-END-SECTION .
STOP RUN. 000-MAIN-EXT. 100-INITIALIZATION-SECTION.
INITIALIZE INFILE-REC WORK-AREAS TABLE-REC.
标识部
PROGRAM-ID.
程序名.
[AUTHOR.
作者名. ]
[INSTALLATION. 计算机设置场所. ]
[DATE-WRITTEN. 源程序编写日期. ]
[DATE-COMPILED. 源程序编译日期. ]
[SECURITY.
保密程度.]
环境部
CONFIGRATION SECTION.
COBOL入门培训
16-MAR-2010
本次培训只涉及到COBOL中比较常 见的知识点
COBOL
COBOL语言第一章COBOL概述COBOL简介1．COBOL是Common Business-Oriented Language（通用商业语言）※COBOL-85标准，IBM COBOL（大型机）、FUJITSU COBOL（PC）COBOL构成1．IDENTIFICATION DIVISION （标识部）用来指定源程序名和作为备忘的某些信息2．ENVIRONMENT DIVISION （环境部）指出程序中用到的数据文件名与计算机系统的设备对应关系,指定程序所用内存区大小等3．DATA DIVISION （数据部）程序中所用到的全部数据包括输入输出和中间数据4．PROCEDURE DIVISION （过程部）程序要执行的指令，即主处理部分※程序中四大部分缺一不可节和段除标识部没有节，每个部下面有若干个节（SECTION）。
每一节下面可包括若干段。
IDENTIFICATION DIVISION段┇┇ENVIRONMENT DIVISION节段┇节┇DATA DIVISION节描述体┇┇┇PROCEDURE DIVISION（节）段┇┇不区分大小写例：ABC 等同于AbcCOBOL每个句子后要加句号“.”例：PERFORM 1000-INIT.※但在特殊的语句体里是不能写句号、包括：条件、循环、调用例：IF IN1-AREA = HIGH-VALUEMOVE FLG-ON TO FLG-ENDEND-IF.运算符和等号左右两边留空格。
（）左右两边留空格。
例：IF （IN1-AREA = HIGH-VALUE）OR （IN2-AREA = SPACE）……END-IF.COBOL程序纸每行有80列，一行分为几个区标识部Ａ．功能：提供程序的一般性文档说明Ｂ．元素①．IDENTIFICATION DIVISION．//部起始标识②．PROGRAM-ID．XXXXX．//程序名称③．AUTHOR．XXXXX．//作者名称④．INSTALLAION．XXXXX．//公司名称⑤．DATE-WRITTEN．XXXXX．//修改日期⑥．DATE-COMPILED．XXXXX．//编译日期⑦．SECURITY．XXXXX．//安全信息环境部Ａ．功能：提供与程序外部有关的信息Ｂ．元素①．ENVIRONMENT DIVISION．//部起始标识②．CONFIGURATION SECION．//配置节标识③．SOURCE-COMPUTER．XXXXXX．//程序编译计算机型号④．OBJECT-COMPUTER．XXXXXX．//程序运行计算机型号⑤．SPECIAL-NAMES．XXXXXX．//外部设计、货币符号定义⑥．INPUT-OUTPUT SECTION．//输入节标识⑦．FILE-CONTROL．//文件信息描述段标识⑧．I-O-CONTROL．//文件信息描述段标识数据部Ａ．功能：提供程序变量的存放位置Ｂ．元素①．DATA DIVISION．//部起始标识②．FILE SECTION．//文件节标识③．WORKING-STORAGE SETION．//工作存储节标识④．LINKAGE SECTION．//连接节标识⑤．COMMUNICATION SECTION．//通讯节标识⑥．REPORT SECTION．//报表节标识过程部Ａ．功能：即程序逻辑处理部分、包含过程性语句Ｂ．元素①．PROCEDURE DIVISION．//部起始标识②．XXXXXX SECTION ．．．．．．EXIT//子过程节标识数据常量1．ZERO：表示一个或多个零字符2．SPACE：表示一个或多个空格字符3．HIGH-VALUE：表示一个或多个具有“最高值”的字符（二进制11111111）4．LOW-VALUE：表示一个或多个具有“最高值”的字符（二进制00000000）数据类型描述字符例：03 CON-IN1-KENSU PIC X(17).03 CON-IN2-KENSU PIC S9(8).数据定义１．数据层在COBOL中数据项的定义是由若干个层来组织的，即：一个数据项的定义要包括（层号、数据项名称、定义语句、数据类型及数据长度等部分组成）层号：从01～49层用列描述具有层次机构的数据项，77层用来描述独立的数据项，66和88是特殊层２．PICTURE(PIC)语句//数据项目定义语句格式：层号数据项名称PIC类型长度VALUE初始值例：01 FLG-DEFINE.03 FLG-ON PIC X VALUE 'Y'.03 FLG-OFF PIC X VALUE 'N'.03 FLG-FIRST PIC X.03 FLG-END PIC X.03 FLG-EOF1 PIC X.03 FLG-SELECT1 PIC X.03 FLG-SELECT2 PIC X.３．FILLER语句//用来临时占用不使用的数据位置格式：层号FILLER PIC类型长度例：01 WRK-AREA-DEFINE.03 WRK-SAGYO PIC 9(8).03 FILLER REDEFINES WRK-SAGYO.05 WRK-SAGYO-Y PIC 9(4).05 WRK-SAGYO-MD PIC 9(4).05 FILLER REDEFINES WRK-SAGYO-MD.07 WRK-SAGYO-M PIC 9(2).07 WRK-SAGYO-D PIC 9(2).03 FILLER REDEFINES WRK-SAGYO.05 WRK-SAGYO-YM PIC 9(6).05 FILLER PIC 9(2).４．REDEFINES//对上层已知长度的数据项目进行，项目拆份，定义程多个数据项格式：层号FILLER REDEFINES 上层数据项名称例：01 WRK-AREA-DEFINE.03 WRK-SAGYO PIC 9(8).03 FILLER REDEFINES WRK-SAGYO.05 WRK-SAGYO-Y PIC 9(4).05 WRK-SAGYO-MD PIC 9(4).05 FILLER REDEFINES WRK-SAGYO-MD.07 WRK-SAGYO-M PIC 9(2).07 WRK-SAGYO-D PIC 9(2).03 FILLER REDEFINES WRK-SAGYO.05 WRK-SAGYO-YM PIC 9(6).05 FILLER PIC 9(2).５．OCCURS语句//指定数据项位固定项目数或可变项目数的表格（数组）格式：层号数据项目名称OCCURS 维数01 MRG-TBL-DEFINE.03 MRG-TBL OCCURS 2.05 MRG-FLG PIC X.05 MRG-KEY PIC X(12).03 MRG-END PIC X VALUE HIGH-VALUE.＊＊MOVE FLG-ON TO MRG-FLG(1)MRG-FLG(2).６．COPY语句//将文件从源库中复制到COBOL源程序中格式：COPY 文件名称例：COPY XRA240※在这里可以把COPY语句理解程C语言中INCLUDE语句第五章逻辑语句操作语句１．MOVE语句//将数据从发送项目复制到一个或几个接收项目例：MOVE AA TO BB２．ADD语句//将两个或几个数字操作数相加例：ADD AAA TO BBBADD 20.00, AB GIVING AD ON SIZE ERROR GO TO ERROR.３．SUBTRACT语句//从一数据中减去一个或几个操作数例：SUBTRACT AP FROM ADSUBTRACT 20.00, AP FROM AO GIVING MM ON SIZE ERROR GO TO ERROR.４．COMPUTE(+、-、*、/)语句//算术表达式例：COMPUTE TAX = A1 * A2 + B3５．DISPLAY语句//将数据写入输出设备例：DISPLAY “XXXXX”逻辑语句１．IF语句// IF语句测试一个条件并根据条件值执行两种语句系列之一IF 条件判断执行语句ELSE执行语句END-IF例：IF FLG-END = FLG-OFFPERFORM 5000-PROC-DETAILADD CON-1 TO CTR-SYORIELSEIF CTR-SYORI NOT = ZEROPERFORM 5100-PROC-LASTEND-IFEND-IF.２．EVALUATE语句// EVALUATE语句根据一列表大式的值，从一大组语句中选择一组要执行的语句EVALUATE 条件判断WHEN 条件值执行语句WHEN 条件值执行语句WHEN OTHER执行语句END-EVALUATE例：EVALUATE SQLCODEWHEN CNST-SQL-NORMCONTINUEWHEN OTHERMOVE CON-SQL-OPEN TO PRM2-ACA903-02MOVE CON-TBL-A025 TO PRM2-ACA903-01PERFORM 7500-DB-ABENDEND-EVALUATE.４．PERFORM语句//PERFORM语句使控制传递到另一个过程，并执行后返回A．PERFORM节名称例：PERFORM 4020-EDIT-FIRST.B．PERFORM 节名称次数TIMES例：PERFROM EDIT-FIRST 10 TIMES.C．PERFORM 节名称UNTIL 条件判断例：PERFORM UNTIL FLG-END = FLG-ONPERFORM 2000-MAINEND-PERFORM.D．PERFORM 节名称TEST BEFORE(AFTER) VARYING 计数器FROM 1 BY 1 UNTIL 计数器> 计数例：PERFORM WRITE-FIRST TEST BEFORE VARYING AA1 FROM 1 BY 1 UNTIL AA1 > 10控制语句１．GOTO语句//GOTO语句将控制转入过程部中的另一个位置GOTO标示例：LB-EX.………………GOTO LB-EX.２．CONTINUE语句// CONTINUE语句什麽也不干，只是一个语句占位符３．STOP语句//STOP语句结束程序或暂停程序直到操作员将其重新启动４．EXIT语句//EXIT语句什麽也不干，作为段中唯一的语句，提供程序中插入段名的位置第六章逻辑处理子程序１．子程序类型：外部子程序、内部子程序２．作用区域：包容、并行(COMMON)３．参数区定义：数据部的数据节Ａ．数据部：WORKING-STORAGE SETION４．程序调用：PERFORM、CAL ．．．．．．USING ．．．．．．表格操作１．表格类型：固定长度、可变长度２．表格定义：数据部的数据节Ａ．数据部：OCCURS、ASCENDING、DESCENDINGＢ．表格操作：SET、SEARCH、PERFORM．．．．．．VARIES文件访问１．文件类型：顺序、关系、索引２．信息定义：环境部的文件节、数据部的文件节Ａ．环境部：INPUT-OUTPUT SECTION(FILE-CONTROL、I-O-CONTROL) Ｂ．数据部：FILE SECTION(FD)３．文件操作：过程部的文件节Ａ．OPEN、CLOSEＢ．READ、WRITE数据库访问１．DB类型：DB2、ORACLE、SQL SERVER２．缓冲区定义：数据部的数据库节Ａ．数据部：WORKING-STORAGE SETION３．数据操作：过程部的数据库节Ａ．EXEC SQL ．．．．．．END-EXECＢ．OPEN、CLOSE、SELECT．．．。
COBOL编程语言
COBOL编程语言一、简介COBOL（Common Business Oriented Language），是一种面向商业应用领域的编程语言，以英语为主要表达形式，被广泛应用于金融、保险、零售、航空、铁路、政府等领域。
COBOL的历史可以追溯到20世纪50年代，当时为了解决大型商业数据处理的问题而产生，是第一种被广泛应用于商业领域的高级程序设计语言之一。
二、特点COBOL语言具有以下几个特点：1.易于学习和使用：COBOL的语法非常接近英语，对初学者来说比较友好。
并且COBOL拥有丰富的函数库，可以方便地处理大量的数据文件。
2.良好的可读性和可维护性：COBOL语言的代码结构清晰，注重变量和数据结构的命名，易于阅读和理解，降低代码维护的难度。
3.强大的数据处理能力：COBOL语言是一种非常适合大规模数据处理的语言。
它支持大量的数据记录和文件，并且可以处理各种类型的数据，包括数字、字符串、日期等。
4.支持大型计算机和多平台：COBOL语言广泛应用于大型计算机，同时也支持各种操作系统的多平台应用。
三、应用领域由于其良好的可读性、可维护性和强大的数据处理能力，COBOL语言广泛应用于商业领域，特别是金融领域。
银行、保险公司、证券公司等都是COBOL语言的典型应用领域，其中许多系统已经运行了数十年之久。
另外，政府、航空、能源、零售等领域也有采用COBOL语言开发的系统。
四、发展趋势尽管COBOL语言在商业领域拥有广泛的应用，但是由于很多应用都是历史遗留系统，逐渐成为了过时的技术。
随着业务的增长和技术的进步，企业需要更灵活、更高效的解决方案，因此，COBOL语言的应用已经越来越少，其市场份额也逐渐减少。
然而，仍有不少公司在COBOL语言领域进行研发和维护，例如IBM、HP等公司。
同时，COBOL语言也在不断发展和改进。
比如，COBOL 85规范中实现了面向对象的编程模式，还新增了函数库等常用的功能模块。
此外，由于云计算和大数据时代的到来，COBOL语言也面临着新的机遇和挑战。
COBOL教程
/index.htmlCOBOL 教程- -Tag：COBOL教程目录CHAPTER 1 COBOL 概述CHAPTER 2 过程部初步CHAPTER 3 标识部和环境部CHAPTER 4 数据部之一CHAPTER 5 过程部之二CHAPTER 6 过程部之三CHAPTER 7 各部之间的关系及程序举例CHAPTER 8 联机及批量程序的一些差异CHAPTER 9 COBOL 编程规范CHAPTER 1 COBOL 概述COBOL 是Common 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---80IDENTIFICATION DIVISION。
PROGRAM-ID。
PSAMPLE1。
ENVIRONMENT DIVISION。
DATA DIVISION。
PROCEURE DIVISION。
DISPLAY …THIS IS A COBOL PROGRAM.‟STOP RUN。
四。
COBOL 源程序的书写格式：第1 至6 列为“标号区”。
mf培训课件——cobol_new
4
列12∽72： B区（B AREA）
下面的程序语句必须从B区开始写：
Entries, sentences, statements, clauses , Continuation lines.
5
列73∽80：行注释区
CHAPTER 1 COBOL概述
五。COBOL字符
COBOL字符集包括：数字0 -- 9 ，字母 A-- Z ，a -- z , 专用字符：+ - * / = , . ; ‘ ( ) < > $ 及空格。属于系统字符集而不属于COBOL字符集的字符只能出现在COBOL程序 中的字符串里。
IS COMMA。] IS 非数值常量。] IS 助忆名。]
2。INPUT-OUTPUT SECTION。
INPUT-OUTPUT SECTION 包括两个段，即：FILE-CONTROL 和 I-O-CONTROL。FILE-
CONTROL段是为文件分配外部文件。I-O-CONTROL段的作用是可以指定目标程序运行时，几个文
SELECT
文件名 ASSIGN TO 外部文件名
[ORGANIZAION
IS … ]
(SEQUENCIAL , INDEXED , RELATIVE)
[ACCESS MODE
IS … ]
(SEQUENCIAL, RANDOM , DYNAMIC)
[RECORD KEY
IS
…]
[FILE STATUS IS
CHAPTER 1 COBOL概述
COBOL 是Common Business Oriented Language 的缩写。它不仅是商业数据 处理的理想语言，而且广泛用于数据管理领域，因此COBOL 语言也被称为“ 用于管理的语言”。
- 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 算术符 号格式