STRING DELIMITED WITH POINTER

STRING DELIMITED WITH POINTER

The following COBOL program depicts the use of

IDENTIFICATION DIVISION.

PROGRAM-ID. PGM042.

AUTHOR. MAINFRAMEWIZARD.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-STRING1 PIC X(18) VALUE SPACES.

01 WS-STRING2 PIC X(18) VALUE SPACES.

01 START-POS PIC 9(3) VALUE ZEROS.

PROCEDURE DIVISION.

10000-MAIN-PARA.

** USING STRING DELIMTED BY THE MOVE HAPPENS FROM BEGINNING

**** THE FOLLOWING COMMAND WILL MOVE GRACE IN WS-STRING1

STRING 'GRACE' DELIMITED BY SIZE

INTO WS-STRING1

**** BUT FOLLOWING COMMAND WILL OVERLAY GRACE WITH HOPPER

STRING 'HOPPER' DELIMITED BY SIZE

INTO WS-STRING1

DISPLAY 'RESULT OF NORMAL STRING CMD:-' WS-STRING1

** USING STRING DELIMTED BY WITH POINTER OPTION

** THE MOVE HAPPENS FROM THE POSITION SPECIFIED

**** THE FOLLOWING COMMAND WILL MOVE GRACE IN WS-STRING2

STRING 'GRACE' DELIMITED BY SIZE

INTO WS-STRING2

**** AND FOLLOWING COMMAND WILL MOVE HOPPER AT 7th POS i.e.

**** AFTER GRACE

MOVE 07 TO START-POS

STRING 'HOPPER' DELIMITED BY SIZE

INTO WS-STRING2 WITH POINTER START-POS

DISPLAY 'RESULT OF STRING WITH POINTER:-' WS-STRING2

STOP RUN.

The output of the program is

RESULT OF NORMAL STRING CMD:-HOPPER

RESULT OF STRING WITH POINTER:-GRACE HOPPER