Post-Relational Database Command Reference
BASIC Language Reference
 UNIVERSE 
 BASIC 
 BASIC
   ABORT
   ASSIGNMENT
   BOOLEAN
   BRANCHING
   BSD
   COMPILE.TIME
   CONSTANT
   DIMENSION
   DYNAMIC
   EQUATE
   EXECUTE
   IO
   MATH
   NLS
   SQL
   STRING
   SYSTEM
   TABLE
   TAPE
   TBD
   TRANSACTION
   TRANSFORM
 PROC
   BRANCHING
   BUFFER
   EXECUTE
 TCL
   ANALYSIS
   IO
   SYSTEM
BASIC CODE: VALIDATION
Examples of validation logic.

Code Example

* Checking to see if they input a number
if num(ANS) then
   gosub good.value
end else
   error.flag = 1
end
*
*
* In this program snippet, we are check for a limited set of answers, each
* with it's own logical path
begin case
   case MYINFO = "A" ; gosub do.addition
   case MYINFO = "S" ; gosub do.subtraction
   case MYINFO = "K" ; gosub do.known.formula
end case
*
* This time we want to iterate through a list
* and validate each element separately.
loop
   CURRENT = FULL.LIST<1>
   FULL.LIST = delete(FULL.LIST,1)
until FULL.LIST = '' do
   if oconv(CURRENT,'MCA') = CURRENT then
      * This is alphabetic, okay!
      GOOD.LIST<-1> = CURRENT
   end
repeat

Synonyms
See also      CASE      |     IF      |     LOOP     
Categories      ALL      |     BRANCHING     
More Details or Suggestions?
     

Updated from a Post-Relational data table on 10:18:30 23 Apr 2010
Courtesy of Key Ally, Inc.
More information at U2-Users Group
UniVerse is a Trademark of Rocket Software. Previous, IBM, Informix, Ardent, and vMark.
DMOZ
Wikipedia