Tint Utils :: TDES2TINTL (TDESC & ADESC)
{
Tint Rstint;
Tlex LexRec (adsc);
LexRec.val (Rstint)! = Kerrnone)
User :: Leave (0);
Return Rstint;
}