文档章节

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
每天一个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
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

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

王练
2017/06/05
1K
13

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Nginx防盗链、访问控制、解析php相关配置、Nginx代理

一、Nginx防盗链 1. 编辑虚拟主机配置文件 vim /usr/local/nginx/conf/vhost/test.com.conf 2. 在配置文件中添加如下的内容 { expires 7d; valid_referers none blocked server_names *.tes......

芬野de博客
今天
0
0
spring EL 和资源调用

资源调用 import org.springframework.beans.factory.annotation.Value;import org.springframework.context.annotation.PropertySource;import org.springframework.core.io.Resource;......

Canaan_
今天
0
0
memcached命令行、memcached数据导出和导入

一、memcached命令行 yum装telnet yum install telent 进入memcached telnet 127.0.0.1 11211 命令最后的2表示,两位字节,30表示过期时间(秒) 查看key1 get key1 删除:ctrl+删除键 二、m...

Zhouliang6
今天
0
0
Linux定时备份MySQL数据库

做项目有时候要备份数据库,手动备份太麻烦,所以找了一下定时备份数据库的方法 Linux里有一个 crontab 命令被用来提交和管理用户的需要周期性执行的任务,就像Windows里的定时任务一样,用这...

月夜中徘徊
今天
1
1
shell-日志脚本小实验

1.查找日志2018-8-15,求得那一分钟访问量最大。 #/bin/bash#from cc#2018-8-15#2018-08-15.log 哪一分钟 访问量 最大for d in `ls /data/nginx/logs/`doif [ -a 2018-08-15...

chencheng-linux
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部