[52496] in SAPr3-news
ABAP Toolprogramme / ASC Funktion und CHR$ Funktion unter unicode
daemon@ATHENA.MIT.EDU (volker Korrmann)
Mon Nov 29 13:48:17 2004
To: sapr3-news@mit.edu
Date: 29 Nov 2004 10:48:12 -0800
From: volker_korrmann@web.de (volker Korrmann)
Message-ID: <cdd58c09.0411291048.72f834d5@posting.google.com>
Hallo Leute,
in den "neuen" unicodesystemen ist das mit dem TYPE X ein wenig
komplizierter geworden. Anbei mal ein kleines Programm zur Umsetzung
der ASC() und CHR$() Funktion in ABAP.
REPORT ZZZDUMMY2 .
DATA: text(100).
DATA: t2(2).
DATA c1 type c.
DATA: i type i.
perform chr using 6
changing c1.
perform asc using c1
changing i.
write: / c1, i.
skip.
concatenate 'DAS IST EIN TEST -->' c1 c1 c1 '<---' into text.
write: / text.
t2 = c1.
t2+1 = 'X'.
translate text using t2.
write: / text.
*&--------------------------------------------------------------------*
form asc using Zeichen type c
changing value type i.
FIELD-SYMBOLS: <asc> type x.
assign zeichen to <asc> casting.
value = <asc>.
endform. "
*
form chr using Wert type i
changing Zeichen type c.
data: l_cr(1) type x value 4.
FIELD-SYMBOLS: <cr> type x.
ASSIGN Zeichen TO <cr> CASTING.
l_cr = wert.
<cr> = l_cr.
endform. "chr
