REPORT yextract_number.
DATA number(10) VALUE '0123456789'.
DATA string_val TYPE char100.
WRITE :/ 'First Option ========================'.
string_val = ' SHIPMENT 335'.
WRITE :/ 'Before', string_val.
REPLACE ALL OCCURENCES OF REGEX '[^\d]' IN string_val WITH space.
CONDENSE string_val NO-GAPS.
WRITE :/ 'After', string_val.
WRITE :/ 'First Option ========================'.
WRITE :/ '##########################################'.
DATA : lv_string TYPE string.
DATA : lv_num TYPE string.
lv_string = 'A1313.33BBC'.
lv_num = lv_string.
WRITE :/ 'Second Option ========================'.
WRITE :/ 'Before', lv_string.
REPLACE ALL OCCURRENCES OF REGEX '([[:alpha:]])' IN lv_num WITH ''.
WRITE :/ 'After', lv_num.
WRITE :/ 'Second Option ========================'.
