Itext CreateFont Problem

Dear All

i have the following definition
D ITXTBaseFont...
D S O CLASS(*JAVA
D
:'com.lowagie.text.pdf.BaseFont')
D bf_CP1252...
D C 'Cp1252'

*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
* ITXTCreateBasefont
* Create a new Basefont Object
*
* Returns the new Basefont
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
D ITXTCreateBaseFont...
D PR likt(ITXTBaseFont)
D ExtProc(*JAVA:
D
'com.lowagie.text.pdf.BaseFont':
D 'createFont')
D name like(jstring) const
D encoding like(jstring) const
D embedded n value
D

I call the procedure " ITXTCreateBaseFont" in the following way

d jtesto s like(jstring)
d jtesto2 s like(jstring)
d bf s like(ITXTBaseFont)
d embedded s n
/free
embedded = *Off;
jtesto = new_String(font);
jtesto2 = new_String(bf_CP1252);

ITXTCreateBaseFont(bf:jtesto:jtesto2:embedded);
Itext return the following error

Message . . . . : Java exception received when calling Java
method.
Cause . . . . . : RPG procedure ITXT_ADDTE in program ITTOOL/ITEXT
received
Java exception "java.lang.NoSuchMethodError: createFont" when calling
method
"crea" with signature "" in class
"com.lowagie.text.pdf.BaseFont".

If i try to change the program like this

bf = ITXTCreateBaseFont(jtesto:jtesto2:embedded) i can't compile the
program

Someone can help me

Thanks & Regards
Basilio