ILE COBOL 解説書
次の例は 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
|
[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]