INSPECT TALLYING REPLACING Statement
INSPECT TALLYING REPLACING Statement
- INSPECT TALLYING REPLACING counts the occurrences of the specific character and replaces them with new characters.
- It is used to count and replace the occurrence of character(s).
- It performs the TALLYING operation first and REPLACING next.
Syntax -
* Tallying and Replacing all characters
INSPECT ws-input-string
TALLYING ws-tally-count
FOR CHARACTERS
REPLACING CHARACTERS
BY ws-replacing-char|replacing-literal
* Tallying and Replacing all characters
* with BEFORE|AFTER|INITIAL
INSPECT ws-input-string
TALLYING ws-tally-count
FOR CHARACTERS
[[BEFORE|AFTER] [INITIAL]
ws-tally-delimeter1|delimeter-literal1]
REPLACING CHARACTERS
BY ws-replacing-char|replacing-literal
[[BEFORE/AFTER] [INITIAL]
ws-replace-delimeter2|delimeter-literal2]
* Tallying and Replacing specific occurrences of characters
INSPECT ws-input-string
TALLYING ws-tally-count
FOR [ALL|LEADING] {ws-tally-chars|tally-literal}
REPLACING [ALL|LEADING|FIRST] ws-replaced-char|replaced-literal
BY ws-replacing-char|replacing-literal
* Tallying and Replacing specific occurrences of characters
* with BEFORE|AFTER|INITIAL
INSPECT ws-input-string
TALLYING ws-tally-count
FOR [ALL|LEADING] {ws-tally-chars|tally-literal}
[[BEFORE|AFTER] [INITIAL]
ws-tally-delimeter1|delimeter-literal1]
REPLACING [ALL|LEADING|FIRST] ws-replaced-char|replaced-literal
BY ws-replacing-char|replacing-literal
[[BEFORE/AFTER] [INITIAL]
ws-replace-delimeter2|delimeter-literal2]
Note! All statements coded in [ ] are optional.
Parameters -
- ws-input-string - Specifies the input string or variable.
- INITIAL - Specifies the first occurrence of a delimeter.
- ws-tally-delimeter1|delimeter-literal1,
ws-replace-delimeter2|delimeter-literal2 - Specifies the delimeter alphanumeric variable or literal.
TALLYING Parameters -
- ws-tally-char|tally-literal - A numeric variable where the count is stored.
- BEFORE ws-tally-delimeter1|delimeter-literal1 - Specifies tallying begins at the leftmost character position and continues till the first occurrence of the delimiter. If no delimiter is found, tallying continues to count until the last character of the string.
- AFTER ws-tally-delimeter1|delimeter-literal1 - Specifies tallying begins at the first character to the right of delimiter and continues until the last character of the string. If no delimiter is found, no counting takes place.
- FOR CHARACTERS -
- Each character is counted when CHARACTERS BY alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded, the counting happens depending on BEFORE or AFTER ws-delimeter.
- ALL -
- Each occurrence of ws-tally-char is counted when ALL alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded along with ALL, the counting happens depending on BEFORE or AFTER ws-delimeter.
- LEADING -
- The leftmost occurrence of ws-replaced-char is counted when LEADING alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded along with LEADING, the counting happens depending on BEFORE or AFTER ws-delimeter.
REPLACING Parameters -
- ws-replaced-char|replaced-literal - Specifies the characters in string to replace.
- ws-replacing-char|replacing-literal - Specifies the characters that replaces ws-replaced-char.
- BEFORE ws-replace-delimeter2|delimeter-literal2 - Specifies replacing begins at the leftmost character position and continues till the first occurrence of the delimiter. If no delimiter is found, replacing continues until the last character of the string.
- AFTER ws-replace-delimeter2|delimeter-literal2 - Specifies replacing begins at the first character to the right of delimiter and continues until the last character of the string. If no delimiter is found, no replacement takes place.
- CHARACTERS BY -
- Each occurrence of character is replaced by a replacing character (includes space) when CHARACTERS BY alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded, the replacement happens depending on BEFORE or AFTER ws-delimeter.
- ALL -
- Each occurrence of ws-replaced-char is replaced by a replacing character (includes space) when ALL alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded along with ALL, the replacement happens depending on BEFORE or AFTER ws-delimeter.
- LEADING -
- Replaces leftmost occurrence of ws-replaced-char is replaced by a replacing character (includes space) when LEADING alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded along with LEADING, the replacement happens depending on BEFORE or AFTER ws-delimeter.
- FIRST -
- Replaces leftmost first occurrence of ws-replaced-char is replaced by a replacing character (includes space) when FIRST alone coded (without BEFORE or AFTER phrases).
- If the BEFORE or AFTER is coded along with FIRST, the replacement happens depending on BEFORE or AFTER ws-delimeter.
Examples -
Scenario1 - Count for all "-" and Replace all "-" with "/".
Input - WS-DATA = "DD-MM-YYYY" Declaration - 05 WS-DATA PIC X(10) VALUE "DD-MM-YYYY". 05 WS-CNT PIC 9(02) VALUE ZEROES. Code- INSPECT WS-DATA TALLYING WS-CNT FOR ALL "-" REPLACING ALL "-" BY "/". Result - WS-CNT = 2 WS-DATA = "DD/MM/YYYY"
Scenario2 - Count for no of characters and Replace them with "&".
Input- WS-DATA = "DD-MM-YYYY" Declaration- 05 WS-DATA PIC X(10) VALUE "DD-MM-YYYY". 05 WS-CNT PIC 9(02) VALUE ZEROES. Code- INSPECT WS-DATA TALLYING WS-CNT FOR CHARACTERS REPLACING CHARACTERS BY "&". Result- WS-CNT = 10 WS-DATA = "&&&&&&&&&&"
In the above case, WS-DATA has 10 characters. So the count result is 10 and replaces all characters with "&". The result is "&&&&&&&&&&".
Scenario3 - Count for no of characters before "Y" and Replace them with "&".
Input- WS-DATA = "DD-MM-YYYY" Declaration- 05 WS-DATA PIC X(10) VALUE "DD-MM-YYYY". 05 WS-CNT PIC 9(02) VALUE ZEROES. Code- INSPECT WS-DATA TALLYING WS-CNT FOR CHARACTERS BEFORE "Y" REPLACING CHARACTERS BY "&". Result- WS-CNT = 6 WS-DATA = "&&&&&&&&&&"
In the above case, WS-DATA has 6 characters before "Y". So the count result is 6 and replaces all characters with "&". The result is "&&&&&&&&&&".
Scenario4 - Count leading "-" before "M" and Replace all "-" with "/" before "M".
Input- WS-DATA = "DD-MM-YYYY" Declaration- 05 WS-DATA PIC X(10) VALUE "DD-MM-YYYY". 05 WS-CNT PIC 9(02) VALUE ZEROES. Code- INSPECT WS-DATA TALLYING WS-CNT FOR LEADING "-" BEFORE "M" REPLACING ALL "-" BY "/". Result- WS-CNT = 0 WS-DATA = "DD/MM/YYYY"
In the above case, WS-DATA has no leading "-" before "M". The count result is 0 and replace all "-" with "/". The result is "DD/MM/YYYY".
Practical Example -
Scenario - Tallying multiple strings and replacing the specific characters.
Code -
----+----1----+----2----+----3----+----4----+----5----+
...
WORKING-STORAGE SECTION.
01 WS-VAR.
05 WS-DATA PIC X(40) VALUE
"COBOL LANGUAGE IS A HIGH LEVEL LANGUAGE".
05 WS-CNT1 PIC 9(02).
05 WS-CNT2 PIC 9(02).
05 WS-CNT3 PIC 9(02).
...
PROCEDURE DIVISION.
DISPLAY "BEFORE REPLACING: " WS-DATA.
INSPECT WS-DATA
TALLYING WS-CNT1 FOR ALL SPACES BEFORE "HIGH"
WS-CNT2 FOR ALL "A" AFTER "IS"
WS-CNT3 FOR LEADING "C"
REPLACING ALL SPACES BY "#" AFTER "LEVEL"
"LANGUAGE" BY "&&&&&&&&" BEFORE "HIGH"
"IS" BY "**".
DISPLAY "WS-CNT1: " WS-CNT1.
DISPLAY "WS-CNT2: " WS-CNT2.
DISPLAY "WS-CNT3: " WS-CNT3.
DISPLAY "AFTER REPLACING: " WS-DATA.
...Output -
BEFORE REPLACING: COBOL LANGUAGE IS A HIGH LEVEL LANGUAGE WS-CNT1: 04 WS-CNT2: 03 WS-CNT3: 01 AFTER REPLACING: COBOL &&&&&&&& ** A HIGH LEVEL#LANGUAGE#