Rational Developer for System z
COBOL for Windows バージョン 7.5 言語解説書


図の説明: UNSTRING ステートメント

この図は、UNSTRING ステートメントの処理を示しています。この説明では、以下のステートメントを使用します。

UNSTRING send-id DELIMITED BY delimiter-id OR ALL “*”
INTO receiver-id1 DELIMITER IN delim-1 COUNT IN cnt1
     receiver-id2 DELIMITER IN delim-2
     reciever-id3 DELIMITER IN delim-3 COUNT IN cnt3
WITH POINTER pointer-1
TALLYING IN tally-field-1
ON OVERFLOW GO TO overflow-exit.
END-UNSTRING

初期データ値は以下のとおりです。

それぞれの受信区切り文字フィールドの長さは 1 文字です。

send-id 内のデータは左から右へ検査されます。処理ステップは以下のとおりです。

  1. receiver-id1 の場合:
  2. receiver-id2 の場合:
  3. receiver-id3 の場合:
  4. receiver-id4 の場合:
  5. tally-field-1 が 5 (転送されたフィールド数 + 1) に設定されます。
  6. pointer-1 が 21 (送信フィールドの長さ + 1) に設定されます。

send-id 内のすべての文字が検査されたため、overflow-exit には分岐しません。

図の説明の終わり。


ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)