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.

Función de mapeo de usuario para decodificar un campo en Base64

La siguiente función definida por usuario o User-Defined Function (UDF) decodifica el contenido de un campo en base64.



En este caso he utilizado la librería "sun.misc.BASE64Decoder" de la que es propietaria SUN. Podría valer cualquier otra, pero es la que utilizaban en el código de referencia que utilicé para este ejemplo: https://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/9793

De manera análoga se puede codificar un campo en Base64 utilizando la librería correspondiente.