Custom Search
Reply to comment
STRING DELIMITED WITH POINTER
STRING DELIMITED WITH POINTER
The following COBOL program depicts the use of
STRING DELIMITED WITH POINTER
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
Reply
Click the +1 button below to share it with your friends and colleagues
Share this if you liked it!