CLUSTERPRO 作業報告書

(1)

Micro Focus Server Express + CLUSTERPRO

－検証報告書－

2003 年 12 月 16 日版

(2)

MOVE CustId TO FS-CustId. MOVE CustName TO FS-CustName. MOVE CustCompany TO FS-CustCompany. MOVE CustEmail TO FS-CustEmail. EVALUATE OPCODE WHEN 1 READ CUST-MASTER INVALID CONTINUE END-READ WHEN 2 WRITE CUST-REC INVALID CONTINUE END-WRITE WHEN 3 REWRITE CUST-REC INVALID CONTINUE END-REWRITE WHEN 4 DELETE CUST-MASTER INVALID CONTINUE END-DELETE END-EVALUATE. CLOSE CUST-MASTER.

DISPLAY "OUT: CustName = ", CustName. MOVE FS-CustId TO CustId. MOVE FS-CustName TO CustName. MOVE FS-CustCompany TO CustCompany. MOVE FS-CustEmail TO CustEmail. EXIT PROGRAM.

(15)

CLUSTERPRO 作業報告書

6. 付録

○ Windows クライアント側 Java プログラム

CustJava.java import java.awt.*; import java.awt.event.*; import com.microfocus.cobol.cop.*; import com.microfocus.cobol.cop.lang.*; import java.io.*; import java.net.*;

public class CustJava extends Frame {

// 画面上のコントロール

MenuBar ApplicationMenu = new MenuBar(); Menu menu1 = new Menu();

Menu menu2 = new Menu();

MenuItem menuItem1 = new MenuItem(); MenuItem menuItem3 = new MenuItem(); MenuItem menuItem4 = new MenuItem(); MenuItem menuItem5 = new MenuItem(); MenuItem menuItem6 = new MenuItem(); Label label1 = new Label();

Label label2 = new Label(); Label label3 = new Label(); Label label4 = new Label(); Label label5 = new Label(); Label label6 = new Label(); TextField tf3 = new TextField(); TextField tf4 = new TextField(); TextField tf5 = new TextField(); TextField tf6 = new TextField(); public static void main(String[] args) {

CustJava frame = new CustJava(); frame.validate(); frame.setVisible(true); } public CustJava() { try { jbInit(); } catch (Exception e) { e.printStackTrace(); } } //Component initialization

private void jbInit() throws Exception { this.setSize(new Dimension(600, 200)); this.setTitle("顧客管理デモ Java 画面"); ApplicationMenu.setHelpMenu(menu2); menu1.setLabel("ファイル"); menuItem1.setLabel("終了"); menu2.setLabel("処理選択"); label1.setFont(new Font("Dialog", 1, 16)); label1.setAlignment(1); label1.setText("顧客マスターメンテナンス"); label2.setAlignment(0); label2.setText(""); label3.setAlignment(0); label3.setText("顧客 No."); label4.setAlignment(0); label4.setText("顧客名");

(16)

CLUSTERPRO 作業報告書

6. 付録

label5.setText("会社名"); label6.setAlignment(0); label6.setText("Email"); menuItem3.setLabel("参照"); menuItem4.setLabel("追加"); menuItem5.setLabel("更新"); menuItem6.setLabel("削除"); menuItem6.addActionListener(new java.awt.event.ActionListener() {

public void actionPerformed(ActionEvent e) { menuItem6_actionPerformed(e); } }); menuItem5.addActionListener(new java.awt.event.ActionListener() {

public void actionPerformed(ActionEvent e) { menuItem1_actionPerformed(e); } }); this.setLayout(new GridLayout(6,2)); ApplicationMenu.add(menu1); ApplicationMenu.add(menu2); this.setMenuBar(ApplicationMenu); menu1.add(menuItem1); this.add(label1, null); this.add(label2, null); this.add(label3, null); this.add(tf3, null); this.add(label4, null); this.add(tf4, null); this.add(label5, null); this.add(tf5, null); this.add(label6, null); this.add(tf6, null); menu2.add(menuItem3); menu2.add(menuItem4); menu2.add(menuItem5); menu2.add(menuItem6);

WindowListener listener = new WindowListener(); addWindowListener(listener);

(17)

CLUSTERPRO 作業報告書

6. 付録

}

public void windowClosing(WindowEvent e) {

System.exit(0); }

}

