Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


例: ODBC 呼び出しにおける引数としてのポインターの受け渡し

次のサンプル・プログラム部分は、SQLAllocHandle 関数の呼び出し方法を示しています。

. . .
WORKING-STORAGE SECTION.
    COPY ODBC3.
    . . .
01  SQL-RC     COMP-5    PIC S9(4).
01  Henv       POINTER.
. . .
PROCEDURE DIVISION.
. . .
    CALL “SQLAllocHandle”
        USING
        By VALUE     sql=handle-env
                     sql-null-handle
        By REFERENCE Henv
        RETURNING      SQL-RC
    IF SQL-RC NOT = (SQL-SUCCESS or SQL-SUCCESS-WITH-INFO)
        THEN
            DISPLAY “SQLAllocHandle failed.”
            . . .
        ELSE
        . . .

SQLConnect 関数の呼び出し例を次に示します。

例 1

. . .
CALL “SQLConnect” USING BY VALUE   ConnectionHandle
                        BY REFERENCE ServerName
                        BY VALUE     SQL-NTS
                        BY REFERENCE UserIdentifier
                        BY VALUE     SQL-NTS
                        BY REFERENCE AuthentificationString
                        BY VALUE     SQL-NTS
                    RETURNING        SQL-RC
. . .
例 2

. . .
SET Ptr-to-ServerName             TO ADDRESS OF ServerName
SET Ptr-to-UserIdentifier         TO ADDRESS OF UserIdentifier
SET Ptr-to-AuthentificationString TO ADDRESS OF AuthentificationString
CALL “SQLConnect” USING BY VALUE     ConnectionHandle
                                       Ptr-to-ServerName
                                       SQL-NTS
                                       Ptr-to-UserIdentifier
                                       SQL-NTS
                                       Ptr-to-AuthentificationString
                                       SQL-NTS
                    RETURNING          SQL-RC
. . .
例 3

. . .
CALL “SQLConnect” USING BY VALUE   ConnectionHandle
                                     ADDRESS OF ServerName
                                     SQL-NTS
                                     ADDRESS OF UserIdentifier
                                     SQL-NTS
                                     ADDRESS OF AuthentificationString
                                     SQL-NTS
                    RETURNING        SQL-RC
. . .

例 3 では、ServernameUserIdentifier、および AuthentificationString をレベル 01 項目として LINKAGE SECTION 内で定義する必要があります。

BY REFERENCE または BY VALUE 句は、別の BY REFERENCEBY VALUE、または BY CONTENT 句によってオーバーライドされるまで、すべての引数に適用されます。


ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)