Cobol代碼通過工具自動生成java代碼 展示版

来源:https://www.cnblogs.com/shenvsxian/archive/2022/06/22/16403568.html
-Advertisement-
Play Games

前言 我們在學習機器學習相關內容時,一般是不需要我們自己去爬取數據的,因為很多的演算法學習很友好的幫助我們打包好了相關數據,但是這並不代表我們不需要進行學習和瞭解相關知識。在這裡我們瞭解三種數據的爬取:鮮花/明星圖像的爬取、中國藝人圖像的爬取、股票數據的爬取。分別對著三種爬蟲進行學習和使用。 體會 個 ...


本例是通過工具將cobol代碼自動生成java代碼。生成後的java代碼是按照java編程風格生成的,完全屏蔽了cobol的特性。

一個cobol代碼生成了4個java代碼,分別說文件定義,變數定義,語句代碼。

生成的代碼有可執行程式,本例只展示生成的代碼。

cobol代碼

      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
       PROGRAM-ID. YOUR-PROGRAM-NAME.
       ENVIRONMENT DIVISION.
      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
       CONFIGURATION SECTION.
      *-----------------------
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUTFILE1 ASSIGN TO
             "E:\source\cobol\testdata\src\testfile\input.txt"
             status fs.
           SELECT OUTPUT1 ASSIGN TO
             "E:\source\cobol\testdata\src\testfile\out.txt".
      *-----------------------
       DATA DIVISION.
       FILE SECTION.
       FD INPUTFILE1.
       01  INRECORD.
           02  ID1  PIC 9999.
           02  NAME1 PIC XXXXXXXX.
           02  KEMU1  PIC 9999.
           02  CHENGJI1 PIC 99V9.
       FD OUTPUT1.
       01 OUTRECORD.
           02 ID2 PIC 9999.
           02 NAME2 PIC XXXXXXXX.
           02 SUM2 PIC 999V9.
           02 HEGE PIC X.

      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
      *-----------------------
       WORKING-STORAGE SECTION.
       01 test1.
           02 aa comp-2.
       77  EOFMOD PIC 9.
       77  FS PIC XX.
       01  testred pic xxxx.
       01  testred2   REDEFINES testred.
           02 testred21 pic 9999.
      *-----------------------
       PROCEDURE DIVISION.
      *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
       DISPLAY "start exec ".
       MAIN-PROCEDURE.
      **
      * The main procedure of the program
      **
           move all 'a' to test1.
           display test1 "b".
           DISPLAY "Hello world"
           PERFORM CREATFILEDATA.

      *合計學生di為1的成績綜合併輸入到出力文件中
           perform SUMCHEGNJI.
            STOP RUN.

       CREATFILEDATA.
           OPEN OUTPUT INPUTFILE1.

      * 1
           MOVE 1 TO ID1.
           ADD 1 TO 1 GIVING ID1.
           MOVE '張三' to NAME1.
           MOVE 1 TO KEMU1.
           MOVE 80.5 TO CHENGJI1.
           WRITE INRECORD.
           DISPLAY 'TEST1'.
      * 1
           MOVE 1 TO ID1.
           MOVE '張三' to NAME1.
           MOVE 2 TO KEMU1.
           MOVE 90 TO CHENGJI1.

           DISPLAY 'TEST21' '.'.
           IF CHENGJI1 <= 0 THEN
               DISPLAY 'ERROR' ' END'
               STOP RUN
           END-IF.

           WRITE INRECORD.
           DISPLAY 'WRITE OK'.
           CLOSE INPUTFILE1.
           exit.
       SUMCHEGNJI.
      *    MOVE 1 TO ID2.
      *    MOVE '張三' to NAME2.
           MOVE INRECORD TO OUTRECORD.
           move 0 to SUM2.
           move ' ' to HEGE.
           MOVE 0 TO EOFMOD.
           MOVE '00' TO FS.

           OPEN INPUT INPUTFILE1.
           perform until FS NOT = '00'

               READ INPUTFILE1
               DISPLAY FS
               IF FS = '00' THEN
                   IF ID1 = 1 THEN
                       ADD CHENGJI1 TO SUM2
                  END-IF
               END-IF
           END-PERFORM.

           CLOSE INPUTFILE1.
           DISPLAY SUM2 .
           PERFORM OUTDATA.
       OUTDATA SECTION.
           OPEN OUTPUT OUTPUT1.
           IF SUM2 >= 120 THEN
               MOVE 'A' TO HEGE
           ELSE
               MOVE 'D' TO HEGE
           END-IF.
           WRITE OUTRECORD.
           CLOSE OUTPUT1.
       text2.
           exit.

      ** add other procedures here
       END PROGRAM YOUR-PROGRAM-NAME.

  工具轉換生成的java代碼

