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