STRING DELIMITED WITH POINTER

STRING DELIMITED WITH POINTER The following COBOL program depicts the use of  STRING DELIMITED WITH POINTER        01 WS-STRING1    PIC X(18) VALUE SPACES.        01 WS-STRING2    PIC X(18) VALUE SPACES.        01 START-POS     PIC 9(3)  VALUE ZEROS.       ** USING STRING DELIMTED BY THE MOVE HAPPENS FROM BEGINNING       **** THE FOLLOWING COMMAND WILL MOVE GRACE IN WS-STRING1              STRING ‘GRACE’ DELIMITED BY SIZE       **** BUT FOLLOWING COMMAND WILL OVERLAY GRACE WITH HOPPER              STRING ‘HOPPER’ DELIMITED BY SIZE              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       **** AND FOLLOWING COMMAND WILL MOVE HOPPER AT 7th POS  i.e.              STRING ‘HOPPER’ DELIMITED BY SIZE                     INTO  WS-STRING2 WITH POINTER START-POS              DISPLAY ‘RESULT OF STRING WITH POINTER:-‘ WS-STRING2 The output of the program is  RESULT OF NORMAL STRING CMD:-HOPPER                                                                                       RESULT OF STRING WITH POINTER:-GRACE HOPPER