Reemplazar caracteres por espacios en blanco

El siguiente código reemplaza los caracteres que concuerden con las expresiones lógicas por un espacio en blanco. Nótese como la definición del espacio en blanco se realiza mediante comillas simples inversas (`), esto es así porque se trata de una expresión de "sustitución".

REPORT zreplace LINE-SIZE 190. CONSTANTS: gc_iso(190) VALUE ' !"#$%&''()*+,-./0123456789:;<=>?' & '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]' & '^_`abcdefghijklmnopqrstuvwxyz{|}~' & '¡¢£€¥Š§š©ª«¬­®¯°±²³Žµ¶·ž¹º»ŒœŸ' & '¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß' & 'àáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ', gc_iso_exp(13) VALUE '[<>''"&;:¨\^]', gc_ln(9) VALUE '[^\l\u\d]', " LetrasNúmeros (LN) gc_lc(11) VALUE '[^/\l\u\d-]', " LetrasNumerosCaracter (LNC) gc_lng(10) VALUE '[^\l\u\d-]'. " LetrasNumerosGuion (LNG) PARAMETERS p_camp TYPE string DEFAULT gc_iso LOWER CASE. START-OF-SELECTION. *--------------------------------------------------------------------* WRITE: / 'ISO-ORIG:', / gc_iso. *--------------------------------------------------------------------* p_camp = gc_iso. PERFORM f_valida_campo USING gc_iso_exp CHANGING p_camp. WRITE: / 'ISO:', / p_camp. *--------------------------------------------------------------------* p_camp = gc_iso. PERFORM f_valida_campo USING gc_ln CHANGING p_camp. WRITE: / 'LN:', / p_camp. *--------------------------------------------------------------------* p_camp = gc_iso. PERFORM f_valida_campo USING gc_lc CHANGING p_camp. WRITE: / 'LC:', / p_camp. *--------------------------------------------------------------------* p_camp = gc_iso. PERFORM f_valida_campo USING gc_lng CHANGING p_camp. WRITE: / 'LNG:', / p_camp. *&---------------------------------------------------------------------* *& Form f_valida_campo *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->VALUE(EXP) text * <--PCH_CAMPO text *----------------------------------------------------------------------* FORM f_valida_campo USING value(exp) CHANGING pch_campo. REPLACE ALL OCCURRENCES OF REGEX exp IN pch_campo WITH ` `. ENDFORM. "f_valida_campo

Significado de las expresiones:

• GC_ISO_EXP: sustituye los caracteres típicos de ficheros XML y de texto por espacios en blanco (< >' " & ; : ¨ ^).
• GC_LN: sustituye los caracteres que NO sean minúsculas (\l) ni mayúsculas (\u) ni numéricos (\d).
• GC_LC: sustituye los caracteres que NO sean minúsculas (\l) ni mayúsculas (\u) ni numéricos (\d) ni el guión (-) ni la barra (/).
• GC_LNG: sustituye los caracteres que NO sean minúsculas (\l) ni mayúsculas (\u) ni numéricos (\d) ni el guión (-) .

La constante GC_ISO contiene los caracteres imprimibles propios del conjunto ISO 8859-1, para las pruebas.