Symfoware(R) Server RDBユーザーズガイド 応用プログラム開発編 - FUJITSU -
目次 索引 前ページ次ページ

上へ第2章 データベースを処理する応用プログラムの開発の概要
上へ2.2 SQL埋込みCOBOLプログラムの作成方法

2.2.11 クラス定義を使用する場合の注意事項

COBOLソース単位がクラス定義(オブジェクト指向プログラミング機)の場合、応用プログラム作成時の注意事項を以下に示します。

以下に、クラス定義(オブジェクト指向プログラミング機能)を使用する場合のプログラミング例を示します。

IDENTIFICATION DIVISION.
CLASS-ID. CLASS-NAME.
IDENTIFICATION DIVISION.
FACTORY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA1 PIC X(5).
PROCEDURE DIVISION.
        :
IDENTIFICATION DIVISION.
METHOD-ID. METHOD-NAME1
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA2 PIC X(5).
PROCEDURE DIVISION.
    MOVE "AAAAA" TO DATA1
    MOVE "11111" TO DATA2

        :
IDENTIFICATION DIVISION.
OBJECT.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQLSTATE PIC X(5).
01 SQLMSG   PIC X(255).
01 HVAR1    PIC S9(4) BINARY.
EXEC SQL END   DECLARE SECTION END-EXEC.
01 DATA3 PIC X(5).
PROCEDURE DIVISION.
        :
IDENTIFICATION DIVISION.
METHOD-ID. METHOD-NAME1
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA3 PIC X(5).
PROCEDURE DIVISION.
EXEC SQL INSERT INTO S.T VALUES(1,2,3,4,5) END-EXEC.
        :
IDENTIFICATION DIVISION.
METHOD-ID. METHOD-NAME2
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA3 PIC X(5).
PROCEDURE DIVISION.
EXEC SQL SELECT C2 INTO :HVAR1 FROM S.T WHERE C1 = 1 END-EXEC.
        :

目次 索引 前ページ次ページ

All Rights Reserved, Copyright (C) 富士通株式会社 2003-2004