名前
CORBA-WSTRING-GET
形式
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. COPY CONST IN CORBA. 01 STRING-IN USAGE POINTER. 01 COPY ULONG IN CORBA REPLACING CORBA-UNSIGNED-LONG BY S-LENGTH. 01 STRING-OUT PIC N(n) PROCEDURE DIVISION. CALL "CORBA-WSTRING-GET" USING STRING-IN S-LENGTH STRING-OUT.
機能説明
STRING-INで指定されたヌルポインタで終了する文字列からS-LENGTHで指定された長さの文字列をSTRING-OUTに格納します。STRING-OUTはS-LENGTHで示されるサイズのPIC N(n:文字数)です。
復帰値
正常終了した場合、STRING-OUTに取り出した文字列が格納されます。STRING-INの長さがS-LENGTH以下の場合はヌルポインタまでの文字列を格納し、残りサイズにはスペースパディングします。S-LENGTHはSTRING-OUTのサイズ以下でなければなりません。