Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!haven!decuac!bacchus.pa.dec.com!shlump.nac.dec.com!mountn.dec.com!elwood.enet.dec.com!lane
From: lane@elwood.enet.dec.com
Newsgroups: comp.sys.dec
Subject: Re: Single-character input using QIOW ???
Message-ID: <1990Nov16.140705@elwood.enet.dec.com>
Date: 16 Nov 90 19:06:03 GMT
References: <DRACK.90Nov15134302@diablo.titan.tsd.arlut.utexas.edu>
Sender: news@mountn.dec.com
Reply-To: lane@elwood.enet.dec.com ()
Distribution: comp.sys.dec
Lines: 24

#include iodef
#include stdio
#include ssdef
#include descrip

main()
  {
  char buffer[80],*p1 = &buffer;
  int status_block[2],status,channel,p2 = 1;
  $DESCRIPTOR (terminal,"SYS$COMMAND");

  status = sys$assign (&terminal,&channel,0,0);
  if (status != SS$_NORMAL)
    exit (status);

  printf("\nInput: ");
  status = sys$qiow (1,channel,IO$_READVBLK,&status_block,0,0,p1,p2,0,0,0,0);
  if (status != SS$_NORMAL)
    exit (status);

  buffer[1] = '\0';
  printf ("\nChar is %s\n",p1);
  exit (1);
  }