UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software UniBasic Commands Reference - Rocket Software

rocketsoftware.com
from rocketsoftware.com More from this publisher
11.04.2013 Views

Code Description Examples In the following example, the UniData udtlang.MSG file contains error message 4432 and a user-defined file (S_ERR) contains error message E009. These messages contain the following: 1-581 UniBasic Commands Reference T Enters the time in internal format. W(n) Pauses for n seconds before continuing to display the message. X Skips the next parameter passed to the UniData message printing routine. PRINTERR Error Message Codes (continued) Message 4432 Message E009 in udtlang.MSG in S_ERR L L(2) E FILE H => ERR A(10) S(6) H DOES NOT EXIST E L L H CAN’T PROCEED! A L H IS NOT PROPERLY SPECIFIED D L L T L The following code segment produces an error message if the file you enter for FNAME cannot be found or you enter 12 for VAR1: OPEN "S_ERR" TO E_FILE ELSE STOP "S_ERR NOT FOUND" INPUT FNAME INPUT VAR1 ER1 = "4432":@FM:FNAME ER2 = "E009":@FM:"VAR1" OPEN FNAME TO TFILE ELSE PRINTERR ER1 STOP END IF VAR1 > 10 THEN PRINTERR ER2 FROM E_FILE

If you enter file_test for FNAME and file_test cannot be found, the program segment produces the following error message: [4432] FILE test_file DOES NOT EXIST CAN'T PROCEED! 19 Jan 1996 10:34:19 If you enter 12 for VAR1, the program segment produces the following error message: =>ERR [E009] VAR1 IS NOT PROPERLY SPECIFIED PRINTERR 1-582

If you enter file_test for FNAME and file_test cannot be found, the program segment<br />

produces the following error message:<br />

[4432] FILE test_file DOES NOT EXIST<br />

CAN'T PROCEED!<br />

19 Jan 1996<br />

10:34:19<br />

If you enter 12 for VAR1, the program segment produces the following error<br />

message:<br />

=>ERR [E009]<br />

VAR1 IS NOT PROPERLY SPECIFIED<br />

PRINTERR 1-582

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!