次の例は 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 |