銀行のATMシステムのプログラム

 COBOLを使用して銀行のATMシステムのバックエンドを実装するためのサンプルプログラムを以下に示します。この例では、COBOLを使用して基本的なATM操作（残高照会、入金、出金、振込）を実装し、Oracle Databaseと連携します。


### 1. Oracle Databaseのセットアップ


まず、Oracle Databaseに必要なテーブルを作成します。以下は、ユーザー情報と取引履歴を管理するためのテーブルの例です。


```sql

CREATE TABLE users (

    user_id NUMBER PRIMARY KEY,

    name VARCHAR2(100),

    balance NUMBER(10, 2) DEFAULT 0

);


CREATE TABLE transactions (

    transaction_id NUMBER PRIMARY KEY,

    user_id NUMBER,

    transaction_type VARCHAR2(10),

    amount NUMBER(10, 2),

    transaction_time TIMESTAMP DEFAULT CURRENT_TIMESTAMP,

    FOREIGN KEY (user_id) REFERENCES users(user_id)

);

```


### 2. COBOLプログラム


次に、COBOLプログラムを作成します。このプログラムは、ユーザー認証、残高照会、入金、出金、振込の操作を実装します。


#### 2.1. COBOLの環境設定


COBOLプログラムを実行するためには、Oracleのプロシージャライブラリを使用してデータベースに接続します。以下は、必要な環境設定の例です。


```cobol

IDENTIFICATION DIVISION.

PROGRAM-ID. ATMSystem.


ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER. IBM-PC.

OBJECT-COMPUTER. IBM-PC.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

    SELECT USER-FILE ASSIGN TO "users.dat"

        ORGANIZATION IS LINE SEQUENTIAL.

    SELECT TRANSACTION-FILE ASSIGN TO "transactions.dat"

        ORGANIZATION IS LINE SEQUENTIAL.


DATA DIVISION.

FILE SECTION.

FD  USER-FILE.

01  USER-RECORD.

    05 USER-ID         PIC 9(5).

    05 USER-NAME       PIC X(100).

    05 USER-BALANCE    PIC 9(10)V99.


FD  TRANSACTION-FILE.

01  TRANSACTION-RECORD.

    05 TRANSACTION-ID  PIC 9(5).

    05 USER-ID-T       PIC 9(5).

    05 TRANSACTION-TYPE PIC X(10).

    05 AMOUNT          PIC 9(10)V99.

    05 TRANSACTION-TIME PIC X(26).


WORKING-STORAGE SECTION.

01  WS-USER-ID        PIC 9(5).

01  WS-AMOUNT         PIC 9(10)V99.

01  WS-TRANSACTION-TYPE PIC X(10).

01  WS-BALANCE        PIC 9(10)V99.

01  WS-TRANSACTION-ID PIC 9(5).

01  WS-RESPONSE       PIC X(100).


PROCEDURE DIVISION.

    DISPLAY "ATM System".

    PERFORM UNTIL WS-RESPONSE = "EXIT"

        DISPLAY "1. Check Balance"

        DISPLAY "2. Deposit"

        DISPLAY "3. Withdraw"

        DISPLAY "4. Transfer"

        DISPLAY "5. Exit"

        ACCEPT WS-RESPONSE

        EVALUATE WS-RESPONSE

            WHEN "1" PERFORM CHECK-BALANCE

            WHEN "2" PERFORM DEPOSIT

            WHEN "3" PERFORM WITHDRAW

            WHEN "4" PERFORM TRANSFER

            WHEN "5" CONTINUE

            WHEN OTHER DISPLAY "Invalid choice."

        END-EVALUATE

    END-PERFORM.

    STOP RUN.


CHECK-BALANCE.

    DISPLAY "Enter User ID: " WITH NO ADVANCING.

    ACCEPT WS-USER-ID.

    READ USER-FILE

        KEY IS WS-USER-ID

        INTO USER-RECORD

        AT END

            DISPLAY "User not found."

            EXIT PARAGRAPH

    END-READ.

    DISPLAY "Balance: " USER-BALANCE.


DEPOSIT.

    DISPLAY "Enter User ID: " WITH NO ADVANCING.

    ACCEPT WS-USER-ID.

    DISPLAY "Enter Amount: " WITH NO ADVANCING.

    ACCEPT WS-AMOUNT.

    READ USER-FILE

        KEY IS WS-USER-ID

        INTO USER-RECORD

        AT END

            DISPLAY "User not found."

            EXIT PARAGRAPH

    END-READ.

    ADD WS-AMOUNT TO USER-BALANCE.

    REWRITE USER-RECORD.

    MOVE "DEPOSIT" TO WS-TRANSACTION-TYPE.

    PERFORM WRITE-TRANSACTION.


WITHDRAW.

    DISPLAY "Enter User ID: " WITH NO ADVANCING.

    ACCEPT WS-USER-ID.

    DISPLAY "Enter Amount: " WITH NO ADVANCING.

    ACCEPT WS-AMOUNT.

    READ USER-FILE

        KEY IS WS-USER-ID

        INTO USER-RECORD

        AT END

            DISPLAY "User not found."

            EXIT PARAGRAPH

    END-READ.

    IF USER-BALANCE < WS-AMOUNT

        DISPLAY "Insufficient balance."

        EXIT PARAGRAPH

    END-IF.

    SUBTRACT WS-AMOUNT FROM USER-BALANCE.

    REWRITE USER-RECORD.

    MOVE "WITHDRAW" TO WS-TRANSACTION-TYPE.

    PERFORM WRITE-TRANSACTION.


TRANSFER.

    DISPLAY "Enter From User ID: " WITH NO ADVANCING.

    ACCEPT WS-USER-ID.

    DISPLAY "Enter To User ID: " WITH NO ADVANCING.

    ACCEPT WS-TRANSACTION-ID.

    DISPLAY "Enter Amount: " WITH NO ADVANCING.

    ACCEPT WS-AMOUNT.

    READ USER-FILE

        KEY IS WS-USER-ID

        INTO USER-RECORD

        AT END

            DISPLAY "From User not found."

            EXIT PARAGRAPH

    END-READ.

    IF USER-BALANCE < WS-AMOUNT

        DISPLAY "Insufficient balance."

        EXIT PARAGRAPH

    END-IF.

    SUBTRACT WS-AMOUNT FROM USER-BALANCE.

    REWRITE USER-RECORD.

    MOVE "TRANSFER" TO WS-TRANSACTION-TYPE.

    PERFORM WRITE-TRANSACTION.


    READ USER-FILE

        KEY IS WS-TRANSACTION-ID

        INTO USER-RECORD

        AT END

            DISPLAY "To User not found."

            EXIT PARAGRAPH

    END-READ.

    ADD WS-AMOUNT TO USER-BALANCE.

    REWRITE USER-RECORD.

    MOVE "RECEIVE" TO WS-TRANSACTION-TYPE.

    PERFORM WRITE-TRANSACTION.


WRITE-TRANSACTION.

    ADD 1 TO WS-TRANSACTION-ID GIVING WS-TRANSACTION-ID.

    MOVE WS-TRANSACTION-ID TO TRANSACTION-ID.

    MOVE WS-USER-ID TO USER-ID-T.

    MOVE WS-TRANSACTION-TYPE TO TRANSACTION-TYPE.

    MOVE WS-AMOUNT TO AMOUNT.

    MOVE FUNCTION CURRENT-DATE TO TRANSACTION-TIME.

    WRITE TRANSACTION-RECORD.

```


