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

4.14.6 TDWSTRINGGET

名前

　TDWSTRINGGET

形式

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

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

機能説明

　CORBA-WSTRING-GETに相当します。
IN-WSTRINGで指定された\0\0で終了する文字列からWSTR-LENGTHで指定された長さの文字列をOUT-WSTRINGに格納します。格納する際に、IN-WSTRINGの文字列から\0\0を削除します。
　OUT-WSTRINGは、IN-WSTRINGの文字列長より大きい領域を指定する必要があります。IN-WSTRINGの文字列長よりOUT-WSTRINGの領域長の方が長い場合には、WSTR-LENGTHに指定された長さまで、余った領域には空白が設定されます。
　WSTR-LENGTHの長さは、OUT-WSTRINGと同じか小さい必要があります。

復帰値

　正常終了した場合は、IN-WSTRINGの\0\0を含む文字列から、\0\0を取り除いた領域をOUT-WSTRINGに設定します。