Can PLEASE someone help me

On MVE we used to use the MSG command.

I think the command to use in universe is !MESSAGE.

I created the following program in universe and ran it as a supper
user.

Can you PLEASE tell me why I am getting the following message uniVerse
error 1757: is not logged on and how do I make it work

Bellow is a listing of the program, voc and output


CT UTE.BP SPM

SPM
0001 $INCLUDE UNIVERSE.INCLUDE INFO_KEYS.INS.IBAS
0002 CALL !GET.USERS(UV.USERS, MAX.USERS, SYS.USERS, USER.INFO,
CODE)
0003 PRINT 'UV.USERS ':UV.USERS
0004 PRINT 'MAX.USERS ':MAX.USERS
0005 PRINT 'SYS.USERS ':SYS.USERS
0006 CONVERT @VM TO '|' IN USER.INFO
0007 *
0008 FOR FM.NBR = 1 TO DCOUNT(USER.INFO, @FM)
0009 PRINT 'USER.INFO<':FM.NBR:'> ':USER.INFO<FM.NBR>
0010 NEXT FM.NBR
0011 *
0012 PRINT 'CODE ':CODE
0013 PROMPT ''
0014 PRINT '@USER.NO ':@USER.NO
0015 PRINT '@LOGNAME ':@LOGNAME
0016 PRINT '@TTY ':@TTY
0017 PRINT 'User Name ':
0018 INPUT USERNAME
0019 PRINT 'User Number ':
0020 INPUT USERNUMBER
0021 *
0022 CALL !MESSAGE(IK$MSGSTATUS, USERNAME, USERNUMBER, 'TEST
ONLY',
0023 TST.STATUS)
0024 *
0025 IF TST.STATUS # 0 THEN
0026 CALL !REPORT.ERROR ('MY.COMMAND', '!MESSAGE', TST.STATUS)
0027 END
0028 *
0029 CALL !MESSAGE(IK$MSGACCEPT, USERNAME, USERNUMBER, 'TEST
ONLY',
0030 TST.STATUS)
0031 *
0032 IF TST.STATUS # 0 THEN
0033 CALL !REPORT.ERROR ('MY.COMMAND', '!MESSAGE', TST.STATUS)
0034 END
0035 *
0036 CALL !MESSAGE(IK$MSGSENDNOW, USERNAME, USERNUMBER, 'TEST
ONLY',
0037 TST.STATUS)
0038 *
0039 IF TST.STATUS # 0 THEN
0040 CALL !REPORT.ERROR ('MY.COMMAND', '!MESSAGE', TST.STATUS)
0041 END
0042 *
0043 STOP

CT VOC SPM

SPM
0001 V
0002 UTE.BP.O/SPM
0003 B
0004 BNP
0005
0006 PICK.FORMAT
0007 SýNýPýIýAýEýH
0008 NO.WARNýNOPAGEýLPTRýKEEP.COMMONýýTRAPýHDR-SUPP
0009 UTE.BP.O


SPM
UV.USERS 16
MAX.USERS 91
SYS.USERS 0
USER.INFO<1> 11|edwardl|602478|Terminal
USER.INFO<2> 14|stewarts|565638|Terminal
USER.INFO<3> 15|julid|545248|Terminal
USER.INFO<4> 16|samim|758226|Terminal
USER.INFO<5> 17|edwardl|295302|Terminal
USER.INFO<6> 21|patrickt|741600|Terminal
USER.INFO<7> 22|root|385172|Terminal
USER.INFO<8> 23|andrewc|532814|Terminal
USER.INFO<9> 27|root|278992|Terminal
USER.INFO<10> 29|julid|471492|Terminal
USER.INFO<11> 32|jackg|557512|Terminal
USER.INFO<12> 39|root|237636|Terminal
USER.INFO<13> 40|jackg|540680|Terminal
USER.INFO<14> -422030|root|422030|Phantom
USER.INFO<15> -745706|jackg|745706|Phantom
USER.INFO<16> -90152|root|90152|Phantom
USER.INFO<17> -770546|jackg|770546|Phantom
USER.INFO<18> -278644|root|278644|Phantom
USER.INFO<19> -569418|jackg|569418|Phantom
USER.INFO<20> -467348|root|467348|Phantom
USER.INFO<21> -762232|jackg|762232|Phantom
USER.INFO<22> -303282|root|303282|Phantom
USER.INFO<23> -135578|root|135578|Phantom
USER.INFO<24> -299350|root|299350|Phantom
USER.INFO<25> -266546|root|266546|Phantom
USER.INFO<26> -364832|root|364832|Phantom
USER.INFO<27> -233476|root|233476|Phantom
USER.INFO<28> -262420|jackg|262420|Phantom
USER.INFO<29> -589872|jackg|589872|Phantom
CODE 0
@USER.NO 27
@LOGNAME root
@TTY /dev/pts/5
User Name samim
User Number 16
User TTY State
Error: Calling "!MESSAGE" from "MY.COMMAND". uniVerse error 1757: is
not logged on

Regards
Sami
Mobile: +61 414 408 229