Question

题目是要求用cobol读入文件

大概是：一个文件 第一行存放5位数字和5位的char（10个位数都是连接的，比如12345abcde），从第二行启都是5位数字（如12345） 行数不定 要求用cobol读入 求代码 太谢谢啦

Answer 1

楼上写的不错 可以参考

Answer 2

说实话你的题目描述太不清楚，我很多没有明白意思，比如读入，读入要做操作啊，比如说原样输出到另一个文件，或者要求用的是数字还是字母，还是都用等
我只有按照自己的理解来做了
输入文件记录长度80
内容
12345abcde
23456
34567
45678
56789
67891
78910
读入这个内容，并且直接显示出来
IDENTIFICATION DIVISION.
PROGRAM-ID. RFILEIN.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE ASSIGN TO INFILE.
DATA DIVISION.
FILE SECTION.
FD IN-FILE
RECORDING MODE IS F
LABEL RECORD IS STANDARD.
01 IN-REC PIC X(80).
WORKING-STORAGE SECTION.
01 EOF-FLAG PIC X VALUE 'N'.
01 AMOUNT PIC 9(4).
PROCEDURE DIVISION.
000-MAIN.
OPEN INPUT IN-FILE.
PERFORM 001-PROCESS UNTIL EOF-FLAG = 'Y'.
CLOSE IN-FILE.
GOBACK.
001-PROCESS.
READ IN-FILE
AT END MOVE 'Y' TO EOF-FLAG
END-READ
INSPECT IN-REC TALLYING AMOUNT CHARACTERS BEFORE SPACE
DISPLAY IN-REC(1:AMOUNT).
输出结果就是
上面输入文件一样。