Cobol代码通过工具自动生成java代码 展示版

本例是通过工具将cobol代码自动生成java代码。生成后的java代码是按照java编程风格生成的，完全屏蔽了cobol的特性。
一个cobol代码生成了4个java代码，分别说文件定义，变量定义，语句代码。
生成的代码有可执行程序，本例只展示生成的代码。
cobol代码

1.       ******************************************************************
2.       * Author:
3.       * Date:
4.       * Purpose:
5.       * Tectonics: cobc
6.       ******************************************************************
7.        IDENTIFICATION DIVISION.
8.       *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
9.        PROGRAM-ID. YOUR-PROGRAM-NAME.
10.        ENVIRONMENT DIVISION.
11.       *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
12.        CONFIGURATION SECTION.
13.       *-----------------------
14.        INPUT-OUTPUT SECTION.
15.        FILE-CONTROL.
16.            SELECT INPUTFILE1 ASSIGN TO
17.              "E:\source\cobol\testdata\src\testfile\input.txt"
18.              status fs.
19.            SELECT OUTPUT1 ASSIGN TO
20.              "E:\source\cobol\testdata\src\testfile\out.txt".
21.       *-----------------------
22.        DATA DIVISION.
23.        FILE SECTION.
24.        FD INPUTFILE1.
25.        01  INRECORD.
26.            02  ID1  PIC 9999.
27.            02  NAME1 PIC XXXXXXXX.
28.            02  KEMU1  PIC 9999.
29.            02  CHENGJI1 PIC 99V9.
30.        FD OUTPUT1.
31.        01 OUTRECORD.
32.            02 ID2 PIC 9999.
33.            02 NAME2 PIC XXXXXXXX.
34.            02 SUM2 PIC 999V9.
35.            02 HEGE PIC X.
37.       *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
38.       *-----------------------
39.        WORKING-STORAGE SECTION.
40.        01 test1.
41.            02 aa comp-2.
42.        77  EOFMOD PIC 9.
43.        77  FS PIC XX.
44.        01  testred pic xxxx.
45.        01  testred2   REDEFINES testred.
46.            02 testred21 pic 9999.
47.       *-----------------------
48.        PROCEDURE DIVISION.
49.       *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
50.        DISPLAY "start exec ".
51.        MAIN-PROCEDURE.
52.       **
53.       * The main procedure of the program
54.       **
55.            move all 'a' to test1.
56.            display test1 "b".
57.            DISPLAY "Hello world"
58.            PERFORM CREATFILEDATA.
60.       *合计学生di为1的成绩综合并输入到出力文件中
61.            perform SUMCHEGNJI.
62.             STOP RUN.
64.        CREATFILEDATA.
65.            OPEN OUTPUT INPUTFILE1.
67.       * 1
68.            MOVE 1 TO ID1.
69.            ADD 1 TO 1 GIVING ID1.
70.            MOVE '张三' to NAME1.
71.            MOVE 1 TO KEMU1.
72.            MOVE 80.5 TO CHENGJI1.
73.            WRITE INRECORD.
74.            DISPLAY 'TEST1'.
75.       * 1
76.            MOVE 1 TO ID1.
77.            MOVE '张三' to NAME1.
78.            MOVE 2 TO KEMU1.
79.            MOVE 90 TO CHENGJI1.
81.            DISPLAY 'TEST21' '.'.
82.            IF CHENGJI1 <= 0 THEN
83.                DISPLAY 'ERROR' ' END'
84.                STOP RUN
85.            END-IF.
87.            WRITE INRECORD.
88.            DISPLAY 'WRITE OK'.
89.            CLOSE INPUTFILE1.
90.            exit.
91.        SUMCHEGNJI.
92.       *    MOVE 1 TO ID2.
93.       *    MOVE '张三' to NAME2.
94.            MOVE INRECORD TO OUTRECORD.
95.            move 0 to SUM2.
96.            move ' ' to HEGE.
97.            MOVE 0 TO EOFMOD.
98.            MOVE '00' TO FS.
100.            OPEN INPUT INPUTFILE1.
101.            perform until FS NOT = '00'
103.                READ INPUTFILE1
104.                DISPLAY FS
105.                IF FS = '00' THEN
106.                    IF ID1 = 1 THEN
107.                        ADD CHENGJI1 TO SUM2
108.                   END-IF
109.                END-IF
110.            END-PERFORM.
112.            CLOSE INPUTFILE1.
113.            DISPLAY SUM2 .
114.            PERFORM OUTDATA.
115.        OUTDATA SECTION.
116.            OPEN OUTPUT OUTPUT1.
117.            IF SUM2 >= 120 THEN
118.                MOVE 'A' TO HEGE
119.            ELSE
120.                MOVE 'D' TO HEGE
121.            END-IF.
122.            WRITE OUTRECORD.
123.            CLOSE OUTPUT1.
124.        text2.
125.            exit.
127.       ** add other procedures here
128.        END PROGRAM YOUR-PROGRAM-NAME.

