# Fonction PCODE ID = 860026233
REGISTRE ENTIER longueur
REGISTRE ENTIER ic_champ
REGISTRE ARTOBJ artobj

REGISTRE POINTEUR pt_BUF
REGISTRE ENTIER erreur

pt_BUF="abcdefghijklmnopqrstuvwxyz"


longueur = depilerENTIER()
ic_champ = depilerENTIER()
artobj = depilerARTOBJ()

erreur=i_cree_art("Conversion",g_iartout13)
erreur= i_dup_chp_1val(artobj,g_iartout13,ic_champ,$Conversion::NUM)
erreur = i_get_art_str(g_iartout13, $Conversion::DCB,pt_BUF)
i_get_sub_str(pt_BUF,-longueur,-1,pt_BUF)

RETOUR pt_BUF

