COBOL中的文件处理

Question

我想编写一个cobol程序来读取带有4个字段（EMPID，NAME，STREAM，GRADE）的文件EMP-GRADE，并显示在输出中得分为'A'的员工的详细信息。我使用在线Cobol编译器。

IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE1. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT EMPFILE ASSIGN TO 'input.txt' 
ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL 
FILE STATUS IS WS-FILE-STATUS. 
SELECT EMPA ASSIGN TO 'util.cobc' 
ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 
FD EMPFILE. 
01 NEWFILE. 
05 FS-EMPID PIC 9(6). 
05 FILLER PIC X(50). 
05 FS-NAME PIC A(10). 
05 FILLER PIC X(50). 
05 FS-STREAM PIC A(10). 
05 FILLER PIC X(50). 
05 FS-GRADE PIC A(1). 
05 FILLER PIC X(50). 
FD EMPA. 
01 OUTFILE. 
05 FS-EMPID-OUT PIC 9(6). 
05 FILLER PIC X(50). 
05 FS-NAME-OUT PIC A(10). 
05 FILLER PIC X(50). 
05 FS-STREAM-OUT PIC A(10). 
05 FILLER PIC X(50). 
05 FS-GRADE-OUT PIC A(1). 
05 FILLER PIC X(50). 
WORKING-STORAGE SECTION. 
01 WS-EOF PIC A(1) VALUE "N". 
01 WS-FILE-STATUS PIC X(2). 
PROCEDURE DIVISION. 
MAIN-PARA. 
OPEN INPUT EMPFILE 
OPEN OUTPUT EMPA 
PERFORM READ-PARA THRU READ-PARA-EXIT 
Perform Until WS-EOF = "Y" 
    IF FS-GRADE='A' 
     MOVE NEWFILE TO OUTFILE 
     WRITE OUTFILE 
     END-WRITE 
     DISPLAY OUTFILE 
    ELSE 
    DISPLAY 'NO A GRADE STUDENT IN THE LIST' 
    END-IF 
    PERFORM READ-PARA THRU READ-PARA-EXIT 
    END-PERFORM 
CLOSE EMPFILE. 
CLOSE EMPA. 
STOP RUN. 
MAIN-PARA-EXIT. 
EXIT. 
READ-PARA. 
READ EMPFILE 
AT END MOVE "Y" TO WS-EOF 
NOT AT END DISPLAY NEWFILE 
END-READ. 
READ-PARA-EXIT. 
EXIT. 

上面的是我更新代码，然后我在“input.txt中”给输入和我输出如下

11111 AISHU JAVA B 
22222 RANJU MAINF A 

NO甲年级学生在列表”

Answer 1

您正在读取您的整个输入文件，其中包括

PERFORM READ-PARA THRU READ-PARA-EXIT UNTIL WS-EOF="Y" 

声明。你必须读取一条记录，处理它，读取下一条记录，处理它，等等。

OPEN INPUT EMPFILE 
OPEN OUTPUT EMPA 
PERFORM READ-PARA THRU READ-PARA-EXIT 

Perform Until WS-EOF = "Y" 
    IF FS-GRADE='A' 
     MOVE NEWFILE TO OUTFILE 
     WRITE OUTFILE 
     DISPLAY OUTFILE 
    END-IF 
    PERFORM READ-PARA THRU READ-PARA-EXIT 
End-Perform 

CLOSE EMPFILE 
CLOSE EMPA 
STOP RUN. 

根据锻炼的实际要求，可能还有其他许多改进，但我认为这解决了您的直接问题。

请注意两个单独的PERFORMs的READ-PARA。第一个有时被称为启动读取，这是一个有用的技术学习。

Answer 2

试试这个代码：

PROCEDURE DIVISION. 
MAIN-PARA. 
    OPEN INPUT EMPFILE 
    OPEN OUTPUT EMPA 
    PERFORM READ-PARA THRU READ-PARA-EXIT UNTIL WS-EOF = ‘Y’ 
    CLOSE EMPFILE. 
    CLOSE EMPA. 
    STOP RUN. 
MAIN-PARA-EXIT. 
    EXIT. 
READ-PARA. 
    READ EMPFILE 
     AT END 
      MOVE "Y" TO WS-EOF 
      IF WS-F='M' THEN 
       DISPLAY 'NO A GRADE STUDENT IN THE LIST' 
      END-IF 
     NOT AT END DISPLAY NEWFILE 
      IF FS-GRADE='A' THEN 
       MOVE ‘M’ TO WS-F 
       MOVE NEWFILE TO OUTFILE 
       WRITE OUTFILE 
       END-WRITE 
       DISPLAY OUTFILE 
      ELSE 
       CONTINUE 
      END-IF 
    END-READ. 
READ-PARA-EXIT. 
    EXIT.