### 3. フロントエンドのGUI


Java Swingを使用して簡単なGUIを作成します。このGUIは、ユーザーが残高を照会したり、入金や出金、振込を行ったりするためのインターフェースを提供します。


```java

import javax.swing.*;

import java.awt.*;

import java.awt.event.ActionEvent;

import java.awt.event.ActionListener;

import java.io.BufferedReader;

import java.io.InputStreamReader;


public class ATMGUI extends JFrame {


    private JTextField userIdField;

    private JTextField amountField;

    private JTextField toUserIdField;

    private JTextArea outputArea;


    public ATMGUI() {

        setTitle("ATM System");

        setSize(400, 300);

        setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        setLocationRelativeTo(null);


        JPanel panel = new JPanel();

        panel.setLayout(new GridLayout(6, 2));


        userIdField = new JTextField();

        amountField = new JTextField();

        toUserIdField = new JTextField();

        outputArea = new JTextArea();

        outputArea.setEditable(false);


        panel.add(new JLabel("User ID:"));

        panel.add(userIdField);

        panel.add(new JLabel("Amount:"));

        panel.add(amountField);

        panel.add(new JLabel("To User ID:"));

        panel.add(toUserIdField);


        JButton checkBalanceButton = new JButton("Check Balance");

        JButton depositButton = new JButton("Deposit");

        JButton withdrawButton = new JButton("Withdraw");

        JButton transferButton = new JButton("Transfer");


        checkBalanceButton.addActionListener(new ActionListener() {

            @Override

            public void actionPerformed(ActionEvent e) {

                try {

                    int userId = Integer.parseInt(userIdField.getText());

                    String response = executeCobolProgram("1", String.valueOf(userId));

                    outputArea.append("Response: " + response + "\n");

                } catch (NumberFormatException ex) {

                    outputArea.append("Error: " + ex.getMessage() + "\n");

                }

            }

        });


        depositButton.addActionListener(new ActionListener() {

            @Override

            public void actionPerformed(ActionEvent e) {

                try {

                    int userId = Integer.parseInt(userIdField.getText());

                    double amount = Double.parseDouble(amountField.getText());

                    String response = executeCobolProgram("2", String.valueOf(userId), String.valueOf(amount));

                    outputArea.append("Response: " + response + "\n");

                } catch (NumberFormatException ex) {

                    outputArea.append("Error: " + ex.getMessage() + "\n");

                }

            }

        });


        withdrawButton.addActionListener(new ActionListener() {

            @Override

            public void actionPerformed(ActionEvent e) {

                try {

                    int userId = Integer.parseInt(userIdField.getText());

                    double amount = Double.parseDouble(amountField.getText());

                    String response = executeCobolProgram("3", String.valueOf(userId), String.valueOf(amount));

                    outputArea.append("Response: " + response + "\n");

                } catch (NumberFormatException ex) {

                    outputArea.append("Error: " + ex.getMessage() + "\n");

                }

            }

        });


        transferButton.addActionListener(new ActionListener() {

            @Override

            public void actionPerformed(ActionEvent e) {

                try {

                    int fromUserId = Integer.parseInt(userIdField.getText());

                    int toUserId = Integer.parseInt(toUserIdField.getText());

                    double amount = Double.parseDouble(amountField.getText());

                    String response = executeCobolProgram("4", String.valueOf(fromUserId), String.valueOf(toUserId), String.valueOf(amount));

                    outputArea.append("Response: " + response + "\n");

                } catch (NumberFormatException ex) {

                    outputArea.append("Error: " + ex.getMessage() + "\n");

                }

            }

        });


        panel.add(checkBalanceButton);

        panel.add(depositButton);

        panel.add(withdrawButton);

        panel.add(transferButton);


        add(new JScrollPane(outputArea), BorderLayout.SOUTH);

        add(panel, BorderLayout.NORTH);

    }


    private String executeCobolProgram(String action, String... params) {

        try {

            ProcessBuilder pb = new ProcessBuilder("cobc", "-x", "-o", "ATMSystem.exe", "ATMSystem.cob");

            Process process = pb.start();

            BufferedReader reader = new BufferedReader(new InputStreamReader(process.getInputStream()));

            String line;

            StringBuilder output = new StringBuilder();

            while ((line = reader.readLine()) != null) {

                output.append(line).append("\n");

            }

            int exitCode = process.waitFor();

            return output.toString();

        } catch (Exception ex) {

            return "Error: " + ex.getMessage();

        }

    }


    public static void main(String[] args) {

        SwingUtilities.invokeLater(new Runnable() {

            @Override

            public void run() {

                new ATMGUI().setVisible(true);

            }

        });

    }

}

```


