STRING DELIMITED ON OVERFLOW

 

STRING DELIMITED ON OVERFLOW
 
The following COBOL program depicts the use of 
STRING DELIMITED ON OVERFLOW command
 
 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGM043.
       AUTHOR. MAINFRAMEWIZARD.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-STRING1    PIC X(5) VALUE SPACES.
       PROCEDURE DIVISION.
       10000-MAIN-PARA.
 
      ** ON OVERFLOW GIVES US THE OPTION TO SPECIFIY ACTION
      ** WHEN TARGET STRING IS NOT LARGE ENOUGH TO CARRY THE STRING
             STRING 'GRACE HOPPER' DELIMITED BY SIZE
                    INTO  WS-STRING1
                    ON OVERFLOW DISPLAY 'ERROR IN STRING COMMAND'
                       GO TO 10000-EXIT.
             DISPLAY 'RESULT OF NORMAL STRING CMD:-' WS-STRING1.
       10000-EXIT.
             EXIT.
             STOP RUN.
 
 
 
The output of the program is 
 
ERROR IN STRING COMMAND