1:文件結構

package cobol.filevar;

import java.math.BigDecimal;
import comm.BaseFile;
import comm.StringDataUtils;

/**
 * a 工具轉換生成類
 * a 數據文件使用的數據結構定義
 * @author lihaibo
 *
 */
public class Inputfile1 extends BaseFile{
    public int id1 = 0;
    public String name1 = "";
    public int kemu1 = 0;
    public BigDecimal chengji1 = new BigDecimal(0);

    public Inputfile1(String fileName) {
        super(fileName);
    }

    public String getData() {
        String rowData = "";

        rowData += StringDataUtils.getData(id1, true);
        rowData += StringDataUtils.getData(name1, false);
        rowData += StringDataUtils.getData(kemu1, false);
        rowData += StringDataUtils.getData(chengji1, false);
        return rowData;
    }

    public void setData(String rowData) {
        String[] arr = StringDataUtils.split(rowData);

        id1 = StringDataUtils.getInt(arr, 0);
        name1 = StringDataUtils.getStr(arr, 1);
        kemu1 = StringDataUtils.getInt(arr, 2);
        chengji1 = StringDataUtils.getBigDecimal(arr, 3);
    }

}

  文件的定義2

package cobol.filevar;

import java.math.BigDecimal;
import comm.BaseFile;
import comm.StringDataUtils;

/**
 * a 工具轉換生成類
 * a 數據文件使用的數據結構定義
 * @author lihaibo
 *
 */
public class Output1 extends BaseFile{
    public int id2 = 0;
    public String name2 = "";
    public BigDecimal sum2 = new BigDecimal(0);
    public String hege = "";

    public Output1(String fileName) {
        super(fileName);
    }

    public String getData() {
        String rowData = "";

        rowData += StringDataUtils.getData(id2, true);
        rowData += StringDataUtils.getData(name2, false);
        rowData += StringDataUtils.getData(sum2, false);
        rowData += StringDataUtils.getData(hege, false);
        return rowData;
    }

    public void setData(String rowData) {
        String[] arr = StringDataUtils.split(rowData);

        id2 = StringDataUtils.getInt(arr, 0);
        name2 = StringDataUtils.getStr(arr, 1);
        sum2 = StringDataUtils.getBigDecimal(arr, 2);
        hege = StringDataUtils.getStr(arr, 3);
    }

}

  

變數定義

package cobol.src;

import cobol.filevar.Inputfile1;
import cobol.filevar.Output1;

/**
 * a 工具轉換生成類
 * a 程式用變數定義
 * @author lihaibo
 *
 */
public class YourProgramNameVar{
    // 文件對象變數
    public Inputfile1 inputfile1 = new Inputfile1("E:\\source\\cobol\\testdata\\src\\testfile\\input.txt");
    public Output1 output1 = new Output1("E:\\source\\cobol\\testdata\\src\\testfile\\out.txt");
    // work內部對象變數
    public int aa = 0;
    public int eofmod = 0;
    public String fs = "";
    public int testred = 0;
    // Param參數對象變數

}

  

執行代碼

package cobol.src;

import java.math.BigDecimal;
import cobol.filevar.Inputfile1;
import cobol.filevar.Output1;
import comm.FileOpenEnum;

/**
 * a 工具轉換生成類
 * a 程式轉換後代碼
 * @author lihaibo
 *
 */
public class YourProgramNameSrc{
    // 程式使用的變數對象
    public YourProgramNameVar yourProgramNameVar = new YourProgramNameVar();

    // 外部介面方法
    public void mainExec(){
        System.out.println("start exec ");
        mainProcedure();
    }


    private int mainProcedure(){
        yourProgramNameVar.aa = 0;
        System.out.println(String.valueOf(yourProgramNameVar.aa) + "b");
        System.out.println("Hello world");
        if(creatfiledata() == 1){
            return 1;
        }
        sumchegnji();
        return 1;
    }

