==== CLLE - DCL ====

Valeur hexadecimale non affichable à l'écran (DSPF)

  Dcl &HEX1      *char (1) VALUE(X'01')  
  Dcl &HEX2      *char (1) VALUE(X'02')  
  Dcl &HEX3      *char (1) VALUE(X'03')  
  Dcl &HEX4      *char (1) VALUE(X'04')  
  Dcl &HEX10     *char (1) VALUE(X'10')  
  Dcl &HEX11     *char (1) VALUE(X'11')  
  Dcl &HEX12     *char (1) VALUE(X'12')  
  Dcl &HEX13     *char (1) VALUE(X'13')  
  Dcl &HEX14     *char (1) VALUE(X'14')  
  Dcl &HEX15     *char (1) VALUE(X'15')  
  Dcl &HEX1D     *char (1) VALUE(X'1D')  


==== Conversion Hexadécimal en caractère ====

Convertir l'hexadécimal non affichable x'01', x'02, x'03'... en blanc (x'40') \\
Soit toute valeur héxadécimale-non affichable dans la zone MSGDTA est remplacée par du blanc.

 /free                                                         
    MSGDTA=%Xlate(x'01020304':x'40404040':MSGDTA) ;            
    MSGDTA=%Xlate(x'1011121314151D':x'40404040404040':MSGDTA) ;
 /end-free