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

4.14.2 TDSTRINGSET

名前

　TDSTRINGSET

形式

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

  PROCEDURE DIVISION.

  MOVE "ABCDEF" TO IN-STRING.
  MOVE FUNCTION LENG ( IN-STRING ) TO STR-LENGTH.
  CALL "TDSTRINGSET" USING
     OUT-STRING
     STR-LENGTH
     IN-STRING.

機能説明

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

復帰値

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