文档章节

cobol学习之二对文件的操作

指尖残雪
 指尖残雪
发布于 2016/05/22 23:57
字数 361
阅读 19
收藏 0

首先代码入下:


000001 IDENTIFICATION                   DIVISION.
000002  PROGRAM-ID.                     SAMPLE04-2.
000003 ENVIRONMENT                      DIVISION.
000004  INPUT-OUTPUT                    SECTION.
000005   FILE-CONTROL.
000006    SELECT STUDENT-FILE ASSIGN TO STDT.
000007 DATA                             DIVISION.
000008  FILE                            SECTION.
000009 FD STUDENT-FILE LABEL RECORD IS STANDARD.
000010  01 GZQD-R.
000011     02 STUDENT-NUM PIC 9(6).
000012     02 STUDENT-NAME PIC X(10).
000013     02 SEX-CODE PIC X.
000014     02 AGE PIC 999.
000015     02 CLASSE PIC 9.
000016 WORKING-STORAGE                  SECTION.
000017 77 FEMALE-COUNTER PIC 999.
000018 77 MALE-COUNTER PIC 999.
000019 PROCEDURE                        DIVISION.
000020 INIT.
000021     OPEN INPUT STUDENT-FILE
000022     MOVE ZERO TO FEMALE-COUNTER
000023     MOVE ZERO TO MALE-COUNTER.
000024 READ-FILE.
000025     READ STUDENT-FILE
000026          AT END GO TO DISPLAY-ANSWER.
000027 COUNTING.
000028     IF SEX-CODE = 'F'
000029         ADD 1 TO FEMALE-COUNTER
000030         GO TO READ-FILE.
000031     IF SEX-CODE = 'M'
000032         ADD 1 TO MALE-COUNTER
000033         GO TO READ-FILE.
000034     DISPLAY 'ERROR IN SEX CODE', SEX-CODE , '   '
000035                   STUDENT-NUM.
000036     GO TO READ-FILE.
000037 DISPLAY-ANSWER.
000038     DISPLAY 'FEMALE=' , FEMALE-COUNTER.
000039     DISPLAY 'MALE=' , MALE-COUNTER.
000040     CLOSE STUDENT-FILE.
000041     STOP RUN.


对文件中的数据进行读取,得出有男生和女生各有多少,如果不匹配则输出错误信息学号。

111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">R</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">F</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223111111CCCCCCCCCC<span style="color:#cc0000;">M</span>2223
把上面的数据按每21个分开,每段数据中第17个(红色部分)就代表他们的性别(看程序),cobol会一次读取数据,然后分别复制给每一个定义的变量


本文转载自:http://blog.csdn.net/bq1073100909/article/details/41148449

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
私信 提问
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

《纽约时报》6月4日发表了 COBOL 编程语言的联合设计师 Jean Sammet 的讣告: Jean E. Sammet 于 5 月 20 日在马里兰去世,享年 89 岁。Jean E. Sammet 是 COBOL 语言最早的工程师和联合设计...

王练
2017/06/05
1K
13
商用编程语言--COBOL

COBOL(面向商业的通用语言,又称为企业管理语言、数据处理语言等,Common Business Oriented Langauge)是最早的高级编程语言之一,是世界上第一个商用语言。 COBOL是一种面向数据处理的、面...

匿名
2009/04/12
10.8K
1
《Artech的WCF技术剖析系列》系列技术文章整理收藏

《Artech的WCF技术剖析系列》系列技术文章整理收藏 WCF技术剖析系列来自博客园的Artech,Artech在这个系列中帮助大家对WCF有更全面的认识。收藏在这里供大家学习参考 1WCF技术剖析之一:通过...

开元中国2015
2015/06/22
24
0
mysql architecture

mysql architecture 说明 字段意义说明 Connectors:数据库连接器 Native C API:C连接数据库接口 JDBC:Java连接数据库驱动 ODBC:开放数据库互连 .NET:.NET连接数据库驱动 PHP:PHP连接数据库驱...

ckl893
2017/04/24
0
0
甲骨文面向C语言推新Oracle Tuxedo 11g

  【IT168资讯】12月26消息,甲骨文近日宣布推出最新版本Oracle Tuxedo 11g。该新版本是面向C/C++、COBOL和动态语言而推出的业界最佳的应用服务器。    经过在Oracle Exalogic中间件云服...

it168网站
2011/12/26
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Maven 依赖范围(Dependency Scope)

Dependency Scope Dependency scope is used to limit the transitivity of a dependency, and also to affect the classpath used for various build tasks. 依赖范围用于限制依赖项的传递性......

晨猫
5分钟前
0
0
细述hbase协处理器

1.起因(Why HBase Coprocessor) HBase作为列族数据库最经常被人诟病的特性包括:无法轻易建立“二级索引”,难以执行求和、计数、排序等操作。比如,在旧版本的(<0.92)Hbase中,统计数据表的...

微笑向暖wx
18分钟前
1
0
【实践】如何获得Rinkeby网络的测试以太币

当把智能合约部署到Rinkeby Test Network时,需要获得测试以太币。其网络获取测试以太币的方法同Ropsten Test Network有些不同,本文详细讲解一下。 1 访问网站 访问rinkeby网络(https://w...

HiBlock
39分钟前
1
0
Logback中如何自定义灵活的日志过滤规则

当我们需要对日志的打印要做一些范围的控制的时候,通常都是通过为各个Appender设置不同的Filter配置来实现。在Logback中自带了两个过滤器实现:ch.qos.logback.classic.filter.LevelFilter...

程序猿DD
46分钟前
3
0
ES6中let 和 const 的新特性

在javascript中,我们都知道使用var来声明变量。javascript是函数级作用域,函数内可以访问函数外的变量,函数外不能访问函数内的变量。 ECMAScript 6 是 JavaScript 语言教程,全面介绍 EC...

peakedness丶
53分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部