v1: executing-plans 模式生成,54 文件 1320 行 Python
This commit is contained in:
Vendored
+29
@@ -0,0 +1,29 @@
|
||||
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.
|
||||
Vendored
+4
@@ -0,0 +1,4 @@
|
||||
01 BILL-RECORD.
|
||||
05 BR-AMT PIC S9(7)V99 COMP-3.
|
||||
05 BR-STATUS PIC X.
|
||||
05 BR-DATE PIC 9(8).
|
||||
Vendored
+13
@@ -0,0 +1,13 @@
|
||||
program: "SIMPLE"
|
||||
field_mapping:
|
||||
- cobol_field: "BR-AMT"
|
||||
java_field: "billAmount"
|
||||
type: "decimal"
|
||||
precision: 2
|
||||
- cobol_field: "BR-STATUS"
|
||||
java_field: "statusCode"
|
||||
type: "string"
|
||||
- cobol_field: "BR-DATE"
|
||||
java_field: "billDate"
|
||||
type: "date"
|
||||
format: "YYYYMMDD"
|
||||
Reference in New Issue
Block a user