复制代码

　　工具转换生成的java代码
1：文件结构

1. package cobol.filevar;
3. import java.math.BigDecimal;
4. import comm.BaseFile;
5. import comm.StringDataUtils;
7. /**
8. * a 工具转换生成类
9. * a 数据文件使用的数据结构定义
10. * @author lihaibo
11. *
12. */
13. public class Inputfile1 extends BaseFile{
14.     public int id1 = 0;
15.     public String name1 = "";
16.     public int kemu1 = 0;
17.     public BigDecimal chengji1 = new BigDecimal(0);
19.     public Inputfile1(String fileName) {
20.         super(fileName);
21.     }
23.     public String getData() {
24.         String rowData = "";
26.         rowData += StringDataUtils.getData(id1, true);
27.         rowData += StringDataUtils.getData(name1, false);
28.         rowData += StringDataUtils.getData(kemu1, false);
29.         rowData += StringDataUtils.getData(chengji1, false);
30.         return rowData;
31.     }
33.     public void setData(String rowData) {
34.         String[] arr = StringDataUtils.split(rowData);
36.         id1 = StringDataUtils.getInt(arr, 0);
37.         name1 = StringDataUtils.getStr(arr, 1);
38.         kemu1 = StringDataUtils.getInt(arr, 2);
39.         chengji1 = StringDataUtils.getBigDecimal(arr, 3);
40.     }
42. }

复制代码

　　文件的定义2

1. package cobol.filevar;
3. import java.math.BigDecimal;
4. import comm.BaseFile;
5. import comm.StringDataUtils;
7. /**
8. * a 工具转换生成类
9. * a 数据文件使用的数据结构定义
10. * @author lihaibo
11. *
12. */
13. public class Output1 extends BaseFile{
14.     public int id2 = 0;
15.     public String name2 = "";
16.     public BigDecimal sum2 = new BigDecimal(0);
17.     public String hege = "";
19.     public Output1(String fileName) {
20.         super(fileName);
21.     }
23.     public String getData() {
24.         String rowData = "";
26.         rowData += StringDataUtils.getData(id2, true);
27.         rowData += StringDataUtils.getData(name2, false);
28.         rowData += StringDataUtils.getData(sum2, false);
29.         rowData += StringDataUtils.getData(hege, false);
30.         return rowData;
31.     }
33.     public void setData(String rowData) {
34.         String[] arr = StringDataUtils.split(rowData);
36.         id2 = StringDataUtils.getInt(arr, 0);
37.         name2 = StringDataUtils.getStr(arr, 1);
38.         sum2 = StringDataUtils.getBigDecimal(arr, 2);
39.         hege = StringDataUtils.getStr(arr, 3);
40.     }
42. }

复制代码

　　
变量定义

1. package cobol.src;
3. import cobol.filevar.Inputfile1;
4. import cobol.filevar.Output1;
6. /**
7. * a 工具转换生成类
8. * a 程序用变量定义
9. * @author lihaibo
10. *
11. */
12. public class YourProgramNameVar{
13.     // 文件对象变量
14.     public Inputfile1 inputfile1 = new Inputfile1("E:\\source\\cobol\\testdata\\src\\testfile\\input.txt");
15.     public Output1 output1 = new Output1("E:\\source\\cobol\\testdata\\src\\testfile\\out.txt");
16.     // work内部对象变量
17.     public int aa = 0;
18.     public int eofmod = 0;
19.     public String fs = "";
20.     public int testred = 0;
21.     // Param参数对象变量
23. }

复制代码

　　
执行代码

