The ud0ba user exit reads a character byte from a serial port.
char = oconv(port.num, ’ud0ba’)
get statement, $chain statement, ue0ba user exit