hangshuo652
14 lines
376 B
COBOL
14 lines
376 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. SIMPLE.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 BILL-RECORD.
|
|
05 BR-AMT PIC S9(7)V99 COMP-3.
|
|
05 BR-STATUS PIC X.
|
|
05 BR-DATE PIC 9(8).
|
|
PROCEDURE DIVISION.
|
|
DISPLAY BR-AMT.
|
|
DISPLAY BR-STATUS.
|
|
DISPLAY BR-DATE.
|
|
STOP RUN.
|