UNSTRING DELIMITED WITH POINTER OPTION

UNSTRING DELIMITED WITH POINTER OPTION

The following COBOL program depicts the use of

IDENTIFICATION DIVISION.

PROGRAM-ID. PGM046.

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 2010.

05 WS-MM PIC 99 VALUE 12.

05 WS-DD PIC 99 VALUE 31.

01 WS-DELIM PIC X VALUE '-'.

01 WS-POS PIC 9 VALUE 6.

PROCEDURE DIVISION.

10000-MAIN-PARA.

** USING WITH POINTER WE CAN ONLY MOVE THE MONTH AND DATE FIELDS

** THE YEAR WILL REMAIN UNCHANGED

UNSTRING WS-DATE DELIMITED BY '-'

INTO WS-MM WS-DD

WITH POINTER WS-POS

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

10000-EXIT.

EXIT.

STOP RUN.

The output of the program is

RESULT OF UNSTRING COMMAND :-20100115