說實話你的題目描述太不清楚，我很多沒有明白意思，比如讀入，讀入要做操作啊，比如說原樣輸出到另一個檔案，或者要求用的是數字還是字母，還是都用等我只有按照自己的理解來做了輸入檔案記錄長度80內容12345abcde234563456745678567896789178910讀入這個內容，並且直接顯示出來IDENTIFICATION DIVISION.PROGRAM-ID. RFILEIN.ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT IN-FILE ASSIGN TO INFILE.DATA DIVISION.FILE SECTION.FD IN-FILERECORDING MODE IS FLABEL 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-FILEAT END MOVE "Y" TO EOF-FLAGEND-READINSPECT IN-REC TALLYING AMOUNT CHARACTERS BEFORE SPACEDISPLAY IN-REC(1:AMOUNT).輸出結果就是上面輸入檔案一樣。
說實話你的題目描述太不清楚，我很多沒有明白意思，比如讀入，讀入要做操作啊，比如說原樣輸出到另一個檔案，或者要求用的是數字還是字母，還是都用等我只有按照自己的理解來做了輸入檔案記錄長度80內容12345abcde234563456745678567896789178910讀入這個內容，並且直接顯示出來IDENTIFICATION DIVISION.PROGRAM-ID. RFILEIN.ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT IN-FILE ASSIGN TO INFILE.DATA DIVISION.FILE SECTION.FD IN-FILERECORDING MODE IS FLABEL 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-FILEAT END MOVE "Y" TO EOF-FLAGEND-READINSPECT IN-REC TALLYING AMOUNT CHARACTERS BEFORE SPACEDISPLAY IN-REC(1:AMOUNT).輸出結果就是上面輸入檔案一樣。