UNSTRING DELIMITED BY IDENTIFIER

UNSTRING DELIMITED BY IDENTIFIER

The following COBOL program depicts the use of

IDENTIFICATION DIVISION.

PROGRAM-ID. PGM045.

AUTHOR. MAINFRAMEWIZARD.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-DATE PIC X(10) VALUE '2011-01-15'.

01 WS-DATE-FORMATTED.

05 WS-YYYY PIC 9999 VALUE ZEROES.

05 WS-MM PIC 99 VALUE ZEROES.

05 WS-DD PIC 99 VALUE ZEROES.

01 WS-DELIM PIC X VALUE '-'.

PROCEDURE DIVISION.

10000-MAIN-PARA.

UNSTRING WS-DATE DELIMITED BY ALL WS-DELIM

INTO WS-YYYY WS-MM WS-DD

DISPLAY 'RESULT OF UNSTRING COMMAND :-' WS-DATE-FORMATTED.

10000-EXIT.

EXIT.

STOP RUN.

The output of the program is

RESULT OF UNSTRING COMMAND :-20110115