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

REGISTRE  POINTEUR  pt_str
REGISTRE  ENTIER    caract

index = depilerENTIER()
champ = depilerENTIER()
artobj = depilerARTOBJ()
#ASOUI
pt_str="0123456789"

pt_str=i_get_art_fieldptr(artobj,champ)
caract=i_strtab(pt_str,index)
RETOUR caract
