type anon3115_anon3128_array is array (0 .. 8) of aliased SAP_UC;
type anon3115_anon3131_array is array (0 .. 3) of aliased SAP_UC;
type anon3115_anon3134_array is array (0 .. 12) of aliased SAP_UC;

type SAP_UC_Array is array (Int range <>) of aliased SAP_UC;

field : SAP_UC_Array(0 .. 8);

subtype RFC_CHAR is SAP_UC;
type RFC_DATE is array (0 .. 7) of aliased RFC_CHAR;

type SAP_UC_Array is array (Int range <>) of aliased SAP_UC;

subtype anon3115_anon3128_array is SAP_UC_Array (0 .. 8);
subtype anon3115_anon3131_array is SAP_UC_Array (0 .. 3);
subtype anon3115_anon3134_array is SAP_UC_Array (0 .. 12);

subtype RFC_DATE is SAP_UC_Array (0 .. 7);

function toUnicode( adaString : String) return SAP_UC_Array;

SAP_UC const * toUnicode( char const * s)
{
    UConverter * converter;
    UErrorCode err = U_ZERO_ERROR;
    SAP_UC  * target;
    target = (SAP_UC *) calloc(   strlen(s)+1, sizeof(SAP_UC)  ); // Creating wonderfull Memory Leaks
    converter = ucnv_open( "8859-1", &err );
    int len = ucnv_toUChars(converter, target, strlen(s)+1, s, strlen(s), &err);
    ucnv_close( converter );
    return target;
}

function toUnicode (arg1 : Interfaces.C.Strings.chars_ptr) return access SAP_UC;
   pragma Import (C, toUnicode, "toUnicode");

SAP_UC getChar(SAP_UC * u, int i)
{
        return u[i];
}

function getChar(a : access SAP_UC; i: Int) return sapucx_h.SAP_UC;
    pragma Import (C, getChar, "getChar");

function sU( s : String; b : out SAP_UC_Array ) return SAP_UC_Array is
        a : access SAP_UC;
    begin
        a := toUnicode( New_String(s));
        for i in 0 .. Int'Val(s'length) loop
            b(i) := getChar(a,i);
        end loop;
        return b;
    end;

function  cU( s : String ) return    SAP_UC_Array
is
begin
    declare
        tmp  :  SAP_UC_Array(0 .. s'length);
    begin
        return sU(s,tmp);
    end;
end;