WikASi - Un peu de tout sur le i

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')  

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