# Fonction PCODE ID = 660004265
REGISTRE ENTIER ic_qosinfo
REGISTRE ENTIER val
ic_qosinfo = depilerENTIER()
val=(i_get_art_fieldtab(g_iartin, ic_qosinfo, 1) & 0x38) >> 3
SI ( val == 1 )
ALORS
  val = 2
SINON
  SI ( val == 3 )
  ALORS
    val = 4
  FINSI
FINSI
RETOUR val
