ILE COBOL Language Reference
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
|
[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.