Interstage Application Server リファレンスマニュアル（API編）

5.17.4 CORBA-ANY-EXTRACT_XX

名前

　CORBA-ANY-EXTRACT_XX

形式

REPOSITORY.
    CLASS         CORBA-SYSTEMEXCEPTION
    CLASS         CORBA-ANY
    CLASS         CORBA-OBJECT
    CLASS         CORBA-STRING
    CLASS         CORBA-WSTRING
    CLASS         CORBA-TYPECODE

METHOD-ID.        EXTRACT_SHORT.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-SHORT             TYPE  CORBA-SHORT.
PROCEDURE DIVISION       RETURNING      OUT-SHORT
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_LONG.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-LONG              TYPE  CORBA-LONG.
PROCEDURE DIVISION       RETURNING      OUT-LONG
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_LONG_LONG.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-LLONG             TYPE  CORBA-LONG-LONG.
PROCEDURE DIVISION       RETURNING      OUT-LLONG
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_USHORT.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-USHORT            TYPE  CORBA-UNSIGNED-SHORT.
PROCEDURE DIVISION       RETURNING      OUT-USHORT
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_ULONG.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-ULONG             TYPE  CORBA-UNSIGNED-LONG.
PROCEDURE DIVISION       RETURNING      OUT-ULONG
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_FLOAT.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-FLOAT             TYPE  CORBA-FLOAT.
PROCEDURE DIVISION       RETURNING      OUT-FLOAT
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_DOUBLE.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-DOUBLE            TYPE  CORBA-DOUBLE.
PROCEDURE DIVISION       RETURNING      OUT-DOUBLE
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_BOOLEAN.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-BOOLEAN           TYPE  CORBA-BOOLEAN.
PROCEDURE DIVISION       RETURNING      OUT-BOOLEAN
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_CHAR.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-CHAR              TYPE  CORBA-CHAR.
PROCEDURE DIVISION       RETURNING      OUT-CHAR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_WCHAR.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-WCHAR             TYPE  CORBA-WCHAR.
PROCEDURE DIVISION       RETURNING      OUT-WCHAR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_OCTET.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-OCTET             TYPE  CORBA-OCTET.
PROCEDURE DIVISION       RETURNING      OUT-OCTET
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_ANY.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-ANY               USAGE OBJECT REFERENCE  CORBA-ANY.
PROCEDURE DIVISION       RETURNING      OUT-ANY
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_OBJECT.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-OBJ               USAGE OBJECT REFERENCE  CORBA-OBJECT.
PROCEDURE DIVISION       RETURNING      OUT-OBJ
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_STRING.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-STR               USAGE OBJECT REFERENCE  CORBA-STRING.
PROCEDURE DIVISION       RETURNING      OUT-STR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_WSTRING.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-WSTR              USAGE OBJECT REFERENCE  CORBA-WSTRING.
PROCEDURE DIVISION       RETURNING      OUT-WSTR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        EXTRACT_TYPECODE.
DATA DIVISION.
LINKAGE SECTION.
01 OUT-TYPE              USAGE OBJECT REFERENCE  CORBA-TYPECODE.
PROCEDURE DIVISION       RETURNING      OUT-TYPE
                         RAISING        CORBA-SYSTEMEXCEPTION

機能説明

　Any型オブジェクトから格納されている値を取り出します。

復帰値

　正常終了した場合は、Any型オブジェクトから取り出した値（またはオブジェクト）が返されます。
　異常終了した場合は、CORBA-SYSTEMEXCEPTION例外が発生します。

　システム例外発生時に設定された例外情報およびマイナーコードの意味については、“メッセージ集”の“CORBAサービスから通知される例外情報/マイナーコード”を参照してください。