hangshuo652
30 lines
907 B
COBOL
30 lines
907 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. SIMPLE.
|
|
ENVIRONMENT DIVISION.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT INFILE ASSIGN TO "input.bin"
|
|
ORGANIZATION IS SEQUENTIAL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
FD INFILE.
|
|
01 BILL-RECORD.
|
|
05 BR-AMT PIC S9(7)V99 COMP-3.
|
|
05 BR-STATUS PIC X.
|
|
05 BR-DATE PIC 9(8).
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-EOF PIC X VALUE 'N'.
|
|
PROCEDURE DIVISION.
|
|
OPEN INPUT INFILE.
|
|
PERFORM UNTIL WS-EOF = 'Y'
|
|
READ INFILE INTO BILL-RECORD
|
|
AT END MOVE 'Y' TO WS-EOF
|
|
NOT AT END
|
|
DISPLAY BR-AMT
|
|
DISPLAY BR-STATUS
|
|
DISPLAY BR-DATE
|
|
END-READ
|
|
END-PERFORM.
|
|
CLOSE INFILE.
|
|
STOP RUN.
|