cobol完整课件
《COB基本教程》课件
COB程序的错误处理与异常情 况
探讨如何处理COBOL程序中的错误和异常情况，保证程序的正确性和稳定性。
COB程序的优化与性能提升
提供COBOL程序优化的基本原则和方法，以及如何优化程序性能以提高执行 效率。
COB与其他编程语言的比较
对比COBOL与其他编程语言，如Java、C++等，分析它们在不同领域的应用和 优势。
COB程序的控制结构
讲解COBOL中的控制结构，如条件语句、循环语句和分支语句等，以及它们在程序中的使用方法。
COB文件处理与数据存储
介绍COBOL中文件处理的基本概念和技术，包括文件读写、文件组织和数据 存储。
COB程序的调试与运行环境
指导如何调试COBOL程序，并提供了与COBOL程序运行相关的开发环境和工具。
COB程序的多人协作与版本管 理
指导多人协作开发COBOL程序的方法和技巧，以及版本管理工具的使用。
COB编程的未来发展趋势
展望COBOL编程的未来发展趋势，包括新技术的应用和COBOL语言的改进。
探索COBOL语言的特点，包括其面向业务的设计思想、可读性和可维护性。
COB程序开发基本流程
详细介绍COBOL程序的开发流程，包括需求分析、程序设计、编码、调试和 测试等环节。
COB程序的数据类型和变量声 明
解释COBOL中常用的数据类型及其在程序中的声明和使用方法。
COB常用内置函数与语句
介绍COBOL常用的内置函数和语句，如字符串处理、数学运算和逻辑控制等。
COB在企业信息系统中的应用
展示COBOL在企业信息系统开发中的广泛应用，如银行系统、保险系统和物流系统等。
COB程序的维护和更新
介绍COBOL程序的维护和更新方法，包括版本控制、修复Bug和升级功能等。
COBOL语言程序设计实用PPT课件
• 创建分区数据集ST×××.COBOL.SOURCE(COB××) 存放源程序
• 创建分区数据集ST×××.COBOL.LOAD 存放可执行模块 它的属性比较特殊： Record format = U Record length = 0 Block size = 6144
▪用引号括起来的字符串 如：‘ABCD’, ‘$123’, ‘HELLO WORLD’
▪由纯数字组成的非数值常量不能用于计算 ‘123’和123不同
▪可以使用保留字,如: ‘DATA’ ▪可以写入引号,如:
MOVE QUOTE ‘HENRY’ QUOTE TO NAME
第18页/共22页
§1.9 常量 （三）
第15页/共22页
§1.8 数据名 • 数据名相当于其他语言的变量名，代表一个具体的数据项 • 数据名长度为1－30个字符 • 只能由字母(至少一个)，数字和连字符“-”组成，连字符不能出现在两端，
不能包含空格 • 不应用保留字作为数据名
123, DECO.HENRY, OWEN-, 3R, DIVISION • 尽量使用有意义的英文字或拼音，如：NAME, AGE，GONGZI • 建议：多使用连字符，如:DEPTART-NUMBER
第14页/共22页
§1.7 COBOL字符和COBOL字 • COBOL字符是指在程序中允许出现的字符
包括数字，大小写字母及15个专用符号 +,-,*,/,=,逗号,句号,分号,引号, $,(,),<,>,空格
• COBOL字是由上述字符组成的最小单位 分为 保留字: 在COBOL已经规定专门用途的字 用户字: 用户自定义的名字 如:程序名，文件名，节名，段名，数据项名等
cobol课件大型机基本操作
对文件进行读取和写入操作。
打开文件
使用适当的命令或函数打开已存在的文件。
关闭文件
完成文件操作后，使用命令或函数关闭文件。
数据传
对数据进行格式转换以满 足特定需求。
将数据从大型机导出到外 部目的地。
将数据从外部源导入到大 型机中。
数据导入
数据导出
数据转换
程序执行与调试
编译程序
01
将源代码编译成可执行程序。
解决方案
使用编译器提供的错误信息，定位问题所在，并 逐一修正。
数据处理错误
总结词
数据处理错误通常是由于数据类 型不匹配、数据范围超出限制或 数据操作不当引起的。
详细描述
检查数据类型是否匹配，数据范 围是否在允许的范围内，以及数 据操作是否正确。
解决方案
根据数据类型和范围要求，对数 据进行适当的转换和验证，确保 数据操作的正确性。
执行程序
02
运行编译后的程序并查看输出结果。
调试程序
03
使用调试工具检查程序中的错误并进行修复。
04 常见问题与解决方案
程序编译错误
1 2 3
总结词
编译错误通常是由于语法错误、拼写错误或结构 问题引起的。
详细描述
检查代码中的拼写错误、语法错误和结构问题， 确保所有语句都符合COBOL语法规则，并且程 序结构清晰。
系统运行错误
总结词
系统运行错误通常是由于系统资源不足、系统故障或外部因素引 起的。
详细描述
检查系统资源是否充足，系统是否正常运行，以及是否存在外部干 扰因素。
解决方案
合理分配系统资源，确保系统正常运行，同时采取措施避免外部干 扰因素对系统的影响。
《COBOL程序设计》课件
COBOL程序设计中的数据类型 和变量
了解COBOL的数据类型和变量是开发高效程序的关键。在本节中，我们将深 入研究COBOL中的主要数据类型，如数字、日期和字符串，并学习如何声明 和操作变量。
COBOL程序设计中的常量和字面值
在本节中，我们将学习COBOL中的常量和字面值的重要性。我们将了解如何使用它们来存储和操作固定的数值 和文本，在程序中提供清晰的意图和信息。
COBOL编程语言的历史与起源
COBOL编程语言有着丰富的历史和深远的影响。在这一节中，我们将探索COBOL的起源、发展和重要里程碑， 了解它对业界的巨大贡献。
COBOL语言的特点与优势
COBOL语言具有许多独特的特点和优势，使其成为企业级应用开发的首选。在本节中，我们将深入研究COBOL 的特点，以及它在现代编程中的重要作用。
COBOL程序设计中的运算符和表达式
运算符和表达式是COBOL中的关键概念。在本节中，我们将学习如何使用算术、比较和逻辑运算符来构建强大 的表达式，并实现复杂的计算逻辑。
COBOL程序设计中的流程控制 语句
流程控制语句是COBOL程序中的重要组成部分。在本节中，我们将介绍COBOL 中的条件语句和循环语句，以及如何使用它们来控制程与挑战
COBOL程序设计面临着不断变化的发展趋势和挑战。在本节中，我们将探讨COBOL的未来发展方向，并讨论如 何应对当前和未来的挑战。
COBOL程序设计对企业信息化建设的贡献与 应用案例
COBOL程序设计在企业信息化建设中起着重要作用。在本节中，我们将分享一些真实的企业应用案例，展示 COBOL在实际场景中的价值和应用。
《COBOL程序设计》PPT 课件
欢迎来到《COBOL程序设计》PPT课件。本课程将深入介绍COBOL程序设计的 基础概念和编程语言的历史与起源。让我们开始探索这个令人兴奋的领域吧！
COBOL经典课件
COBOL语言的发展概述•COBOL是Common Business Oriented Language(商业通用语言)的缩写。
•COBOL不仅是商业数据处理的理想语言，而且广泛应用于数据管理领域，因此COBOL也被称为“用于管理的语言”。
•在计算机的应用领域中，数据处理（data processing）是应用最为广泛的一个领域。
数据处理的日益广泛应用要求人们设计出能满足实际数据处理工作中各种要求的一种计算机语言。
COBOL就是在这种形势下应运而生的。
COBOL语言的特点•最适于数据处理领域。
•COBOL比较接近于自然语言（英语）。
•通用性强。
•COBOL的结构严谨，层次分明。
•COBOL的缺点是比较繁琐。
COBOL程序的结构•COBOL源程序的结构•标识部环境部数据部过程部段段段节节节节节节节节节段……描述体……段……句子……句子……语句……动词……COBOL的四部●标识部(IDENTIFICATION DIVISION)➢主要用来指定源程序名字，也可以写入其它用作备忘的某些信息(如日期、作者等)。
●环境部(ENVIRONMENT DIVISION)➢指出程序中用到的数据文件名与计算机系统的设备的对应关系，即把某一文件名与某一外部设备联系起来。
●数据部(DATA DIVISION)➢程序中所用到的全部变量都应在数据部中说明它们的类型和所占的内存。
●过程部(PROCEDURE DIVISION)➢编写相应的程序语句来实现源程序需要实现的相应功能。
COBOL源程序的书写格式•ANSI书写格式标号区续行区 A 区 B 区（正文区）注释1 6 7 8 11 12 72 73 80•终端格式•COBOL字符和COBOL字•COBOL字符COBOL字•系统字符集保留字•COBOL字符集例如：DIVISION，SECTION•包括以下字符：用户字（非保留字）・数字：0〜9・大写字母：A〜Z・小写字母：a〜z・专用字符：+ ，-，*，/等数据名的命名规则•每个数据名的长度为1〜30个字符之间。
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．．．。
011第一讲COBOL简述及基本语法共41页
B.
句子用句号”.”作为结束标志.句号后面至少应该有一个空格,句子又 由若干语句组成,每个语句之间用空格,逗号”,”或分号”;”分开,(逗号, 分号后面应有一个以上空格,所以通常用空格分来).每个语句后面接着 操作对象或操作内容,完成独立的计算机操作.例如ACCEPT A表示从 键盘接受数据,送入A中(相当于C语言的scanf和C++的cin).数据部, 环境部中也可以出现子句.
书写节头,后面要加SECTION,节头独占一行,段头只写段名,段名可以独占 一行,也可以和下面的语句同占一行.
2007/11/3
14
© 2007 IBM Corporation
COBOL程序结构:句子,语句,子句
在过程部中,每段由若干句子组成,上例的过程部由4个句子组成.第一句
ACCEPT
A
ACCEPT
02
A
PIC S9999.
A中含有-1234,当显示A时,给出的信息是123M.若想显示出带符号的 数字,应该把含有”S”描述的数据项传送到含有正负号编辑型 描述字符的变量中再显示.
2007/11/3
24
© 2007 IBM Corporation
变量的定义
（2）字符型描述符”A” a, 用”A”描述的变量,只能存放英文字母或空格.例如: 02 A PIC A(7). 表示变量A中可以存放7个字符.
数据名,接着写PIC保留字,最后写变量描述字符和句号.PIC子句应该从B区开 始。下面具体叙述描述字符串.
(1) 数值型变量的描述
a. “9”描述
“9”描述表示实际的或概念上的数据位上有一个数字.
例: 02 B
PIC 9999.
表示变量B可以放入四位整数数字,范围从0~9999,可以简写为
mf培训课件——cobol
ENVIRONMENT
DIVISION。
DATA
DIVISION。
PROCEURE DIVISION。
DISPLAY ‘HELLO WORLD!’
STOP RUN。
73---80
ppt课件
5
CHAPTER 1 COBOL概述
四。COBOL 源程序的书写格式
1
列 1 ∽ 6 ：标识区（SEQUENCE NUMBER AREA）
一。标识部（IDENTIFICATION DIVISION）
IDENTIFICATION
DIVISION.
PROGRAM-ID.
程序名。
[AUTHOR。
作者名。 ]
[INSTALLATION。 计算机设置场所。 ]
[DATE-WRITTEN。 源程序编写日期。 ]
[DATE-COMPILED。 源程序编译日期。 ]
[INPUT-OUTPUT
SECTION。
FILE-CONTROL。
{文件控制描述体}。。。
[I-O-CONTROL。
输入输出控制描述体]]
ppt课件
10
CHAPTER 2 标识部和环境部
1。CONFIGRATION SECTION。 专有名段的一般格式： SPECIAL-NAMES。 [DICIMAL-POINT [CURRENCY SIGN [专用名
SELECT
文件名 ASSIGN TO 外部文件名
[ORGANIZAION
IS … ]
(SEQUENCIAL , INDEXED , RELATIVE)
[ACCESS MODE
IS … ]
(SEQUENCIAL, RANDOM , DYNAMIC)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2013-7-16
Cobol for Z900 语言程序设计
分配数据集用到的参数
Volume Serial:存放数据集的直接存取卷的卷序列号。 Generic Unit:存放数据集的直接存取卷的物理设备地址。 Space Units:为下列值之一： Track:下面两个参数表示量的值为磁道 Cylinder:下面两个参数表示量的值为柱面 Block:下面两个参数表示量的值为块 Primary Quantity:在Space Units域以磁道、柱面或块表示分 配值。对于顺序数据集，此值可为0；对于分区数据集，此值 必须大于0 Secondary Quantity:在Space Units域以磁道、柱面或块表示 的辅助分配值。当基本分配值不足时，用此值分配。
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
功能键：
F1 = Help: 显示有关错误信息的附加信息或ISPF/PDF命令和选择 项的提示信息
2013-7-16
Cobol for Z900 语言程序设计
F2 = Split: 进入屏幕分割模式或改变分割行的位置
Cobol for Z900 语言程序设计
常用行编辑命令： 拷贝命令 C:拷贝一行
CC:拷贝多行 Cxx:拷贝多行，xx为拷贝的行数
插入命令 I:在当前行后插入新的一行
Ixx:在当前行后插入多个新行，xx为行数
删除命令 D:删除当前行
DD:删除多行，必须用一对DD标志区域 Dxx:删除多行， xx为行数
2013-7-16
Cobol for Z900 语言程序设计
复制命令R:复制当前行 RR:复制多行 Rxx:复制多行，xx为行数 定位命令A:定位于当前行之前 B:定位于当前行之后 隐藏命令X:隐藏当前行 XX:隐藏多行 Xxx:隐藏多行，xx为行数 显示命令S:显示当前行 Sxx: 显示多行，xx为行数
2013-7-16
Cobol for Z900 语言程序设计
移行命令（： 当前行左移一列 (xx: 当前行左移多列，xx为列数 )： 当前行右移一列 )xx: 当前行右移多列，xx为列数 文本操作 TS:将一行文本切分成两行 TF:将多行文本合并成一行 大小写转换UC:将当前行字母转换为大写 UCxx:将xx行字母转换为大写 LC:将当前行字母转换为小写 LCxx:将xx行字母转换为小写
2013-7-16
Cobol for Z900 语言程序设计
数据集的命名
数据集的命名采用分段形式（最多不能超过22个名字 段）： 名字段1.名字段2.名字段3……
经常使用的是标准三段名形式： PROJECT名.GROUP名.TYPE名 目标名 库名 类型名
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
F7 = Up: 屏幕数据向上滚动 F8 = Down:屏幕数据向下滚动 F9 = Swap: 在分割开的屏幕上，使光标从一个逻辑子屏 幕跳到另一个逻辑子屏幕 F10 = Left: 使屏幕上的画面向左边滚动 F11 = Right:使屏幕上的画面向右边滚动 F12 = Retrieve: 使最近一次输入的命令在第一个输入字 段显示
往分区数据集 中增加一个 member，名为 lab1
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
查看数据集 中内容
2013-7-16
Cobol for Z900 语言程序设计
可以看到在“TANGFF.TEMP2”这个文件夹中有一个名为 LAB1的文档
2013-7-16
Cobol for Z900 语言程序设计
分区数据集
特点1：数据集中的成员名必须是唯一的 特点2：目录中的成员名是以字母先后顺序排列 特点3：对单个的成员可以执行添加和删除操作 特点4：一个被删除的成员将从目录中删掉，但它占用的空 间不能被其他的成员所利用直到该数据集被重新组织。
2013-7-16
Cobol for Z900 语言程序设计
TSO下的程序产品： ISPF－Interactive System Productivity Facility PDF－ Program Development Facility 用于进行交互式作业提交、系统开发、测试功能。 用户可在该工具环境下查看系统的数据集目录、对 数据集进行常用的操作。 IP: 218.199.92.1
2013-7-16
Cobol for Z900 语言程序设计
%:匹配任意单个字符 *:匹配零或多个字符 例如：字符串a123, a134, a156, a234, a245 则：a*匹配：a123, a134, a156, a234, a245 a1*匹配：a123, a134, a156 a*3*匹配：a134, a234 a*4匹配：a134, a234 a%%%匹配：a123, a134, a156, a234, a245 a%%4匹配：a134, a234 a1%匹配：无
2013-7-16
Cobol for Z900 语言程序设计
Record Length:以字节为单位存放在数据集中 的逻辑记录长度 Block Size:存放在数据集中记录块的大小，也 称为物理记录长度，用此值可以确定每一块中 数据有多少字节。例如：块的长度为80，块的 大小为3120，则每一块中有39个记录
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
数据集基本操作
什么是数据集(Data Set)? 定义：数据集是逻辑上相关的数据集合（类似于PC上的文 件） 种类(category)：系统库；用户应用数据 类型(type)：顺序数据集（sequential）（类似于PC上的文 档）；分区数据集（partitioned）和扩展分区数据集 （PDSE）（类似于PC上的文件夹）;VSAM， etc. 数据记录（data record）：某个处理程序所使用的信息的 基本单位
2013-7-16
Cobol for Z900 语言程序设计
记录格式
定长非块化记录
定长块化记录
变长非块化记录
变长块化记录
2013-7-16
Cobol for Z900 语言程序设计
分配数据集的方法
利用Job Control Language 数据量大时使用 利用TSO命令 要记命令，界面不友好 利用ISPF面板 通常使用
Expiration Date:截至日起，当数据集可能被删 除时，允许用户通过给定一个日期来保护有价 值的数据。
2013-7-16
Cobol for Z900 语言程序设计
察看数据集是否存在
Option ===> =3.4 回车
2013-7-16
Cobol for Z900 语言程序设计
Dsname Level …= 你的账号（如TANGFF）
Cobol for Z900 语言程序设计
大型机基本操作
Cobol for Z900 语言程序设计
一
开机
(主机和硬件控制 台加电） (启动主机外围设备的控制系 统）
硬件系统加电
系统上电（POWER ON) 上电重置（POWER ON RESET)
系统载入（LOAD)
分区激活（ACTIVATE)
(各系统和分区处于硬件 就绪状态）
2013-7-16
Cobol for Z900 语言程序设计
二 登录到大型机
分时功能TSO（Time Sharing Option) TSO是支持分时系统的软件，是Z/OS的基本组件， 是用户与Z/OS的主要接口。终端用户发出的每一条命 令都由TSO处理。用户通过TSO行命令和系统进行交互 式工作。 通过“IBM个人通信”软件（PCOM)登录到TSO环境
2013-7-16
Cobol for Z900 语言程序设计
例1：
用ISPF分配一个新的顺序数据集
2013-7-16
Cobol for Z900 语言程序设计
在ISPF/PDF主界面下选择3.2，进入数据集工具环境
2013-7-16
Cobol for Z900 语言程序设计
2
2013-7-16
2013-7-16
Cobol for Z900 语言程序设计
例2：
用ISPF分配一个新的分区数据集
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
0表示顺序数据集，非0表示分数据集
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
2013-7-16
Cobol for Z900 语言程序设计
F3 = End: 结束当前操作，直接返回到前一屏幕 F4 = Return: 结束当前操作，直接返回到主选择菜 单 F5 = Refind: 使用浏览功能时，重复上一次Find命令的动作 使用编辑功能时，重复最近一次使用Find命令或 Change命令的Find部分的作用 F6 = Rechange: 编辑环境中重复前一次Change命令 的动作