The following examples illustrate some uses of the INSPECT statement. In
all instances, the programmer has initialized the COUNTR field to zero before
the INSPECT statement is executed.
INSPECT ID-1
REPLACING CHARACTERS BY ZERO.
| ID-1 Before |
COUNTR After |
ID-1 After |
| 1234567 |
0 |
0000000 |
| HIJKLMN |
0 |
0000000 |
INSPECT ID-1
TALLYING COUNTR FOR CHARACTERS
REPLACING CHARACTERS BY SPACES.
| ID-1 Before |
COUNTR After |
ID-1 After |
| 1234567 |
7 |
|
| HIJKLMN |
7 |
|
INSPECT ID-1
REPLACING CHARACTERS BY ZEROS
BEFORE INITIAL QUOTE.
| ID-1 Before |
COUNTR After |
ID-1 After |
| 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 Before |
COUNTR After |
ID-1 After |
| 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 Before |
COUNTR After |
ID-1 After |
| 00ACADEMY00 |
2 |
00AC2DEMY00 |
| 0000ALABAMA |
4 |
0000ALABAMA |
| CHATAM0000 |
0 |
CH2THAM0000 |
INSPECT ID-1
CONVERTING "ABCD" TO "XYZX"
AFTER QUOTE
BEFORE "#".
| ID-1 Before |
ID-1 After |
| AC"AEBDFBCD#AB"D |
AC"XEYXFYZX#AB"D |