@ tefigel

|--
|   Convert Sisendel type to Java type, possibly converted to
|   the requested case mode (String, string, etc.)
|--
interface(JPROP,CASEMODE)

ungroup(JPROP,|,ID,TYPE,T_CLASS,E_PATH,CARD,R_MIN,R_MAX,LABEL)

set JTYPE=unknown

case TYPE
   when=string
      set JTYPE=String
   when=int32
      set JTYPE=int
   otherwise
      msg [warning] unknown Java mapping for type "TYPE"
endcase

if CASEMODE=
   retvalue=JTYPE
else
   retvalue=~make_id(JTYPE,CASEMODE)
endif