名前
TDSEQUENCEELEMENTGET
形式
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SEQ-P USAGE POINTER.
01 DATA-P USAGE POINTER.
01 COPY ULONG IN CORBA REPLACING CORBA-UNSIGNED-LONG BY ELM-NUM.
PROCEDURE DIVISION.
CALL "TDSEQUENCEELEMENTGET" USING
SEQ-P
ELM-NUMDATA-P.
機能説明
CORBA-SEQUENCE-ELEMENT-GET関数に相当します。SEQ-Pで指定されたシーケンスからELM-NUMで指定された要素番号の内容を取り出します。
復帰値
正常終了した場合は、DATA-Pに依頼されたシーケンスの要素のポインタを返します。ELM-NUMで指定された要素がない場合、DATA-PにNULLポインタを返します。