Replacing space with NULL value

JACK · Post by **JACK** » Wed Jun 24, 2009 2:40 pm

Hi All,

Please provide the COBOL code to replace spaces will NULL. i.e, if i have the string like 'COMMON BUSINESS' . space in the string to bre removed.
and string in the output shoul be 'COMMONBUSINESS'.

Chanti · Post by **Chanti** » Thu Jun 25, 2009 12:21 pm

Try out using UNSTRING & STRING COBOL Functions.

or you can run through the string and eliminate spaces.

JACK · Post by **JACK** » Thu Jun 25, 2009 12:59 pm

Hi Chanti,

Thanks for your response...
I have tried using UNSTRING.. but i am facing issues with that.
If you have time, can you provide COBOL code for this.

Thanks for help.

dbzTHEdinosauer · Post by **dbzTHEdinosauer** » Thu Jun 25, 2009 1:20 pm

Here is some code to start with.

Code: Select all

05  WS-INPUT-IMAGE         PIC X&#40;40&#41;.
05  WS-INPUT-TABLE
    REDEFINES
    WS-INPUT-IMAGE         OCCURS 40 TIMES
                           INDEXED BY INPUT-IDX
                           PIC X&#40;01&#41;.
    88  WS-INPUT-SPACE     VALUE SPACE.

05  WS-OUTPUT-IMAGE        PIC X&#40;40&#41;.
    88  INIT-OUTPUT-IMAGE  VALUE SPACES.
05  WS-OUTPUT-TABLE
    REDEFINES
    WS-OUTPUT-IMAGE        OCCURS 40 TIMES
                           INDEXED BY OUTPUT-IDX
                           PIC X&#40;01&#41;.
.... 

SET OUTPUT-IDX             TO 1
SET INIT-OUTPUT-IMAGE      TO TRUE

PERFORM VARYING INPUT-IDX
                FROM       1
                BY         1
                UNTIL      INPUT-IDX
                         > 40
    IF WS-INPUT-SPACE&#40;INPUT-IDX&#41;
    THEN
       CONTINUE
    ELSE
       MOVE WS-INPUT-TABLE&#40;INPUT-IDX&#41; 
         TO WS-OUTPUT-TABLE&#40;OUTPUT-IDX&#41;
       SET  OUTPUT-IDX     UP BY 1
    END-IF
END-PERFORM

Chanti · Post by **Chanti** » Thu Jun 25, 2009 4:11 pm

Jack,
You can use the one of the solution(running through the string and eliminating spaces) offered by dick

Or you can try out this

UNSTRING WS-STRING DELIMITED BY SPACES
INTO WS-STRING1 WS-STRING2
END-UNSTRING.

STRING WS-STRING1 DELIMITED BY SPACE
WS-STRING2 DELIMITED BY SPACE
INTO WS-STRING3
END-STRING.

Thanks,
Chanti.

dbzTHEdinosauer · Post by **dbzTHEdinosauer** » Thu Jun 25, 2009 5:30 pm

Chanti,

what will happen if there are more than two (2) words in the input string?

mainframegurukul.com

Replacing space with NULL value

Replacing space with NULL value

FREE TUTORIALS