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