名前
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に設定します。