private int call_cobol(int opcode) {

Pointer ptr;

ClientRequest cop = new ClientRequest(); try { cop.setMachine(InetAddress.getByName("qa-232")); // ホスト名 "qa-232" は、クラスタの仮想IPアドレス 192.168.3.232 // にマップして、hosts に定義しておく。 // 各ノードのホスト名を指定してはならない。 cop.setPort(9200); // ポート番号 9200 は、COBOL Server のデフォルト値 cop.connect(); } catch(Exception e) {

System.err.println("COBOL Server connection error : " + e.getMessage() + "\n"); return 1;

}

ParameterList inParams = new ParameterList(); inParams.add(opcode).add(new Integer(tf3.getText())); inParams.add(new Pointer(tf4.getText(), 30)); inParams.add(new Pointer(tf5.getText(), 30)); inParams.add(new Pointer(tf6.getText(), 30)); ParameterList outParams = new ParameterList(); try

{

cop.cobcall("CustCob", inParams, outParams); }

catch(Exception e) {

System.err.println("COBOL calling error : " + e.getMessage() + "\n"); return 2;

}

Integer custId = (Integer) outParams.getArgument(1); tf3.setText(custId.toString()); ptr = (Pointer) outParams.getArgument(2); tf4.setText(new String(ptr.getBytes())); ptr = (Pointer) outParams.getArgument(3); tf5.setText(new String(ptr.getBytes())); ptr = (Pointer) outParams.getArgument(4); tf6.setText(new String(ptr.getBytes())); return 0; } void menuItem1_actionPerformed(ActionEvent e) { System.exit(1); } void menuItem3_actionPerformed(ActionEvent e) { call_cobol(1); } void menuItem4_actionPerformed(ActionEvent e)

(18)

CLUSTERPRO 作業報告書

6. 付録

call_cobol(2); } void menuItem5_actionPerformed(ActionEvent e) { call_cobol(3); } void menuItem6_actionPerformed(ActionEvent e) { call_cobol(4); } void this_windowClosed(WindowEvent e) { System.exit(0); } }

CLUSTERPRO 作業報告書

Micro Focus Server Express + CLUSTERPRO

－ 検証報告書 －

2003 年 12 月 16 日版

目次

目次

1. 概要...3

2. 対象システム...4

2.1. ハードウェア構成...4

3. CLUSTERPRO の構築...5

3.1. OS のインストール...5

3.2. Turbolinux 8 CLUSTERPRO SE...6

3.2.1. CLUSTERPRO インストール準備...6

3.2.2. CLUSTERPRO のインストール...6

3.2.3. クラスタの設定... 6

4. アプリケーションの設定...8

4.1. Server Express のインストール...8

4.2. Server Express のクラスタ設定...8

4.3. CLUSTERPRO の設定（アプリケーションの起動/停止）...10

5. クラスタ構成の検証...13

5.1. 検証項目...13

5.2. 検証内容...13

6. 付録...14

6.1. 検証用プログラムコード...14

CLUSTERPRO 作業報告書

1. 概要

1.

概要

この文書は、

Server Express 2.2 J の動作環境を Turbolinux 8 CLUSTERPRO SE によるクラスタ上に作成し、クラスタの動作

検証を行った際の手順を記載するものである。

作業場所

作業場所

郵便番号

：

住所

：

御担当者名

：

連絡先

：

作業日

：

作業者

作業者

会社名

：

マイクロフォーカス株式会社

ターボリナックス株式会社

この文章は

Server Express を CLUSTERPRO によりクラスタ化するための設定例を示すことにより、システムインテグレーショ

ン時の留意事項をまとめたものであり、

Server Express や CLUSTERPRO の動作保証をするものではありません。

CLUSTERPRO 作業報告書

2. 対象システム

2. 対象システム

2.1. ハードウェア構成

対象システムのハードウェア構成

項目

項目

内容

内容

メーカー名

DELL

製品名

PowerEdge 1300

プロセッサ

CPU

Pentium III

チップセット

メモリ

256MB

CLUSTERPRO 作業報告書

3. CLUSTERPRO の構築

3. CLUSTERPRO の構築

クラスタの構築手順を記載する。

3.1. OS のインストール

各サーバに次の

OS 製品をインストール。

製品名

－検証報告書－

_DELL

_{PowerEdge 1300}

_256MB

Turbolinux Enterprise Server 8 powered by UnitedLinux　( SP2a 適用 Kernel 2.4.19-304 )

なお、インストール時に、インストールステップで表示される「インストールの設定」画面で、「ソフトウェア」を選択して

Turbolinux Enterprise Server 8 のインストールに関する詳細は、以下の URL 内　インストール手順書を参照。

●評価版ご利用時のご参考資料　「Turbolinux Enterprise Server 8 簡易インストール手順書」

_{192.168.3.0 / 255.255.255.0}

_{10.1.1.0 / 255.255.255.0}

_qa-230

_{- eth0}

_LAN

_{192.168.3.0 / 255.255.255.0}

_{10.1.1.0 / 255.255.255.0}

_qa-231

_{OS インストール後に Service Pack 2 をインストール。}