init: cobol-java migration verification platform v3 (42 tests, JCL module)
This commit is contained in:
@@ -0,0 +1,13 @@
|
||||
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.
|
||||
Reference in New Issue
Block a user