UniBasic Commands Reference - Rocket Software

Tip: The UniBasic STATUS function returns the status of the preceding command.
You can place it within the trigger subroutine to learn about the status of individual
commands executed within the trigger. If you place it immediately after the statement
that calls the trigger, it returns the status of the UniBasic command as determined by
the trigger. The trigger subroutine also returns a value indicating its status in the
parameter execstat. These values returned in execstat are listed in the “Parameters”
section.
Return Value Description
0 No error.
Example
The following example begins with a DELETE trigger subroutine called DEL_TRIG.
This subroutine always returns 1 and always allows records to be deleted:
1-886 UniBasic Commands Reference
1 System error, such as a damaged file.
2 Constraint violation. In this case, the UniBasic trigger subroutine
returns a value of 0 in the parameter execstat, indicating that the update
or delete is not allowed.
3 Trigger execution error or unexpected return from trigger routine (for
example, the trigger subroutine is not cataloged).
STATUS Function Return Values
SUBROUTINE
DEL_TRIG(exec.stat,dict.flag,trig.name,rec.id.expr,rec.val)
exec.stat=1
RETURN
Note: After creating and compiling the subroutine, you must catalog it globally.
Next, we create the trigger and associate it with the ORDERS file:
:CREATE.TRIGGER ORDERS DEL_TRIG DELETE
Finally, we delete records in the ORDERS file. The trigger always allows the deletion
because the subroutine sets the execution status to 1.
:DELETE ORDERS 912
'912' deleted.
: