# Fonction PCODE ID = 660004265
REGISTRE ENTIER ic_qosinfo
REGISTRE ENTIER val
ic_qosinfo = depilerENTIER()
val=i_get_art_fieldtab(g_iartin, ic_qosinfo, 2) & 0x07
RETOUR val