    private int creatfiledata(){
        yourProgramNameVar.inputfile1.open(FileOpenEnum.OUTPUT);
        yourProgramNameVar.inputfile1.id1 = 1;
        yourProgramNameVar.inputfile1.id1 = 1 + 1;
        yourProgramNameVar.inputfile1.name1 = "張三";
        yourProgramNameVar.inputfile1.kemu1 = 1;
        yourProgramNameVar.inputfile1.chengji1 = new BigDecimal(80.5);
        yourProgramNameVar.inputfile1.writeLine(yourProgramNameVar.inputfile1.getData());
        System.out.println("TEST1");
        yourProgramNameVar.inputfile1.id1 = 1;
        yourProgramNameVar.inputfile1.name1 = "張三";
        yourProgramNameVar.inputfile1.kemu1 = 2;
        yourProgramNameVar.inputfile1.chengji1 = new BigDecimal(90);
        System.out.println("TEST21" + ".");
        if(   yourProgramNameVar.inputfile1.chengji1.compareTo(new BigDecimal(0)) <= 0){
            System.out.println("ERROR" + " END");
            return 1;
        }
        yourProgramNameVar.inputfile1.writeLine(yourProgramNameVar.inputfile1.getData());
        System.out.println("WRITE OK");
        yourProgramNameVar.inputfile1.close();
        return 0;
    }

    private void sumchegnji(){
        yourProgramNameVar.output1.id2 = yourProgramNameVar.inputfile1.id1;
        yourProgramNameVar.output1.name2 = yourProgramNameVar.inputfile1.name1;
        yourProgramNameVar.output1.sum2 = new BigDecimal(0);
        yourProgramNameVar.output1.hege = " ";
        yourProgramNameVar.eofmod = 0;
        yourProgramNameVar.fs = "00";
        yourProgramNameVar.inputfile1.open(FileOpenEnum.INPUT);
        while(!(   yourProgramNameVar.fs.compareTo("00") != 0)) {
            yourProgramNameVar.inputfile1.readLine();
            yourProgramNameVar.fs = yourProgramNameVar.inputfile1.statu1;
            System.out.println(yourProgramNameVar.fs);
            if(   yourProgramNameVar.fs.compareTo("00") == 0){
                if(   yourProgramNameVar.inputfile1.id1 == 1){
                    yourProgramNameVar.output1.sum2 = yourProgramNameVar.output1.sum2.add(yourProgramNameVar.inputfile1.chengji1);
                }
            }
        }
        yourProgramNameVar.inputfile1.close();
        System.out.println(String.valueOf(yourProgramNameVar.output1.sum2));
        outdata();
    }

    private void outdata(){
        yourProgramNameVar.output1.open(FileOpenEnum.OUTPUT);
        if(   yourProgramNameVar.output1.sum2.compareTo(new BigDecimal(120)) >= 0){
            yourProgramNameVar.output1.hege = "A";
        }else{
            yourProgramNameVar.output1.hege = "D";
        }
        yourProgramNameVar.output1.writeLine(yourProgramNameVar.output1.getData());
        yourProgramNameVar.output1.close();
        outdataText2();
    }

    private void outdataText2(){
    }

}

  

 


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • 路由懶載入:有效拆分App尺寸,訪問時才非同步載入 keep-alive組件緩存:避免重覆創建組件實例,且能保留緩存組件狀態 使用v-show復用DOM:避免重覆創建組件 v-for遍歷避免同時使用v-if 長列表性能優化:如果是大數據長列表,可採用虛擬滾動(不會將所有內容渲染,只是把可是區域渲染), ...
  • 泛型 指在定義函數、介面或類的時候,不預先指定具體的類型,而在使用的時候再指定具體類型的一種特性。 引入 下麵創建一個函數, 實現功能: 根據指定的數量 count 和數據 value , 創建一個包含 count 個 value 的數組 不用泛型的話,這個函數可能是下麵這樣: function c ...
  • 前言 : 組件系統是Vue.js其中一個重要的概念,它提供了一種抽象,讓我們可以使用獨立可復用的小組件來構建大型應用,任意類型的應用界面都可以抽象為一個組件樹。 現在基於vue的UI組件庫有很多,比如iview,element-ui等。但有時候這些組件庫滿足不了我們的開發需求,這時候我們就需要自己寫 ...
  • Vue 3.x基礎 模版 <template> // html </template> <script setup> // setup API // ... </script> <style> // css </style> setup API 變數(響應式) // 基本數據類型 let refVa ...
  • 這裡給大家分享我在網上總結出來的一些知識,希望對大家有所幫助 1. ref的使用 ref 接受一個原始值,返回一個具有響應式的對象,對象有一個value屬性,其值就是所傳遞的原始值。 ref是做的一個拷貝關係,修改對象msg的值,不會影響對象obj,視圖會發生變化。 import { ref } f ...
  • 引言 本篇文章主要介紹的是關於CSS Sandbox的一些事情,為什麼要介紹這個呢?在我們日常的開發中,樣式問題其實一直是一個比較耗時的事情,一方面我們根據 UI 稿不斷的去調整,另一方面隨著項目越來越大可能哪一次開發就發現——誒,我的樣式怎麼不起作用了,亦或是怎麼被另一個樣式所覆蓋了。原因可能有很 ...
  • 1 前言 在嵌入式MCU軟體開發過程中,程式任務調度架構的搭建尤為重要,直接關係到該程式能支持多少功能(隨著功能越多系統響應能力越弱,好的任務調度架構能夠在保持相同的系統響應能力前提下支持更多的功能),下麵介紹三種常用的程式任務調度框架設計方案: 前後臺順序執行法 時間片論法 操作系統 2 程式框架 ...
  • 目錄 一.簡介 二.效果演示 三.源碼下載 四.猜你喜歡 零基礎 OpenGL (ES) 學習路線推薦 : OpenGL (ES) 學習目錄 >> OpenGL ES 基礎 零基礎 OpenGL (ES) 學習路線推薦 : OpenGL (ES) 學習目錄 >> OpenGL ES 轉場 零基礎 O ...
