# Fonction PCODE ID = 660004265
REGISTRE ENTIER ic_umtsqosinfo

REGISTRE ENTIER residBER
ic_umtsqosinfo = depilerENTIER()
residBER=i_get_art_fieldtab(g_iartin,ic_umtsqosinfo, 8)>> 4
RETOUR residBER
