UNSTRING DELIMITED BY LITERAL
UNSTRING DELIMITED BY LITERAL
The following COBOL program depicts the use of
UNSTRING DELIMITED BY LITERAL
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM044.
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.
PROCEDURE DIVISION.
10000-MAIN-PARA.
UNSTRING WS-DATE DELIMITED BY '-'
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