Post-Relational Database Command Reference
 ZEBRA 
 BASIC 
 BASIC
   ABORT
   ASSIGNMENT
   BOOLEAN
   BRANCHING
   COMPILE.TIME
   CONSTANT
   DIMENSION
   DYNAMIC
   EQUATE
   EXECUTE
   IO
   MATH
   STRING
   SYSTEM
   TABLE
   TAPE
   TBD
   TRANSFORM
BASIC CODE: ASSIGNMENT
Example of Assignment handling
Code Example
      subroutine MEASURE(VALUE, OLD.MEASURE, NEW.MEASURE)
      begin case
         case (ASSIGNED(VALUE) = 0)
            * Skip, there is no assigned value
         case (OLD.MEASURE = "EACH") and (NEW.MEASURE = "DOZEN")
            if (VALUE # 0) then
               VALUE = VALUE / 12
            end
         case (OLD.MEASURE = "DOZEN") and (NEW.MEASURE = "EACH")
            VALUE = VALUE * 12
      end case
*
      return                             ; * to calling program
Synonyms
See also      =      |     AND      |     ASSIGNED      |     BEGIN.CASE      |     CASE      |     END.CASE     
Categories      ALL      |     ASSIGNMENT     
More Details or Suggestions?
     

Updated from a Post-Relational data table on 10:18:38 23 Apr 2010
Courtesy of Key Ally, Inc.
General Automation is a Trademark of Tiger Logic