# Fonction PCODE ID = 660004265
REGISTRE ENTIER ic_qosinfo
REGISTRE ENTIER val
ic_qosinfo = depilerENTIER()
val=i_get_art_fieldtab(g_iartin, ic_qosinfo, 3) & 0x1F
SI ( val == 0x1F )
ALORS
  val = 0
FINSI
RETOUR val