一周排行
    -Advertisement-
    Play Games
  • 用例演示 - 創建實體 本節將演示一些示例用例並討論可選場景。 創建實體 從實體/聚合根類創建對象是實體生命周期的第一步。聚合/聚合根規則和最佳實踐部分 建議為Entity類創建一個主構造函數,以保證創建一個有效的實體。因此,無論何時我們需要創建實體的實例,我們都應該使用那個構造函數 參見下麵的問題 ...
  • 領域邏輯 & 應用邏輯 如前所述,領域驅動設計中的業務邏輯分為兩部分(層):領域邏輯和應用邏輯: 領域邏輯由系統的核心領域規則組成,應用邏輯實現應用特定的用例 雖然定義很明確,但實現起來可能並不容易。您可能無法決定哪些代碼應該位於應用程式層,哪些代碼應該位於領域層。本節試圖解釋其中的差異 多個應用程 ...
  • 表弟大學快畢業了,學了一個學期Python居然還不會寫學生管理系統,真的給我丟臉啊,教他又不肯學,還讓我直接給他寫,我真想兩巴掌上去,最終還是寫了給他,誰讓他是我表弟呢,關鍵時候還是得幫他一把! 寫完了放在那也是放著,所以今天分享給大家吧! 話不多說,咱們直接開始吧! 代碼解析 一、登錄頁面 1、定 ...
  • Zookeeper3.7源碼剖析 能力目標 掌握Zookeeper中Session的管理機制 能基於Client進行Debug測試Session創建/刷新操作 能搭建Zookeeper集群源碼配置 掌握集群環境下Leader選舉啟動過程 能說出Zookeeper選舉過程中的概念 能說出Zookeep ...
  • 前言 今天給大家分享一下我自己寫的筆記,純純的都是乾貨,關於字好像也能看。這是我學python整理出來的一些資料,希望對大家 有用。想要更多的資料那就的給一個關註了… python學習交流Q群:903971231### #導入Counter from collections import Count ...
  • Hi,大家好,我是Mic 一個工作5年的粉絲找到我。 他說: “Mic老師,你要是能回答出這個問題,我就佩服你” 我當場就懵了,現在打賭都這麼隨意了嗎? 我問他問題是什麼,他說“Kafka如何避免重覆消費的問題!” 下麵看看普通人和高手的回答! 普通人: Kafka怎麼避免重覆消費就是我們可以通過 ...
  • 前言 Steam是由美國電子游戲商Valve於2003年9月12日推出的數字發行平臺,被認為是電腦游戲界最大的數位發行平臺之一,Steam平臺是全球最大的綜合性數字發行平臺之一。玩家可以在該平臺購買、下載、討論、上傳和分享游戲和軟體。 而每周的steam會開啟了一輪特惠,可以讓游戲打折,而玩家就會 ...
  • 本篇內容將在上一篇已有的內容基礎上,進一步的聊一下項目中使用JPA的一些高階複雜場景的實踐指導,覆蓋了主要核心的JPA使用場景,可以讓你在需求開發的時候對JPA的使用更加的游刃有餘。 ...
  • 1.路徑處理 1.找模塊:sys.path import sys print(sys.path) - 1.理解 - 1.是python去查找包或模塊 - 2.項目開始根目錄,python內置的目錄 - 3.雖然說python的安裝目錄下也可以存放我們寫的模塊,但是不建議(太多了,不大好找) - 4. ...
  • Go 語言入門練手項目系列 01 基於命令行的圖書的增刪查改 02 文件管理 持續更新中... > 本文來自博客園,作者:Arway,轉載請註明原文鏈接:https://www.cnblogs.com/cenjw/p/gobeginner-proj-bookstore-cli.html 介紹 這是一 ...