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

4.14.5 TDWSTRINGSET

名前

　TDWSTRINGSET

形式

  ENVIRONMENT DIVISION.
  DATA DIVISION.
    WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
    01 OUT-WSTRING USAGE POINTER.
    01 COPY ULONG IN CORBA REPLACING CORBA-UNSIGNED-LONG BY WSTR-LENGTH.
    01 IN-WSTRING PIC N(10).

  PROCEDURE DIVISION.

  MOVE FUNCTION LENG ( IN-WSTRING ) TO WSTR-LENGTH.
  COMPUTE WSTR-LENGTH = WSTR-LENGTH / 2.
  CALL "TDWSTRINGSET" USING
     OUT-WSTRING
     WSTR-LENGTH
     IN-WSTRING.

機能説明

　CORBA-WSTRING-SETに相当します。IN-STRINGで指定された文字列からWSTR-LENGTHで指定された長さの文字列をOUT-WSTRINGに格納します。格納する際に\0\0を付加します。OUT-WSTRING側の領域は、本API内部で動的に獲得されます。WSTR-LENGTHはIN-WSTRINGのサイズと同じか小さい値である必要があります。
　本APIで取得した領域は、不要になった時点で解放する必要があります。

復帰値

　正常終了した場合は、IN-WSTRINGに設定した文字列の終端に\0\0を付加した文字列をOUT-WSTRINGに設定します。