1. package cobol.src;
3. import java.math.BigDecimal;
4. import cobol.filevar.Inputfile1;
5. import cobol.filevar.Output1;
6. import comm.FileOpenEnum;
8. /**
9. * a 工具转换生成类
10. * a 程序转换后代码
11. * @author lihaibo
12. *
13. */
14. public class YourProgramNameSrc{
15.     // 程序使用的变量对象
16.     public YourProgramNameVar yourProgramNameVar = new YourProgramNameVar();
18.     // 外部接口方法
19.     public void mainExec(){
20.         System.out.println("start exec ");
21.         mainProcedure();
22.     }
25.     private int mainProcedure(){
26.         yourProgramNameVar.aa = 0;
27.         System.out.println(String.valueOf(yourProgramNameVar.aa) + "b");
28.         System.out.println("Hello world");
29.         if(creatfiledata() == 1){
30.             return 1;
31.         }
32.         sumchegnji();
33.         return 1;
34.     }
36.     private int creatfiledata(){
37.         yourProgramNameVar.inputfile1.open(FileOpenEnum.OUTPUT);
38.         yourProgramNameVar.inputfile1.id1 = 1;
39.         yourProgramNameVar.inputfile1.id1 = 1 + 1;
40.         yourProgramNameVar.inputfile1.name1 = "张三";
41.         yourProgramNameVar.inputfile1.kemu1 = 1;
42.         yourProgramNameVar.inputfile1.chengji1 = new BigDecimal(80.5);
43.         yourProgramNameVar.inputfile1.writeLine(yourProgramNameVar.inputfile1.getData());
44.         System.out.println("TEST1");
45.         yourProgramNameVar.inputfile1.id1 = 1;
46.         yourProgramNameVar.inputfile1.name1 = "张三";
47.         yourProgramNameVar.inputfile1.kemu1 = 2;
48.         yourProgramNameVar.inputfile1.chengji1 = new BigDecimal(90);
49.         System.out.println("TEST21" + ".");
50.         if(   yourProgramNameVar.inputfile1.chengji1.compareTo(new BigDecimal(0)) <= 0){
51.             System.out.println("ERROR" + " END");
52.             return 1;
53.         }
54.         yourProgramNameVar.inputfile1.writeLine(yourProgramNameVar.inputfile1.getData());
55.         System.out.println("WRITE OK");
56.         yourProgramNameVar.inputfile1.close();
57.         return 0;
58.     }
60.     private void sumchegnji(){
61.         yourProgramNameVar.output1.id2 = yourProgramNameVar.inputfile1.id1;
62.         yourProgramNameVar.output1.name2 = yourProgramNameVar.inputfile1.name1;
63.         yourProgramNameVar.output1.sum2 = new BigDecimal(0);
64.         yourProgramNameVar.output1.hege = " ";
65.         yourProgramNameVar.eofmod = 0;
66.         yourProgramNameVar.fs = "00";
67.         yourProgramNameVar.inputfile1.open(FileOpenEnum.INPUT);
68.         while(!(   yourProgramNameVar.fs.compareTo("00") != 0)) {
69.             yourProgramNameVar.inputfile1.readLine();
70.             yourProgramNameVar.fs = yourProgramNameVar.inputfile1.statu1;
71.             System.out.println(yourProgramNameVar.fs);
72.             if(   yourProgramNameVar.fs.compareTo("00") == 0){
73.                 if(   yourProgramNameVar.inputfile1.id1 == 1){
74.                     yourProgramNameVar.output1.sum2 = yourProgramNameVar.output1.sum2.add(yourProgramNameVar.inputfile1.chengji1);
75.                 }
76.             }
77.         }
78.         yourProgramNameVar.inputfile1.close();
79.         System.out.println(String.valueOf(yourProgramNameVar.output1.sum2));
80.         outdata();
81.     }
83.     private void outdata(){
84.         yourProgramNameVar.output1.open(FileOpenEnum.OUTPUT);
85.         if(   yourProgramNameVar.output1.sum2.compareTo(new BigDecimal(120)) >= 0){
86.             yourProgramNameVar.output1.hege = "A";
87.         }else{
88.             yourProgramNameVar.output1.hege = "D";
89.         }
90.         yourProgramNameVar.output1.writeLine(yourProgramNameVar.output1.getData());
91.         yourProgramNameVar.output1.close();
92.         outdataText2();
93.     }
95.     private void outdataText2(){
96.     }
98. }

复制代码

　　
 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！