このプログラムは、Java Swingを使用して簡単なATMシステムのGUIを作成し、COBOLプログラムを呼び出して基本的なATM操作を実装しています。ユーザーはこのインターフェースを通じて、残高照会、入金、出金、振込を行うことができます。

コメント

コメントを投稿

このブログの人気の投稿

ミライアイ内服薬は薬事法違反で、ほとんど効果がない詐欺ですか？

 オーキ製薬株式会社 https://sb-miraiai1008.discover-news.tokyo/ab/miraiai_sn_08?cr_param=me_sn_43&utm_creative=me_sn_43_43_726-30&snuuid=1b94463e307a11efa51b3a736e1c6c62cb501493-0&sb_article_uid=yRMFwEGnVyXQgEyww&sb_tu_id=db9d6f89-7b31-4b6c-990a-d7e936e09215 のミライアイ内服薬は薬事法違反で、ほとんど効果がない詐欺ですか？ ご提示いただいた「オーキ製薬株式会社」の「ミライアイ内用薬」について、ご質問の「薬機法（旧薬事法）違反」や「詐欺・効果の有無」という点について、調査した事実に基づき客観的に解説します。 結論から申し上げますと、製品自体は厚生労働省に認められた「医薬品」であり、詐欺商品ではありません。 ただし、広告の出し方や販売手法については、消費者が「騙された」と感じるようなトラブルが発生しやすい構造になっているようです。 1. 製品自体は「第3類医薬品」 「ミライアイ内用薬」は、独立行政法人医薬品医療機器総合機構（PMDA）のデータベースにも登録されている**「第3類医薬品」**です。  * 有効成分: フルスルチアミン塩酸塩（ビタミンB1誘導体）、ピリドキシン塩酸塩（ビタミンB6）、シアノコバラミン（ビタミンB12）など。  * 効能・効果: 眼精疲労、筋肉痛・関節痛（肩こり、腰痛など）、手足のしびれの緩和。    これらはアリナミンなどの有名なビタミン剤と同様の成分構成であり、科学的に一定の効能が認められたものです。したがって、「全く効果がない詐欺」というわけではありません。 2. 「薬機法違反」の懸念について ご提示いただいたURLのような、いわゆる「記事LP（ブログ記事のような形式の広告）」では、以下のような点が問題視されやすく、薬機法や景品表示法に抵触する恐れがある表現が使われることがあります。  * 過大な誇張: 「飲むだけで視力が回復する」「老眼が治る」といった表現は、医薬品であっても認められていません。もし広告内で「治る...
