x

XMLDECOD(inlength, source_string, outlength,  output)

dove:

inlength

Valore intero

Lunghezza del campo contenente la stringa di caratteri di origine, o di un campo che contiene la lunghezza.

source_string

Alfanumerico

Il nome del campo contenente la stringa caratteri di origine o la stringa racchiusa tra virgolette singole (').

outlenght

Valore intero

Lunghezza della stringa di caratteri di emissione o del campo che contiene la lunghezza.

emissione

Valore intero

Campo che contiene il risultato o formato del valore di emissione racchiuso tra virgolette singole.

Inizio pagina

Esempio: Decodifica Caratteri Codificati XML

Il file XMLFUNCS è un file cvs che contiene alcuni caratteri non codificati e alcuni caratteri codificati XML. Il file principale è:

FILE = XMLFUNCS, SUFFIX=COM,$
SEGNAME = SEG01, SEGTYPE=S1,$
FIELD=INSTRING, ALIAS=CHARS, USAGE=A30,ACTUAL=A30,$

I contenuti del file seguono:

CHARS: &  < >  ,$
ENCODED: &amp; &gt;  ,$
ENCODED: &quot; &apos;   ,$
MIXED:  &amp;  < &gt;   ,$

XMLDECOD decofica qualsiasi caratteri codificato XML supportato. Notare che alcuni viewer decodificano automaticamente i valori codificati per la visualizzazione, per consentire la procedura dell'emissione in un formato testo semplice (FORMAT WP):

FILEDEF XMLFUNCS DISK xmlfuncs.csv
DEFINE FILE XMLFUNCS
OUTSTRING/A30=XMLDECOD(30,INSTRING,30,'A30');
END
TABLE FILE XMLFUNCS
PRINT INSTRING OUTSTRING
ON TABLE PCHOLD FORMAT WP
ON TABLE SET PAGE NOPAGE

Nella stringa di emissione, i caratteri codificati XML sono stati decodificati ed i caratteri che non erano codificati sono stati lasciati nella loro posizione nella stringa di immissione:

  INSTRING                        OUTSTRING          
  --------                        ---------                     
  CHARS: &  < >                   CHARS: &  < >                 
  ENCODED: &amp; &gt;             ENCODED: & >                  
  ENCODED: &quot; &apos;          ENCODED: " '                  
  MIXED:  &amp;  < &gt;           MIXED:  &  < >