# Fonction PCODE ID = 660004265
REGISTRE ENTIER Index
REGISTRE ENTIER champ
REGISTRE ARTOBJ artobj

REGISTRE  POINTEUR        pt_str
REGISTRE  ENTIER    val
REGISTRE  ENTIER    res
REGISTRE  ENTIER    res1
REGISTRE  ENTIER    taille

Index = depilerENTIER()
champ = depilerENTIER()
artobj = depilerARTOBJ()
trace("appel au get_field_char")
pt_str ="12345678912345678999"
pt_str = i_get_art_fieldptr(artobj,champ)
trace2("le pointeur sur RoamingInfo pointe sur %s",pt_str,"")
res = i_strtab(pt_str, Index)
trace1("la valeur en hexa du caract retourne est %x",res)

RETOUR res
