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

4.14.3 TDSTRINGGET

名前

　TDSTRINGGET

形式

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

  PROCEDURE DIVISION.
     MOVE FUNCTION LENG ( IN-STRING ) TO STR-LENGTH.
     CALL "TDSTRINGGET" USING
           IN-STRING
           STR-LENGTH
           OUT-STRING.

機能説明

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

復帰値

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