Scribd
Upload
49 views

String: Replacing Syntax

The document discusses four COBOL verbs: INSPECT, REPLACING, STRING, and UNSTRING. INSPECT is used to tally or count characters in a string. REPLACING replaces characters in a string. STRING concatenates multiple strings into one string. UNSTRING splits a string into substrings delimited by a character. Syntax and examples are provided for each verb.

Uploaded by

vrchand
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
49 views

String: Replacing Syntax

The document discusses four COBOL verbs: INSPECT, REPLACING, STRING, and UNSTRING. INSPECT is used to tally or count characters in a string. REPLACING replaces characters in a string. STRING concatenates multiple strings into one string. UNSTRING splits a string into substrings delimited by a character. Syntax and examples are provided for each verb.

Uploaded by

vrchand
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

Following is the syntax of Tallying option:

INSPECT input-string TALLYING output-count FOR ALL CHARACTERS


The parameters used are:
input-string : The string whose characters are to be counted.
output-count : Data item to hold the count of characters.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CNT1 PIC 9(2) VALUE 0.
01 WS-CNT2 PIC 9(2) VALUE 0.
01 WS-STRING PIC X(15) VALUE 'ABCDACDADEAAAFF'.
PROCEDURE DIVISION.
INSPECT WS-STRING TALLYING WS-CNT1 FOR ALL CHARACTERS.
DISPLAY "WS-CNT1 : "WS-CNT1.
INSPECT WS-STRING TALLYING WS-CNT2 FOR ALL 'A'.
DISPLAY "WS-CNT2 : "WS-CNT2
STOP RUN.

Replacing
Replacing option is used to replace the string characters.
Syntax
Following is the syntax of Replacing option:
INSPECT input-string REPLACING ALL char1 BY char2.
The parameter used is:
input-string : The string whose characters are to be replaced from char1 to
char2.
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING PIC X(15) VALUE 'ABCDACDADEAAAFF'.
PROCEDURE DIVISION.
DISPLAY "OLD STRING : "WS-STRING.
INSPECT WS-STRING REPLACING ALL 'A' BY 'X'.
DISPLAY "NEW STRING : "WS-STRING.
STOP RUN.

String

String verb is used to concatenate the strings. Using STRING statement, two or
more strings of characters can be combined to form a longer string. Delimited By
clause is compulsory.
Syntax
Following is the syntax of String verb:
STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY SIZE INTO wsdestination-string WITH POINTER ws-count ON OVERFLOW DISPLAY message1 NOT
ON OVERFLOW DISPLAY message2 END-STRING.
Following are the details of the used parameters:
ws-string1 and ws-string2 : Input strings to be concatenated
ws-string : Output string
ws-count : Used to count the length of new concatenated string
Delimited specifies the end of string
Pointer and Overflow are optional
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING PIC A(30).
01 WS-STR1 PIC A(15) VALUE 'Tutorialspoint'.
01 WS-STR2 PIC A(7) VALUE 'Welcome'.
01 WS-STR3 PIC A(7) VALUE 'To AND'.
01 WS-COUNT PIC 99 VALUE 1.
PROCEDURE DIVISION.
STRING WS-STR2 DELIMITED BY SIZE
WS-STR3 DELIMITED BY SPACE
WS-STR1 DELIMITED BY SIZE
INTO WS-STRING
WITH POINTER WS-COUNT
ON OVERFLOW DISPLAY 'OVERFLOW!'
END-STRING.
DISPLAY 'WS-STRING : 'WS-STRING.
DISPLAY 'WS-COUNT : 'WS-COUNT.
STOP RUN.

Syntax
Following is the syntax of Unstring verb:
UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER wscount ON OVERFLOW DISPLAY message NOT ON OVERFLOW DISPLAY message ENDUNSTRING.
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING PIC A(30) VALUE 'WELCOME TO TUTORIALSPOINT'.

01 WS-STR1 PIC A(7).


01 WS-STR2 PIC A(2).
01 WS-STR3 PIC A(15).
01 WS-COUNT PIC 99 VALUE 1.
PROCEDURE DIVISION.
UNSTRING WS-STRING DELIMITED BY SPACE
INTO WS-STR1, WS-STR2, WS-STR3
END-UNSTRING.
DISPLAY 'WS-STR1 : 'WS-STR1.
DISPLAY 'WS-STR2 : 'WS-STR2.
DISPLAY 'WS-STR3 : 'WS-STR3.
STOP RUN.

You might also like