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