INSPECT Example
The following example shows an INSPECT statement.
.. 1 ... ... 2 ... ... 3 ... ... 4 ... ... 5 ... ... 6 ... ... 7
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ID-1 PIC X(10) VALUE "ACADEMIANS".
01 CONTR-1 PIC 99 VALUE 00.
01 CONTR-2 PIC 99 VALUE ZEROS.
PROCEDURE DIVISION.
* THIS ILLUSTRATES AN INSPECT STATEMENT WITH 2 VARIABLES.
100-BEGIN-PROCESSING.
DISPLAY CONTR-1 SPACE CONTR-2.
101-MAINLINE-PROCESSING.
PERFORM COUNT-IT THRU COUNT-EXIT.
STOP RUN.
COUNT-IT.
INSPECT ID-1
TALLYING CONTR-1
FOR CHARACTERS BEFORE INITIAL "AD"
CONTR-2
FOR ALL "MIANS".
DISPLAY-COUNTS.
DISPLAY "CONTR-1 = " CONTR-1.
DISPLAY "CONTR-2 = " CONTR-2.
DISPLAY "*********EOJ*********"
COUNT-EXIT.
EXIT.
Resultant Output:
00 00
CONTR-1 = 02
CONTR-2 = 01
*********EOJ*********