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

4.12.3 CORBA-XX-ALLOC

名前

　CORBA-XX-ALLOC　−　データ型のメモリ領域の獲得

形式

 ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.
   SPECIAL-NAMES.
     SYMBOLIC CONSTANT
     COPY SYMBOL-CONST IN CORBA.
     .
 DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
     01 RET-POINTER USAGE POINTER.
     01 COPY ULONG IN CORBA REPLACING CORBA-UNSIGNED-LONG BY STR-LEN.

 PROCEDURE DIVISION.
  CALL "CORBA-SHORT-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-LONG-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-UNSIGNED-SHORT-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-UNSIGNED-LONG-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-LONG-LONG-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-FLOAT-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-DOUBLE-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-CHAR-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-WCHAR-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-BOOLEAN-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-OCTECT-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-ENUM-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-ANY-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-STRING-PTR-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-WSTRING-PTR-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-STRING-ALLOC" USING
        STR-LEN
        RET-POINTER.
  CALL "CORBA-WSTRING-ALLOC" USING
        STR-LEN
        RET-POINTER.
  CALL "CORBA-OBJECT-ALLOC" USING
        RET-POINTER.
  CALL "CORBA-TYPECODE-ALLOC" USING
        RET-POINTER.

機能説明

　CORBA-STRING-ALLOC関数、CORBA-WSTRING-ALLOC関数は、引数で指定された文字数の領域を獲得して、そのアドレスを返します。
　CORBA-STRING-PTR-ALLOC関数およびCORBA-WSTRING-PTR-ALLOC関数は、それぞれCORBA-STRINGとCORBA-WSTRINGのポインタの格納領域を獲得し、そのアドレスを返します。
　それ以外のCORBA-XX-ALLOC関数については、各データ型XXのサイズの領域を獲得して、そのアドレスを返します。
　ここで獲得した領域を解放する場合は、CORBA-FREE関数を使用します。