COBOL 无法在我的记事本文件中写入记录

Question

我只是想知道为什么我在我的记事本文件中看不到我的记录，是我的代码有问题吗？我在这个路径中创建了记事本文件：“C:\Users\jamal.eclipse\MicroFocus\Student-Record.txt”。当我运行代码时，它会询问我学号、所欠学生的学费和学生姓名，但在我的记事本文件中看不到。这是我的代码：

       program-id. Project as "Project".
       environment division.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT STUDENT-FILE-IN
           ASSIGN TO 
           "C:\Users\jamal\.eclipse\MicroFocus\Student-Record.txt"
           ORGANIZATION IS LINE SEQUENTIAL.
       configuration section.

       data division.
       FILE Section.
       FD STUDENT-FILE-IN.
       01 STUDENT-RECORD-OUT PIC X(52).
       working-storage section.
       01 STUDENT-RECORD-IN.
         05 STUDENT-NUMBER PIC 9(6).
         05 TUITION-OWED PIC 9(6).
         05 STUDENT-NAME PIC X(40).
         
       01 PROMPT-MESSAGES-RESPONSES.
         05 RECORD-Y-N PIC X(41) VALUE 
         "Do you have record ? Y or N: ".
         05 RESPONSE PIC X(1).
         05 STUDENT-NUMBER-OUT PIC X(24) VALUE 
         "Enter the Student Number: ".
         05 TUITION-OWED-OUT PIC X(22) VALUE 
         "Enter the tuition owed: ".
         05 STUDENT-NAME-OUT PIC X(22) VALUE 
         "Enter your Student Name: ".
         
         
         
         
      

       procedure division.
           CREATE-STUDENT-RECORD-FILE.
           PERFORM STUDENT-RECORD-FILE.
           PERFORM CREATE-STUDENT-RECORD
           UNTIL RESPONSE="N" or "n".
           PERFORM T-CREATE-STUDENT-RECORD-FILE.
           
    
       STOP RUN.
           
       STUDENT-RECORD-FILE.
           PERFORM OPEN-RECORD.
           PERFORM PROMPT-USER.
       
       CREATE-STUDENT-RECORD.
           PERFORM ENTER-STUDENT-DATA.
           PERFORM WRITE-STUDENT-RECORD.
           PERFORM PROMPT-USER.
       
       T-CREATE-STUDENT-RECORD-FILE.
           PERFORM CLS-CREATE-STUDENT-RECORD.
       
       OPEN-RECORD.
           OPEN OUTPUT STUDENT-FILE-IN.
       
       PROMPT-USER.
           DISPLAY RECORD-Y-N.
           ACCEPT RESPONSE.
       
       ENTER-STUDENT-DATA.
           DISPLAY STUDENT-NUMBER-OUT.
           ACCEPT STUDENT-NUMBER.
           DISPLAY TUITION-OWED-OUT.
           ACCEPT TUITION-OWED.
           DISPLAY STUDENT-NAME-OUT
           ACCEPT STUDENT-NAME.
       
       WRITE-STUDENT-RECORD.
           MOVE STUDENT-RECORD-IN TO STUDENT-RECORD-OUT.
           WRITE STUDENT-RECORD-OUT.
       
       CLS-CREATE-STUDENT-RECORD.
           CLOSE STUDENT-FILE-IN.
           
             
           

       end program Project.

我是 Cobol 的初学者，在此先感谢您的帮助。

Answer 1

这是你的程序，我做了一些修改，希望对你有所帮助

       IDENTIFICATION DIVISION.
   PROGRAM-ID. project.
   environment division.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
       SELECT STUDENT-FILE-IN
       ASSIGN TO  "C:\Users\jamal\.eclipse\MicroFocus\Student-Record.txt"
       ORGANIZATION IS LINE SEQUENTIAL.
   configuration section.

   data division.
   FILE Section.
   FD STUDENT-FILE-IN.
   01 STUDENT-RECORD-OUT PIC X(52).
   working-storage section.
   01 STUDENT-RECORD-IN.
     05 STUDENT-NUMBER PIC 9(6).
     05 TUITION-OWED PIC 9(6).
     05 STUDENT-NAME PIC X(40).
     
   01 PROMPT-MESSAGES-RESPONSES.
     05 RECORD-Y-N PIC X(41) VALUE 
     "Do you have record ? Y or N: ".
     05 RESPONSE PIC X(1).
     05 STUDENT-NUMBER-OUT PIC X(20) VALUE "Enter Student Number".
     05 TUITION-OWED-OUT PIC X(20) VALUE "Enter tuition owed:".
     05 STUDENT-NAME-OUT PIC X(20) VALUE "Enter Student Name:".
     
       procedure division.
       OPEN OUTPUT STUDENT-FILE-IN.
       PERFORM PROMPT-USER.
       PERFORM CREATE-STUDENT-RECORD
       UNTIL RESPONSE="N" or "n".
       PERFORM T-CREATE-STUDENT-RECORD-FILE.
       
   CREATE-STUDENT-RECORD.
       PERFORM ENTER-STUDENT-DATA.
       PERFORM WRITE-STUDENT-RECORD.
       PERFORM PROMPT-USER.
   
   T-CREATE-STUDENT-RECORD-FILE.
       PERFORM CLS-CREATE-STUDENT-RECORD.     
   PROMPT-USER.
       DISPLAY RECORD-Y-N.
       ACCEPT RESPONSE.
   
   ENTER-STUDENT-DATA.
       DISPLAY STUDENT-NUMBER-OUT.
       ACCEPT STUDENT-NUMBER.
       DISPLAY TUITION-OWED-OUT.
       ACCEPT TUITION-OWED.
       DISPLAY STUDENT-NAME-OUT
       ACCEPT STUDENT-NAME.
   
   WRITE-STUDENT-RECORD.
       MOVE STUDENT-RECORD-IN TO STUDENT-RECORD-OUT.
       WRITE STUDENT-RECORD-OUT.
   
   CLS-CREATE-STUDENT-RECORD.
       CLOSE STUDENT-FILE-IN
       STOP RUN.

COBOL 无法在我的记事本文件中写入记录

COBOL CAN'T WRITE RECORDS IN MY NOTEPAD FILES

cobol