STRING DELIMITED BY IDENTIFIER

STRING DELIMITED BY IDENTIFIER

The following COBOL program depicts the use of

IDENTIFICATION DIVISION.

PROGRAM-ID. PGM039.

AUTHOR. MAINFRAMEWIZARD.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-TITLE PIC X(3) VALUE SPACES.

01 WS-FIRST-NAME PIC X(20) VALUE SPACES.

01 WS-LAST-NAME PIC X(20) VALUE SPACES.

01 WS-FULL-NAME PIC X(43) VALUE SPACES.

01 WS-DELIM PIC X(1) VALUE '#'.

PROCEDURE DIVISION.

10000-MAIN-PARA.

MOVE 'MR#' TO WS-TITLE

MOVE 'MAINFRAME#WIZARD#' TO WS-FIRST-NAME

MOVE 'COM#' TO WS-LAST-NAME

STRING WS-TITLE DELIMITED BY WS-DELIM

WS-FIRST-NAME DELIMITED BY WS-DELIM

WS-LAST-NAME DELIMITED BY WS-DELIM

INTO WS-FULL-NAME

DISPLAY 'RESULTANT STRING IS = '

WS-FULL-NAME

STOP RUN.

The output of the program is

RESULTANT STRING IS = MRMAINFRAMECOM