delete the blanks in a field

I am sorry, I typed wrong, I typed 'I' in place of 'IND'. Here is the corrected 
one:

>Is there a simple way to do the following?

>I have to delete the blanks in a field. For example:
>Field A (before)  :  '111 222 333  '
>Field B (after)      :  '111222333    '

I hope this code will do:

'  '               CHEKR     FLDA          LENGTH
                  Z-ADD          1              IND
IND           DOWLE    LENGTH
1               SUBST       FLDA:IND   TESTCH
TESTCH    IFNE           '  '
FLDB         CAT        TESTCH:0    FLDB
                  ENDIF
                  ADD  1         IND
                  ENDDO



Thank you
Amitava Banerjee
Senior Programmer/Analyst
Enterprise System Solutions
Trinity Industries, Inc.
Dallas, TX 75207
Phone : 2145898584
Fax: 2145898100