000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COB10.
000300 ENVIRONMENT DIVISION.
000310 INPUT-OUTPUT SECTION.
000320 FILE-CONTROL.
000330 SELECT IN-FILE ASSIGN TO INPUT1.
000340 SELECT OU-FILE ASSIGN TO OUTPUT1.
000341 *
000350 DATA DIVISION.
000360 FILE SECTION.
000361 *
000370 FD IN-FILE.
000380 01 CUST-IN.
000381 05 N0-A PIC X(05).
000390 05 NAME-A PIC X(10).
000392 05 DATE-A PIC X(8).
000393 05 CONSUME-A PIC 9(4).
000394 05 FILLER PIC X(53).
000395 *
000398 FD OU-FILE.
000399 01 CUST-OU.
000400 05 N0-B PIC X(05).
000401 05 NAME-B PIC X(10).
000402 05 DATE-B PIC X(8).
000403 05 CONSUME-B PIC 9(4).
000404 05 FILLER PIC X(53).
000405 *
000413 WORKING-STORAGE SECTION.
000415 01 SWITCHES.
000416 05 ACCEPT-EOF-SWITCH PIC X(1) VALUE 'N'.
000417 *
000418 PROCEDURE DIVISION.
000419 OPEN INPUT IN-FILE
000420 OUTPUT OU-FILE.
000421 PERFORM MIAN-IN.
000422 PERFORM MIAN-OU UNTIL ACCEPT-EOF-SWITCH = 'Y'.
000423 DISPLAY CUST-OU.
000424 *
000425 CLOSE IN-FILE OU-FILE.
000426 STOP RUN.
000427 *
000428 MIAN-IN.
000429 READ IN-FILE
000430 AT END
000431 MOVE 'Y' TO ACCEPT-EOF-SWITCH.
000432 *
000433 MIAN-OU.
000434 IF CONSUME-A >= 3000
000435 MOVE CUST-IN TO CUST-OU
000436 WRITE CUST-OU
000437 END-IF.
000438 PERFORM MIAN-IN.
age 35 40 55 80 34
no一樣的NO.CONSUME .AGE 出力
年齡40歲以上的 no NAME AGE 出力
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86838.html
標籤：VB基礎類
上一篇：2個Inet控制元件傳輸正，用8個傳輸就出現莫名其妙的錯誤
下一篇：鎖相環