文档章节

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
《Pro ASP.NET MVC 3 Framework》学习笔记目录

《Pro ASP.NET MVC 3 Framework》简介: 作者: Adam Freeman 和 Steven Sanderson 出版社: Apress; New 平装: 820页 语种: 英语 ISBN: 1430234040 声明:笔记里面按我自己的理解翻译了大部分...

mszhangxuefei
2012/02/07
0
0
打造自己的Android源码学习环境之一:序

打造自己的Android源码学习环境之一:序 为什么要打造自己的Android源码学习环境 有一个可以编译的Android源码环境,可以在任何自己想了解的源码中加上log信息,验证自己的理解是否准确,有助...

u013553529
2017/02/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

面向对象设计原则(OOP)

单一职责原则(Single responsibility principle)又称单一功能原则。它规定一个类应该只有一个发生变化的原因。 核心原则:低耦合,高内聚。 一个类,应该只有一个引起它变化的原因,也就是...

gackey
16分钟前
1
0
C++ 锁

C++提供了两种常用的锁,std::lock_guard<Lockable &T>和std::unique_lock<Lockable &T>。通常使用场景下,这两个锁用法一致。即,在构造锁对象时上锁,在析构锁对象时解锁。使用户从上锁/解...

yepanl
20分钟前
1
0
Kali Linux Docker 練習

docker pull kalilinux/kali-linux-docker docker run -t -i kalilinux/kali-linux-docker /bin/bash apt-get update apt-get install htop apt-get install nmap apt-get install wpscan ap......

BaiyuanLab
今天
1
0
通俗大白话来理解TCP协议的三次握手和四次分手

最近在恶补计算机网络方面的知识,之前对于TCP的三次握手和四次分手也是模模糊糊,对于其中的细节更是浑然不知,最近看了很多这方面的知识,也在系统的学习计算机网络,加深自己的CS功底,就...

onedotdot
今天
2
0
TiDB 在爱奇艺的应用及实践

爱奇艺,中国高品质视频娱乐服务提供者,2010 年 4 月 22 日正式上线,推崇品质、青春、时尚的品牌内涵如今已深入人心,网罗了全球广大的年轻用户群体,积极推动产品、技术、内容、营销等全方...

TiDB
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部