QTIPS - Unassigned
There is a system function called UNASSIGNED which if passed the variable to be tested returns a 0 or a 1 depending on whether the variable is assigned or not. Usage is simple - EG
0001 SUBROUTINE TCL.SUB(BRANCH)
0002 DECLARE FUNCTION UNASSIGNED
0003 *
0004 IF UNASSIGNED (BRANCH) THEN
0005 BRANCH = "TCL"
0006 END
0002 DECLARE FUNCTION UNASSIGNED
0003 *
0004 IF UNASSIGNED (BRANCH) THEN
0005 BRANCH = "TCL"
0006 END
(Volume 1, Issue 1, Page 2)
| Making Databases Happen |
UK +44 (0) 20 8912 1010 USA +1 267 238 3814 |