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

4.13.8 CORBA-STRING-SET

名前

  CORBA-STRING-SET

形式

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

 PROCEDURE DIVISION.
    CALL "CORBA-STRING-SET" USING
         STRING-OUT
         S-LENGTH
         STRING-IN.

機能説明

  STRING-INで指定された文字列からS-LENGTHで指定された長さの文字列を STRING-OUTに格納します。格納する際にヌルポインタを付加します。S-LENGTHは STRING-OUTのサイズよりヌルポインタ分小さい値である必要があります。STRING-OUTはS-LENGTHで示されるサイズのPIC X(n)です。

復帰値

  正常終了した場合、STRING-OUTに設定した文字列が格納されます。