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

5.17.3 CORBA-ANY-INSERT_XX

名前

　CORBA-ANY-INSERT_XX

形式

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

METHOD-ID.        INSERT_SHORT.
DATA DIVISION.
LINKAGE SECTION.
01 IN-SHORT              TYPE  CORBA-SHORT.
PROCEDURE DIVISION       USING          IN-SHORT
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_LONG.
DATA DIVISION.
LINKAGE SECTION.
01 IN-LONG               TYPE  CORBA-LONG.
PROCEDURE DIVISION       USING          IN-LONG
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_LONG_LONG.
DATA DIVISION.
LINKAGE SECTION.
01 IN-LLONG              TYPE  CORBA-LONG-LONG.
PROCEDURE DIVISION       USING          IN-LLONG
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_USHORT.
DATA DIVISION.
LINKAGE SECTION.
01 IN-USHORT             TYPE  CORBA-UNSIGNED-SHORT.
PROCEDURE DIVISION       USING          IN-USHORT
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_ULONG.
DATA DIVISION.
LINKAGE SECTION.
01 IN-ULONG              TYPE  CORBA-UNSIGNED-LONG.
PROCEDURE DIVISION       USING          IN-ULONG
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_FLOAT.
DATA DIVISION.
LINKAGE SECTION.
01 IN-FLOAT              TYPE  CORBA-FLOAT.
PROCEDURE DIVISION       USING          IN-FLOAT
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_DOUBLE.
DATA DIVISION.
LINKAGE SECTION.
01 IN-DOUBLE             TYPE  CORBA-DOUBLE.
PROCEDURE DIVISION       USING          IN-DOUBLE
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_BOOLEAN.
DATA DIVISION.
LINKAGE SECTION.
01 IN-BOOLEAN            TYPE  CORBA-BOOLEAN.
PROCEDURE DIVISION       USING          IN-BOOLEAN
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_CHAR.
DATA DIVISION.
LINKAGE SECTION.
01 IN-CHAR               TYPE  CORBA-CHAR.
PROCEDURE DIVISION       USING          IN-CHAR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_WCHAR.
DATA DIVISION.
LINKAGE SECTION.
01 IN-WCHAR              TYPE  CORBA-WCHAR.
PROCEDURE DIVISION       USING          IN-WCHAR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_OCTET.
DATA DIVISION.
LINKAGE SECTION.
01 IN-OCTET              TYPE  CORBA-OCTET.
PROCEDURE DIVISION       USING          IN-OCTET
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_ANY.
DATA DIVISION.
LINKAGE SECTION.
01 IN-ANY                USAGE OBJECT REFERENCE  CORBA-ANY.
PROCEDURE DIVISION       USING          IN-ANY
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_OBJECT.
DATA DIVISION.
LINKAGE SECTION.
01 IN-OBJ                USAGE OBJECT REFERENCE  CORBA-OBJECT.
PROCEDURE DIVISION       USING          IN-OBJ
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_STRING.
DATA DIVISION.
LINKAGE SECTION.
01 IN-STR                PIC  X  ANY  LENGTH.
PROCEDURE DIVISION       USING          IN-STR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_WSTRING.
DATA DIVISION.
LINKAGE SECTION.
01 IN-WSTR               PIC  N  ANY  LENGTH.
PROCEDURE DIVISION       USING          IN-WSTR
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_TYPECODE.
DATA DIVISION.
LINKAGE SECTION.
01 IN-TYPE               USAGE OBJECT REFERENCE  CORBA-TYPECODE.
PROCEDURE DIVISION       USING          IN-TYPE
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_STRING_OBJ.
DATA DIVISION.
LINKAGE SECTION.
01 IN-STRO               USAGE OBJECT REFERENCE  CORBA-STRING.
PROCEDURE DIVISION       USING          IN-STRO
                         RAISING        CORBA-SYSTEMEXCEPTION

METHOD-ID.        INSERT_WSTRING_OBJ.
DATA DIVISION.
LINKAGE SECTION.
01 IN-WSTRO              USAGE OBJECT REFERENCE  CORBA-WSTRING.
PROCEDURE DIVISION       USING          IN-WSTRO
                         RAISING        CORBA-SYSTEMEXCEPTION

機能説明

　Any型オブジェクトに指定した値を格納します。パラメタには、格納する値の型を表現するTypeCodeオブジェクトを指定します。

復帰値

　正常終了した場合は、ありません。
　異常終了した場合は、CORBA-SYSTEMEXCEPTION例外が発生します。

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