UNSTRING DELIMITED BY LITERAL

UNSTRING DELIMITED BY LITERAL The following COBOL program depicts the use of  UNSTRING DELIMITED BY LITERAL        01 WS-DATE       PIC X(10) VALUE ‘2011-01-15’.           05 WS-YYYY PIC 9999 VALUE ZEROES.           05 WS-MM   PIC 99   VALUE ZEROES.           05 WS-DD   PIC 99   VALUE ZEROES.              UNSTRING WS-DATE  DELIMITED BY ‘-‘              DISPLAY ‘RESULT OF UNSTRING COMMAND :-‘ WS-DATE-FORMATTED. The output of the program is  RESULT OF UNSTRING COMMAND :-20110115