000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COB09.
000300 ENVIRONMENT DIVISION.
000400 CONFIGURATION SECTION.
000500 INPUT-OUTPUT SECTION.
000501 FILE-CONTROL.
000502 SELECT IN-FILE ASSIGN TO INPUT1.
000503 SELECT OU-FILE ASSIGN TO OUTPUT1.
000504 SELECT IN1-FILE ASSIGN TO INPUT2.
000505 DATA DIVISION.
000506 FILE SECTION.
000507 FD IN-FILE.
000508 01 IN1-REC.
000509 05 STU-NO1 PIC X(05).
000510 05 STU-NAME1 PIC X(10).
000511 05 STU-DATE1 PIC X(08).
000512 05 CONSUME1 PIC 9(04).
000514 05 FILLER PIC X(53).
000515 FD IN1-FILE.
000516 01 IN2-REC.
000517 05 STU-NOA PIC X(05).
000518 05 AGE PIC 9(03).
000519 05 EILLER PIC X(72).
000520 FD OU-FILE.
000521 01 OUT1-REC.
000522 05 STU-NO2 PIC X(05).
000523 05 STU-NAME2 PIC X(10).
000524 05 STU-DATE PIC X(08).
000525 05 CONSUME2 PIC 9(04).
000526 05 AGE1 PIC 9(03).
000527 05 FILLER PIC X(50).
000528 WORKING-STORAGE SECTION.
000540 01 ACCEPT-EOF-SWITCH PIC X(1) VALUE 'N'.
000541 01 ACCEPT-EOF-AAAAAA PIC X(1) VALUE 'N'.
000550 PROCEDURE DIVISION.
000551 MAIN-000.
000560 OPEN INPUT IN-FILE IN1-FILE
000570 OUTPUT OU-FILE.
000580 PERFORM MAIN-Y.
000590 PERFORM MAIN-A.
000600 PERFORM READ-WRITE UNTIL ACCEPT-EOF-SWITCH = 'Y'.
000700 * DISPLAY OUT1-REC.
000800 CLOSE IN-FILE IN1-FILE OU-FILE.
000900 STOP RUN.
000910 REAN-WRITE.
000920 * READ IN-FILE AT END MOVE 'Y' TO ACCEPT-EOF-SWITCH.
000930 PERFORM AGE-SAME UNTIL ACCEPT-EOF-AAAAAA = 'Y'.
000940 PERFORM MAIN-Y.
000941 MOVE 'N' TO ACCEPT-EOF-AAAAAA.
000942 CLOSE IN1-FILE.
000943 OPEN INPUT IN1-FILE.
000944 PERFORM MAIN-A.
000945 AGE-SAVE.
000946 IF STU-NO1 = STU-NOA
000947 MOVE STU-NO1 TO STU-NO2
000948 MOVE CONSUME1 TO CONSUME2
000949 MOVE AGE TO AGE1
000950 WRITE OUT1-REC
000951 END-IF.
000960 PERFORM MAIN-A.
000970 MAIN-Y.
000980 READ IN-FILE AT END MOVE 'Y' TO ACCEPT-EOF-SWITCH.
000990 MAIN-A.
001000 READ IN1-FILE AT END MOVE 'Y' TO ACCEPT-EOF-SWITCH.
****** **************************** Bottom of Data ************************
uj5u.com熱心網友回復：
這是什么玩意兒！！！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/85508.html
標籤：VB基礎類
上一篇：求教例外，由句柄所呼叫的 NtClose 已使用 NtSetInformationObject 以防止關閉
下一篇：NPOI 如何讀加密的Excel