文档章节

cobol学习之二对文件的操作

指尖残雪
 指尖残雪
发布于 2016/05/22 23:57
字数 361
阅读 19
收藏 0
点赞 2
评论 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
mysql architecture

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

ckl893
2017/04/24
0
0
作为程序员必须知道的编程语言编年史

我们都知道,编程语言是一组用来定义计算机程序的语法规则。它是一种被标准化的交流语言,用来向计算机发出指令。一种计算机语言让程序员能够准确地 定义计算机所需要使用的数据,并精确地定...

oschina
2013/12/16
9.2K
56
iOS 8+(PhotoKit) 获取相册资源工具(扩展性较强)

1. 参考资料: 感谢!感谢!感谢! 重三~ 学习请点下面链接: iOS 开发之照片框架详解之二 —— PhotoKit 详解(上) iOS 开发之照片框架详解之二 —— PhotoKit 详解(下) 获取相册资源的工...

LiYaoPeng
07/17
0
0
打造自己的Android源码学习环境之一:序

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

u013553529
2017/02/02
0
0
VS2010/MFC编程入门教程之目录和总结(鸡啄米)

鸡啄米的这套VS2010/MFC编程入门教程到此就全部完成了,虽然有些内容还未涉及到,但帮助大家进行VS2010/MFC的入门学习业已足够。以此教程的知识为基础,学习VS2010/MFC较为深入的内容已非难事...

weixin_40647819
05/23
0
0
SonarQube COBOL 2.4 发布

SonarQube COBOL 2.4 发布,该版本的大多数规则都进行了标签标注以便于更方便的搜索,此外改进了对 Microfocus, COBOL/400 和 ILE COBOL 方言的支持。详情请看 release notes Sonar (SonarQu...

oschina
2015/02/13
588
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

gRPC学习笔记

gRPC编程流程 1. proto文件定义 proto文件用于定义需要通过gRPC生成的接口,可以理解为接口定义文档 2. 通过构建工具生成服务基类代码-Maven或Gradle 3. 服务端开发 服务端实现类须实现通过构...

OSC_fly
18分钟前
0
0
Docker Mac (三) Dockerfile 及命令

Dockerfile 最近学习docker的时候,遇到一件怪事,关于docker镜像可能会被破坏,还不知道它会有此措施 所以需要了解构建Dockerfile的正确方法 Dockerfile是由一系列命令和参数构成的脚本,这些命...

___大侠
45分钟前
0
0
NetCat Tutorials

Hacking with Netcat part 1: The Basics Hacking with Netcat part 2: Bind and reverse shells Hacking with Netcat part 3: Advanced Techniques 10 Introduction to Netcat - pdf NetCat......

zungyiu
45分钟前
0
0
Android Studio+NDK+Cmake 移植FFmpeg-4.0.2命令行工具

一、编译 参考大神的帖子,亲测一次编译成功:https://blog.csdn.net/bobcat_kay/article/details/80889398 鉴于以前查文档的经验,这里附上编写例子的时间:2018年7月22日 我用的是ubantu,...

她叫我小渝
45分钟前
0
0
mysql创建数据库

登录MYSQL mysql -u root -p 脚本创建数据库WeChat,并制定默认的字符集是utf8mb4。 CREATE DATABASE Wechat DEFAULT CHARSET utf8mb4 COLLATE utf8mb4_general_ci; 授权 grant all......

niithub
59分钟前
0
0
svn: Unable to connect to a repository URL 的解决方案

错误图示: 解决办法:清除本地保存的授权信息; 1:右键点击本地文件夹,选择设置; TortoiseSVN -> Settings 2:在弹出的对话框中选择 Saved Data, 右侧选择:授权地方清理所有。 然后点确...

宁哥实战课堂
今天
1
0
sleep与wait的区别

Thread.sleep(XXX)方法消耗CPU吗? 这个知识点是我之前认识一直有错误的一个知识点,在我以前的认识里面,我一直认为Thread.sleep(1000)的这一秒钟的时间内,线程的休眠是一直占用着CPU的时间...

码代码的小司机
今天
1
0
20位活跃在Github上的国内技术大牛 leij 何小鹏 亚信

本文列举了20位在Github上非常活跃的国内大牛,看看其中是不是很多熟悉的面孔? 1. lifesinger(玉伯) Github主页: https://github.com/lifesinger 微博:@ 玉伯也叫射雕 玉伯(王保平),...

海博1600
今天
1
0
Mybatis收集配置

一、Mybatis取Clob数据 1、Mapper.xml配置 <resultMap type="com.test.User" id="user"> <result column="id" property="id"/> <result column="json_data" property="jsonData" ......

星痕2018
今天
1
0
centos7设置以多用户模式启动

1、旧版本linux系统修改inittab文件,在新版本执行vi /etc/inittab 会有以下提示 # inittab is no longer used when using systemd. # # ADDING CONFIGURATION HERE WILL HAVE NO EFFECT ON......

haha360
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部