文档章节

cobol学习之三文件的输入和输出

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 280
阅读 15
收藏 0

对文件进行读取,按照规定好的字节读取后进行复制给另一个文件,在另一个文件里面用空格隔开每一项的值

代码如下:

000010 IDENTIFICATION			DIVISION.
000020 PROGRAM-ID.			SAMPLE02-1.
000030 ENVIRONMENT			DIVISION.
000040  INPUT-OUTPUT			SECTION.
000050  FILE-CONTROL.			
000060     SELECT INPUT-FILE ASSIGN TO IFILE.
000070     SELECT PRINT-FILE ASSIGN TO PFILE.
000080 DATA				DIVISION.
000090  FILE	SECTION.
000100	FD INPUT-FILE LABEL RECORD IS STANDARD.
000110	01  GZQD-R.
000120    02  BH			PIC 9(6).
000130	  02  XM			PIC 9(10).
000140    02  JBGZ       		PIC 9(3)V99.
000150  FD  PRINT-FILE  LABEL  RECORD  IS  STANDARD.
000160  01  GZQD-P.  
000170    02  FILLER 			PIC X.
000180    02  BH-P			PIC 9(6).
000190    02  FILLER			PIC X.
000200	  02  XM-P			PIC 9(10).
000210    02  FILLER			PIC X.
000220    02  JBGZ-P			PIC 9(3).99.
000221    02  FILLER			PIC XX.
000222    02  SFGZ-P			PIC 9(6).99.
000230 PROCEDURE  DIVISION.
000240 K.  OPEN  INPUT  INPUT-FILE.
000250	   OPEN  OUTPUT  PRINT-FILE.
000260 D.  MOVE  SPACE			TO  GZQD-P.
000261     READ  INPUT-FILE
000262              AT  END  CLOSE INPUT-FILE, PRINT-FILE
000263			     STOP  RUN.
000264 S.  MOVE  BH			TO BH-P.
000265     MOVE  XM			TO XM-P.
000266     MOVE  JBGZ			TO JBGZ-P.
000267 SU. COMPUTE  SFGZ-P = BH + JBGZ.
000268 X.  WRITE GZQD-P AFTER 2.
000269     GO TO D.  
000270

原文件环境如下:

123456938394049323482812923849320239237293212392394023402324230128792374237428284298238729382728340298343

输出文件打开如下:

123456 9383940493 234.82  123690.82

 812923 8493202392 372.93  813295.93

 212392 3940234023 242.30  212634.30

 128792 3742374282 842.98  129634.98

 238729 3827283402 983.43  239712.43


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

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
商用编程语言--COBOL

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

匿名
2009/04/12
10.8K
1
Spring Boot学习之三(Controller)

Spring Boot学习之三(Controller注解) 1.@Controller注解:声明某个类的实例是一个控制器 2.@RequestMapping:将请求与处理方法对应 1)方法级别注解 上例中两个注解语句,都作用在处理方法...

Azuresky
06/01
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
每天一个Linux命令之三剑客awk

每天一个Linux命令之三剑客awk awk:模式扫描和数据处理语言 描述: awk是一种编程语言,用于Linux/unix下对文本和数据进行扫描与处理,数据可以来自标准输入、文件、管道。工作流程是:逐行扫...

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

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

weixin_40647819
05/23
0
0

没有更多内容

加载失败,请刷新页面

加载更多

开发命令行工具的 12 个最佳实践

简评:设计良好的命令行应用是极富生产力的工具,本文介绍了开发命令行工具的 12 个最佳实践 CLI 是构建产品的绝佳方式,与 Web 应用不同的是它需要的时间更少,并且功能更强大。使用Web,你...

极光推送
27分钟前
2
0
DRAM和NAND Flash合约价持续走下坡路

大伙儿关心的内存和SSD产品价格在年内有望继续迎来一波减价。 据TrendForce旗下的DRAMeXchange发布的最新报告显示,本应该是购物旺季的Q4,DRAM芯片和NAND Flash芯片的合约采购价均呈现疲软的...

linux-tao
32分钟前
1
0
Vue学习记录

Vue学习记录 Vue实例 Vue实例的创建 var vm = new Vue({ // 选项}) 数据冻结 使用 Object.freeze(),这会阻止修改现有的属性,也意味着响应系统无法再追踪变化。 var obj = { foo: 'ba...

BakerZhu
32分钟前
1
0
day124-20181022-英语流利阅读-待学习

靠打零工能走上人生巅峰吗? Daniel 2018-10-22 1.今日导读 “零工经济”,一般指通过网站或 App 获得一些零碎的工作机会,从事不稳定的工作,赚取不稳定的薪水。由于从事这样的工作门槛相比...

飞鱼说编程
37分钟前
2
0
python学习笔记

马克

孙幼凌
46分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部