cobol-COBOL 读取 文件 的 问题

问题描述

COBOL 读取 文件 的 问题

读一个顺序文件,经过一系列的处理之后把不符合标准的记录去掉,把符合标准的记录写到一个新的文件中.
每一个顺序文件包含8个field : Sub-Company ID, Group ID, Project ID, Sub-System ID, Program ID, Author, Start Date and End Date.

对输入数据的检查遵循以下规则 :
(1). 跳过”Start Date”早于1/1/2000的记录不读.
(2). 跳过”End Date”晚于12/31/2001的记录不读.
(3). 如果年份在00到59之间 , 将世纪设置为21 世纪 , 如果年份在60到99之间, 将世纪设置为20 世纪 .
(4). Sub-company ID ,Group ID, Project ID, Sub-System ID, Start Date, End Date, Program ID的内容必须由数字组成,但不可以全为0.
(5). 一条记录中全部的field都不可以为空 , 如果有一个field为空,跳过整条记录.
(6). 打印出输入文件中输入记录的数量,跳过记录的数量和正确文件的数量.

  1. 输入文件数据项描述:

No Field Name Type Length Description
1 Sub-company ID X 3 Sub-company ID
2 Group ID X 3 Sub-company’s group
3 Project ID X 3 Project from customer
4 Sub-system ID X 3 Project’s sub-system
5 Program ID X 10 Program name
6 Start Date X 6 The date to start coding, date format is MMDDYY
7 End Date X 6 The date of end coding, date format is MMDDYY
8 Author X 20 The author of program
2. 输出文件数据项描述:
No Field Name Type Length Description
1 Sub-company ID X 3 Sub-company ID
2 Group ID X 3 Sub-company’s group
3 Project ID X 3 Project from customer
4 Sub-system ID X 3 Project’s sub-system
5 Program ID X 10 Program name
6 Start Date X 10 The date to start coding, date format is MM/DD/CCYY
7 End Date X 10 The date of end coding, date format is MM/DD/CCYY
8 Author X 20 The author of program

解决方案

文件中随机读取行问题
Java 读取xml文件中文乱码问题
CFile读取文件时末尾出现乱码的问题

时间: 2025-01-21 05:04:16

cobol-COBOL 读取 文件 的 问题的相关文章

调试-c#读取文件图片及声音问题

问题描述 c#读取文件图片及声音问题 本人在学习c#然后找了别人做得一个项目,我运行也ok,我想模仿做一个,但有些看不懂.如下: 1.图片 这个LLK.data是个文件夹吗,然后从里面找出.bmp文件还是什么,我在自己的项目的properities/resources.resx添加了图片,又在项目里创建了data文件夹里面放入图片,结果不行,错误大概意思,缺少LLk.data.resources.然后我在别人的项目里见到了这个 请问这个文件怎么形成的呢,里面是不是有图片资源啊.还有上面图片的两行

utf-8-jquery用ajax读取文件的时候里面的中文乱码

问题描述 jquery用ajax读取文件的时候里面的中文乱码 网页是UTF-8 txt也另存为UTF-8,读取出来以后还是乱码 解决方案 txt默认编码就可以了,,不需要设为utf-8吧,,不行的话,,你用文件流读取试试 解决方案二: ajax请求的文件也要存储为utf-8格式,乱码就是编码不统一的问题 解决方案三: 检查一下你的服务器(如Tomcat.Resin.Nginx.Apache等)编码设置是否正确. 解决方案四: 页面里面加入这句 Response.ContentEncoding =

c++-用C++读取文件中特定行的某几列数据并输出到另一个文件

问题描述 用C++读取文件中特定行的某几列数据并输出到另一个文件 AR ZIMM 2014 06 30 00 00 0.000000 2 2.175456910513e-08 1.929140019560e-11AR ZWE2 2014 06 30 00 00 0.000000 2 -6.930289135325e-03 2.317673679230e-11AS G01 2014 06 30 00 00 0.000000 2 1.652894267903e-05 1.737915981300e-

c语言-C语言 文件读写fscanf 不能读取文件第一行

问题描述 C语言 文件读写fscanf 不能读取文件第一行 我在做USACO的训练题 按照要求写了个读文件的程序,但是出了一点我不能理解的bug 希望老师指点指点 程序: int main () { char comet[6]; char group[6]; FILE *input; input=fopen ("ride.in", "r"); fscanf (input, "%sn%s", comet, group ); \fscanf (inp

ASP教程:读取文件和写文件

ASP教程:读取文件和写文件 读取文件操作: '------------------------------------------------- '函数名称:ReadTextFile '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 '---------------------------------------------------- Function ReadFromTextFile (FileUrl,CharSet)     dim str     set stm

利用fso读取文件总数,并且修改文件名

读取文件中所有文件的总数,并且可根据需要修改文件名. 读取文件中所有文件的总数,并且可根据需要修改文件名. 代码如下: <% On Error Resume Next set fso = CreateObject("Scripting.FileSystemObject") Set uploadfolder = fso.GetFolder (server.mappath("img"))'img 为指定的文件夹 set allfiles = uploadfolde

php学习笔记--高级教程--读取文件、创建文件、写入文件

打开文件:fopen:fopen(filename,mode);//fopen("test.txt","r"): 打开模式:r 只读方式打开,将文件指针指向文件头 r+ 读写方式打开,将文件指针指向文件头 w 写入方式,指向文件头,如果不存在则尝试创建 w+ 读写方式,指向文件头,如果不存在则尝试创建 a 写入方式打开,指向文件末尾,如果不存在则尝试创建 a+ 读写方式打开,指向文件末尾,如果不存在则尝试创建 读取文件:fread:fread(); readfile

FSO使用教程6 -- 如何使用FSO读取文件

fso|教程 如何使用FSO读取文件-FSO使用教程6 TextStream对象所提供用来读取文件的方法有三种:ReadLine.Read及ReadAll.在调用这几个方法之前,必须注意文件结尾的问题----当整个文件的内容都被读完时,若再调用ReadLine,Read.ReadAll等方法,则会产生"输入超出文件结尾"的错误(错误编码=62). 因此比较好的习惯是在调用ReadLine.Read及ReadAll之前,先读取TextStream对象的atEndOfStream属性值,以

读取文件时出现中文乱码问题的解决

解决|问题|中文|中文乱码   最近有些朋友总是发现读取文件的时候发现乱码,不过用工具打开一看却是好的.其实这个问题的罪魁祸首是VS.net的编辑器,在MS下一般文件编辑器(Notepad,ultraedit)都是使用操作系统缺省编码(不同的系统会不同),如在我的英文xp是ANSI,vs.net新建文件的保存以后使用的编码却是UTF8,大概是为了和StreamReader和StreamWriter打开文件缺省得encoding为UTF8保证一致的缘故吧.  为什么我们用工具打开却是好的,那是因为