Program SNDMSG
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c
c	Dr. Klaus P. Schneider			May 1988
c
c This Routine uses the TSXLIB routine MSGSND to send a Message to
c Channel NAMEN
c
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c

	LOGICAL*1 ICHNAM(6),MSGBUF(15)

C.....  Generate Name for Message channel
	CALL SCOPY ('NAMEN',ICHNAM,5)
	ICHNAM(6)="0


C.....  Generate the message
	CALL SCOPY ('servus Klaus',MSGBUF,12)


C.....  send a message
	MSGSIZ = 12
	CALL MSGSND ( ICHNAM,MSGBUF,MSGSIZ,IERR )


C....  Test Errorflags
	IF ( IERR .EQ. 0 ) then
	 TYPE *,' Job does not have MESSAGE privilege'
	ELSE IF ( IERR .EQ. 1 ) then
	 TYPE *,' all message channels are busy '
	ELSE IF ( IERR .EQ. 2 ) then
	 TYPE *,' max. # of Messages in MSG queue '
	ELSE IF ( IERR .EQ. 3 ) then
	 TYPE *,' ????? '
	ELSE IF ( IERR .EQ. 4 ) then
	 TYPE *,' Message ist to long '
	ELSE IF ( IERR. EQ. 5 ) then
	 TYPE *,' max # of pending MSG requests '
	ENDIF

	Type *,' Use SYSMON to read the message '

	STOP
	END