  TCP/IP $qio version of select()? 
 The Question is:
 
What is the $QIO equivalent to select() (socket programming)
 
 The Answer is:
 
  RetStat = sys$qio( ef, iochannel,
    IO$_SETMODE | IO$M_WRTATTN,
    iosb, 0, 0,
    astadr, astparam,
    0, 0, 0, 0);
  if (!$VMS_STATUS_SUCCESS( RetStat ))
    return ReStat;
 
 
 
  RetStat = sys$qio( ef, iochannel,
    IO$_SETMODE | IO$M_READATTN,
    iosb, 0, 0,
    astadr, astparam,
    0, 0, 0, 0);
  if (!$VMS_STATUS_SUCCESS( RetStat ))
    return ReStat;
 
