[comp.os.vms] SYS$BRKTHRU help needed ...

SWANGER@AUDUCVAX.BITNET (07/28/88)

I want to use SYS$BRKTHRU in a Fortran program.  I want to use it to to send
messages to various users who are logged in.  I can't seem to get it to work.
The following sample program is designed to send a message to myself when
executed.  It doesn't work.  Does anyone know what I am doing wrong?  I would
appreciate any help that I could get.

Thanks!

David Swanger
Academic Computing Services
Auburn University, AL  36849
205-826-4813
SWANGER@AUDUCVAX    <--- Bitnet Address


C-------- Sample Program ---------

      istat =  sys$brkthru(,%descr('Hello there!'),%DESCR('SWANGER'),
     *                      ,,,,,,,)
      end

carl@CITHEX.CALTECH.EDU (Carl J Lydick) (08/01/88)

 > I want to use SYS$BRKTHRU in a Fortran program.  I want to  use  it  to  to
 > send  messages  to various users who are logged in.  I can't seem to get it
 > to work.  The following sample program is designed to  send  a  message  to
 > myself  when  executed.  It doesn't work.  Does anyone know what I am doing
 > wrong?  I would appreciate any help that I could get.
 > 
 > C-------- Sample Program ---------
 > 
 >       istat =  sys$brkthru(,%descr('Hello there!'),%DESCR('SWANGER'),
 >      *                      ,,,,,,,)
 >       end

The problem is that you're not telling SYS$BRKTHRU how to interpret the sendto
argument  (%DESCR('SWANGER')).   You  need to use the sndtyp argument as well.
By the way, since FORTRAN passes strings as descriptors by default, you  don't
need  the  calls to %DESCR.  You do need to pass the sndtyp argument by value,
though.  The following program should work for you:

	INCLUDE '($BRKDEF)'
	CALL SYS$BRKTHRU(,'Hello there!','SWANGER',%VAL(BRK$C_USERNAME),,,,,,,)
	END