Question

Extracting Only Numbers from String in AS400

AS/400 Records, AS/400 Record Reorganization

I have thousands of address records in AS400 and need to extract only the numbers from the records.

Example:
5770 South 900 West #2
and I want it to look like
57709002

Is there any way to do this in AS400? Thank you.

Yes an RPG/COBOL/JAVA program could do it

- the RPG routine might look something like this.

NumFld = blanks

For X = 1 to 80 <-- length of address field
StringChar = %subst(AddFld : X : 1);
if StringChar >= '0' and StringChar <= '9'
Eval NumFld = %Trim(NumFld) + StringChar
endif
EndFor