ILE COBOL 解説書

INSPECT ステートメントの例

次の例は INSPECT ステートメントのいくつかの用法を示したものです。 どの例の場合にも、INSPECT ステートメントの実行前にプログラマーが COUNTR フィールドをゼロに初期設定しています。

INSPECT ID-1
      REPLACING CHARACTERS BY ZERO.

実行前の ID-1 実行後の COUNTR 実行後の ID-1
1234567 0 0000000
HIJKLMN 0 0000000
INSPECT ID-1
TALLYING COUNTR FOR CHARACTERS
REPLACING CHARACTERS BY SPACES.

実行前の ID-1 実行後の COUNTR 実行後の ID-1
1234567 7
HIJKLMN 7
INSPECT ID-1
      REPLACING CHARACTERS BY ZEROS
           BEFORE INITIAL QUOTE.

実行前の ID-1 実行後の COUNTR 実行後の ID-1
456"ABEL 0 000"ABEL
ANDES"12 0 00000"12
"TWAS BR 0 "TWAS BR
INSPECT ID-1
     TALLYING COUNTR FOR CHARACTERS AFTER INITIAL "S"
     REPLACING ALL "A" BY "O".

実行前の ID-1 実行後の COUNTR 実行後の ID-1
ANSELM 3 ONSELM
SACKET 5 SOCKET
PASSED 3 POSSED
INSPECT ID-1
     TALLYING COUNTR FOR LEADING "0"
     REPLACING FIRST "A" BY "2"
          AFTER INITIAL "C".

実行前の ID-1 実行後の COUNTR 実行後の ID-1
00ACADEMY00 2 00AC2DEMY00
0000ALABAMA 4 0000ALABAMA
CHATAM0000 0 CH2THAM0000
INSPECT ID-1
     CONVERTING "ABCD" TO "XYZX"
          AFTER QUOTE
          BEFORE "#".

実行前の ID-1 実行後の ID-1
AC"AEBDFBCD#AB"D AC"XEYXFYZX#AB"D


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]