《cobol的编程实例》由会员分享，可在线阅读，更多相关《cobol的编程实例（32页珍藏版）》请在金锄头文库上搜索。
1、一个COBOL的编程实例处理概要通常一个程序分为几个处理过程，然后有序地组合起来使用，以实现我们所希望的处理结果。这里，给出一个销售公司对销售数据处理的范例，通过实际的编程，掌握COBOL编程的技巧和步骤。销售数据处理系统简介用户需求（1）某销售公司有若干个销售商店，公司想获得每个商品的销售去向和每个商店的销售额等信息。（2）商品的库存管理在一个固定地方进行管理。经营者为掌握库存销售情况，想及时获得有关定货信息。为满足上述（1）和（2）的需求，首先： 需要具体地确定什么样的信息，采用什么样的手段来获取。例如，定货信息包含什么内容、日处理做什么、月处理做什么等。 需要搞清为获取中所需信息，什么样
2、的数据适合作为输入数据来使用。 决定中数据文件格式，讨论处理顺序，进而决定程序处理所用的文件。（过程设计、文件设计） 处理过程中，如果需要进行数据合并、排序的话，必须进行数据代码化处理（代码设计）根据上述思考，决定编程的具体工作。此例题是一个批处理例题。既将每周一次从销售店收集到的销售数据进行汇总合计，作成销售额统计表，然后根据销售额统计表获取库存主文件、供货商主文件信息后打印定货清单。注：此程序的部分编程技巧不是最优，但可以分为如下四个处理步骤来实现。 处理步骤1数据合法性检查和排序处理从商店获取的数据可能有非法数据，所以必须进行数据合法性检查。对查出的错误数据，将其打印到“错误数据清单”上
3、并要求修改这些错误数据。对检查无误（正确）的数据，按商品代码进行排序，以便进行后续处理。 处理步骤2：统计报表的制作将输入的销售信息作成统计表。统计表上要打印出各商店按商品代码汇总的销售额，并把商店总销售额用”*”表示出来。 处理步骤3：更新处理库存主文件把按商品代码排序的销售文件作为交易，更新库存主文件的当前库存量。由处理步骤1于在销售文件中，可能存在同一商品代码的多条数据记录，所以需要做N：1的数据合并处理。处理步骤4：制作定货清单在处理步骤3中，当新库存主文件产生的同时，要将当前库存量与最低库存量进行比较后，将需要定货的商品代码清单打印出来。程序框图销售数据（按商品代码排序）（按商品代码
4、排序）处理步骤3（供货商代码排序）处理步骤4数据合法性检查、排序错误数据清单排序（服务程序）销售文件更新库存主文件销售文件库存主文件（顺序文件）处理步骤2定货信新在库息文件主文件排序（服务程序）定货信息文件比较处理销售文件（按商店代码、商品代码的顺序排列）编制统计表统计表分两步按各商店代码、各商品代码汇总销售额供货商主文件销售文件记录格式商品代码X（6）销售金额9（7）销售数量9（6）商店代码X（2）库存主文件记录格式商品代码X（6）当前库存9（8）最低库存9（8）供货商代码X（6）索引文件）（随机处理）供货商代码X（6）开户银行代码X（3）供货商名X（20）:其它X(31)供货商主文件记录格
5、式阅读如下处理内容，编制处理步骤1的流程图。处理内容处理步骤1就是先前所述的一系列处理程序的入口，它为后续处理提供必要的数据。具体说来，就是对输入文件的数据进行合法性检查和排序处理。 数据检查项有如下3种： 销售金额的数据合法性检查 销售数量的数据合法性检查 商店代码存在与否的检查对第项加以说明，如果在商店代码参数表中无法查到所读入的商店代码，则认为所读入的商店代码无效。检查出的所有错误数据都要输出到“错误数据清单”上。一条数据记录有多个数据项出现错误时，要对每个数据项进行标识，并在其数据项后打印“为了方便处理步骤2以后的处理，将已检查无误的数据（正确数据），以商品代码”。 处理步骤1的输入/
6、输出数据格式如下所示，输入文件的各记录上写明了每个商店的商店代码。销售文件的记录商品代码销售金额销售数量商店代码X（6）9（7）9（6）X（2）输出文件的格式与输入文件的格式相同错误数据清单的输出格式如下所示，每页打印15条记录。标题空一行明细行错误标识行空一行错误数据打印格式ERRORCHECKLISTAAAAAA3456001234AAAAAAAA000345623456ABf商店代码的格式如下，商店代码参数表按升序排列已被存储于磁盘中。商店代码参数表数据格式AABBCCDDEEFFGGHHIIJJ为键值升序排列。排序处理过程，请使用COBOL的排序语句。抓住程序处理特征，考虑程序处理效率
7、在处理步骤1的数据检查处理中，当一条记录出现多个数据项错误时，为了象差错表清单那样，在每个错误数据项下打印“*”号，可以进行串行数据检查处理。通常，如果使用了过多的改变处理流程的开关(流程图上，为检出有错误数据而设置的错误标志)会导致程序处理流程的复杂化。开关是为了使程序处理清晰化而使用的东西。再有，查错的处理中，需要对表进行检索处理。对表的检索处理有如下两种方式:一种是在程序中使用下标对表的元素进行控制，另一种则是使用含有索引的SEARCH语句来检索。索引即不能用于表操作以外，也不能用于所定义的表以外，因此它对表的检索效率最高，并且不容易引起程序错误。在这个处理中，由于商店代码参数表是按升序
8、排列，所以使用了检索速度比较快的对分查找方式(SEARCHALL)。解答例】根据解说过的流程图，编写处理步骤1的程序（过程部）。程序说明 使用下面已定义好的数据部。 使用SEARCHALL语句对表进行检索 使用COMPUTE语句进行运算处理 使用=,NOT进行数据项间的比较处理数据部定义DATAFILEDIVISION。SECTION。LABELRECORDSTANDARD。01IN-REC。02SYOU-CODEPICX（6）。02URI-KINPIC97）。02URI-SUPIC96）。02MISE-CODEPICX（2）FDON-FFDIN-FLABELRECORDSTANDARD。定义
9、输入文件01ON-RECPICX（21）。01SORT-REC。02SYOU-CODEPICX（6）。02URI-KINPIC9（7）。定义排序用工作文件02URI-SUPIC9（6）。02MISE-CODEPICX（2）。WORKING-STORAGESECTION。01MIDASHI-RECPICX（132）VALUE差错清单01MEISAI-1。02FILLERPICX（2）VALUESAPCE。02SYOU-CODEPICX6）02FILLERPICX（2）VALUESAPCE。02URI-KINPICX（7）02FILLERPICX（2）VALUESAPCE。02URI-SUPICX
10、（6）02FILLERPICX（2）VALUESAPCE。02MISE-CODEPICX（2）01MEISAI-2。02FILLERPICX（10）VALUESAPCE。02EM-URI-KINPICX（7）。02FILLERPICX（2）VALUESAPCE。02EM-URI-SUPICX（6）。02FILLERPICX（2）VALUESAPCE。02EM-MISE-CODEPICX2）。01ER-FLGPIC9。错误标志01LINE-CNTPIC99VALUE20。行计数器01MISE-TABVALUE“AABBCCDDEEFFGGHHIIJJ”。02MISE-ELTPICX（2）OCCU
11、RS10INDEXEDBYIASCENDINGKEYMISE-ELT。SDSORT-F。定义商店代码介绍并掌握排序处理的描述形式和检索表的方法SORT语句和输入输出过程SORT语句中使用SD语句定义排序用工作文件。在排序处理前，为进行必要的处理而使用INPUTPROCEDURE（输入过程）语句。输出时由于没有特殊的处理，所以直接使用GIVINIG语句即可。这里可以看出，根据输入/输出过程的缺省，SORT语句的描述形式是不一样的。SD01排序用工作文件名记录定义PROCEDUREDIVISION。SEIRETUSECTION。排序用工作文件名SORTASCENDINGDESCENDING排序键输
12、入过程名输入文件2,。PROCEDURE输出过程名输出文件名INPUTPROCEDURE输入文件1,USINGOUTPUTGIVING输入/输出过程名/图1描述SORTSECTION。语句的排序处理用SEARCH语句查表由于使用了SEARCHALL语句对表进行搜索，所以查表处理就简单多了。在这里值得注意是，使用SEARCH语句时，对索引赋初值是必要的。对分查找表的定义顺序查找表的定义表名OCCURS。表名OCCURS。ASCENDING查找键INDEXEDBY索引名DESCENDING/INDEXEDBY索引名SET索引名TO初始值。/SEARCH表名VARYING索引名SEARCHALL查找键ATEND无条件语句ATEND无条件语句WHENsWHENs图2查表的基本描述解答例】PROCEDURESORT-ROOTPROG-START。DIVISION。SECTION。SORTSORT-FONASCENDINGKEYSYOU-CODEOFSORT-RECINPUTPROCEDUREIN-