続きを読む

最高裁での上告理由書受理・却下の判断基準について

 最高裁判所における上告理由書の受理・却下に関する判断基準については、以下のような判例が参考となります。主に**民事訴訟法第312条**（旧法では第318条）の「上告受理の申立て」や**刑事訴訟法第405条**・**第406条**の上告理由に基づく判断が問題となります。 --- ### **1. 民事事件における判例** #### **(1) 上告受理の基準（民事訴訟法第312条）** 最高裁は「**法令の解釈に関する重要な事項を含むもの**」または「**その他の最高裁として判断を示す必要がある事案**」に限り受理を認めています。 - **最判昭和42年11月8日（民集21巻9号2439頁）**     「上告受理の申立ては、原判決に憲法解釈の誤りや法令解釈上の重要な誤認がある場合に限られる」とし、単なる事実誤認では受理されないことを明示。 - **最判平成15年7月10日（民集57巻7号973頁）**     上告受理の要件として、「**判例の変更が必要な場合**」や「**法令の統一解釈が求められる場合**」を挙げ、個別事案の事実誤認は却下対象と判断。 #### **(2) 却下事由の例** - **最判平成20年3月10日（民集62巻3号665頁）**     上告理由書が「単なる事実認定の誤り」を主張するに留まる場合、受理要件を欠くとして却下。 --- ### **2. 刑事事件における判例** #### **(1) 法令違反・判例違反（刑事訴訟法第405条）** - **最判昭和23年7月29日（刑集2巻9号1013頁）**     憲法違反や最高裁判例と相反する判断が下された場合、上告理由として受理。 - **最判平成27年10月19日（刑集69巻6号610頁）**     原判決が「**明らかな事実誤認**」であっても、法令解釈の問題に直結しない限り却下。 #### **(2) 量刑不当（刑事訴訟法第406条）** - **最判昭和58年4月26日（刑集37巻3号315頁）**     量刑が「**社会通念上著しく不当**」と認められる場合に限り受理。単なる量刑の軽重は...
続きを読む

裁判官の忌避申立書の作成例

 裁判官の忌避申立書は、特定の裁判官が公正な裁判を行うことが期待できない事情がある場合に、その裁判官を事件から排除するよう求めるための書類です。以下にその例を示します。 忌避申立書 令和6年6月18日 東京地方裁判所 御中 申立人 〇〇 〇〇 上記事件の申立人は、下記のとおり、貴庁係属の頭書事件の担当裁判官である〇〇 〇〇殿に対し忌避を申し立てます。 1. 事件の表示  * 事件番号：令和〇年（ワ）第〇〇〇号  * 事件名：損害賠償請求事件  * 当事者：    * 原告：〇〇 〇〇    * 被告：株式会社〇〇 2. 忌避の対象となる裁判官 東京地方裁判所 裁判官 〇〇 〇〇 3. 忌避の理由  * 〇〇裁判官は、本件と関連する過去の事件（令和〇年（ワ）第〇〇〇号 土地明渡請求事件）において、申立人の主張を一方的に退け、申立人に対する不当な判断を下しました。    * 具体的には、当該事件において、申立人が提出した重要な証拠である〇〇（証拠番号：甲第〇号証）について、〇〇裁判官は「本件との関連性が低い」と一蹴し、審理において十分に検討することなく、申立人に不利な判決を下しました。この判断は、事実関係を十分に踏まえておらず、申立人に対し不当な扱いをしたと言わざるを得ません。  * 〇〇裁判官は、本件の口頭弁論期日（令和6年5月20日）において、申立人の代理人弁護士に対し、威圧的な態度で発言を遮り、申立人の主張を聞き入れようとしない姿勢が見られました。    * 申立人の代理人弁護士が、本件における主要な争点である〇〇の点について説明しようとした際、〇〇裁判官は「もう結構です。同じ話の繰り返しはやめてください」と強い口調で発言を制し、その後も申立人側の意見陳述に対して、明らかに不満そうな態度を示しました。このような態度は、裁判官が公平・中立な立場から当事者の主張を傾聴すべきという原則に反するものです。  * 上記の事情から、〇〇裁判官は本件において、申立人に対して予断を抱いているか、または偏見を有している可能性があり、公正な裁判を受ける権利が侵害されるおそれがあります。    * これらの言動から、申立...
続きを読む