Four Js Development Tools Forum

MAIN
 
   DEFINE my_int INTEGER
   DEFINE my_str STRING
 
   LET my_int = 100
   LET my_str = NULL
 
   --With USING
   DISPLAY "1=TESTA" || my_int USING "<<<<<<<&"
   DISPLAY "2=TESTB", my_int USING "<<<<<<<&"
 
   --With NULL
   DISPLAY "3=TESTA-" || my_str || "-"
   DISPLAY "4=TESTB-", my_str , "-"
 
END MAIN

FUNCTION my_func()
 
     DEFINE a,b,c STRING
 
     RETURN a+b+c
 
END FUNCTION

FUNCTION my_func()
 
     DEFINE a,b,c STRING
 
 
     RETURN SFMT("%1%2%3",a,b,c)
 
END FUNCTION

 --With USING
   DISPLAY "1=TESTA" || my_int USING "<<<<<<<&"
   DISPLAY "2=TESTB", my_int USING "<<<<<<<&"
   DISPLAY SFMT("?=TESTC%1", my_int USING "<<<<<<<&")
 
   --With NULL
   DISPLAY "3=TESTA-" || my_str || "-"
   DISPLAY "4=TESTB-", my_str , "-"
   DISPLAY SFMT("?=TESTC-%1-", my_str)

MAIN
 
   DEFINE my_int INTEGER
   DEFINE my_str STRING
 
   LET my_int = 100
   LET my_str = NULL
 
 
   DISPLAY SFMT("a=this is a test",
                " of a multiline string: %1",my_int USING "<<<<<<<&")
 
   DISPLAY SFMT("b=this is a test",
                " of a multiline string: [%1]",my_str)
 
   DISPLAY SFMT("c=this is a test" ||
                " of a multiline string: %1",my_int USING "<<<<<<<&")
 
   DISPLAY SFMT("d=this is a test" ||
                " of a multiline string: [%1]",my_str)
 
 
END MAIN

MAIN
 
   DEFINE my_int INTEGER
   DEFINE my_str STRING
 
   LET my_int = 100
   LET my_str = NULL
 
   --With USING
   DISPLAY "1=TESTA" || my_int USING "<<<<<<<&"
   DISPLAY "2=TESTB", my_int USING "<<<<<<<&"
 
   --With NULL
   DISPLAY "3=TESTA-" || my_str || "-"
   DISPLAY "4=TESTB-", my_str , "-"
 
END MAIN

   DISPLAY "1=TESTA" || (my_int USING "<<<<<<<&")
 

  LET x = a || b USING "<<<"

  LET x = (a || b) USING "<<<"

   DISPLAY "1=TESTA" || (my_int USING "<<<<<<<&")
 

FUNCTION nvl(l_original, l_if_null)
 
DEFINE
   l_original   STRING,
   l_if_null    STRING
 
DEFINE
   l_result   STRING
 
   IF l_original IS NULL
   OR LENGTH(l_original) == 0 THEN
       LET l_result = l_if_null
   ELSE
      LET l_result = l_original
   END IF
 
   RETURN l_result
 
END FUNCTION

MAIN
    DEFINE x1, x2 DECIMAL(10,2)
    LET x1 = 1234.56
    LET x2 = NULL
    DISPLAY "Value x1         : [", x1, "]"
    DISPLAY "Value x2         : [", x2, "]"
    DISPLAY "Value x1 MOD 2   : [", x1 MOD 2, "]"
    DISPLAY "Value x2 MOD 2   : [", x2 MOD 2, "]"
    DISPLAY "Value NVL(x1,0)  : [", NVL(x1,0), "]"
    DISPLAY "Value NVL(x2,0)  : [", NVL(x2,0), "]"
END MAIN

Value x1         : [     1234.56]
Value x2         : [            ]
Value x1 MOD 2   : [          0]
Value x2 MOD 2   : [      ]
Value NVL(x1,0)  : [1234.56]
Value NVL(x2,0)  : [0]

let expr = null
let x = iff(expr, 10, 20)

iff(nvl(expr, false), 10, 20)

function IFF(cond, x, y)
    case cond
      when cond != false return x
      when cond == false return y
      otherwise return null
    end case
end function

if a >= b or a is null or b is null then DO_WORK end if

if a < b then else DO_WORK end if

iff(c1, r1, c2, r2, c3, r3, e1)

let x = cond ? a : b
call ftn(cond ? a : b, c, d)

if a >= b or a is null or b is null then DO_WORK end if

if a < b then else DO_WORK end if

IF a>=b THEN
   ERROR "A must be less than B"
   NEXT FIELD CURRENT
END IF

IF a<b THEN
   # Ok Do nothing
ELSE
   ERROR "A must be less than B"
   NEXT FIELD CURRENT
END IF

IF A lazy-and B THEN
   # OK
ELSE
   C
END IF
 
versus 
 
IF A THEN
   IF B THEN
      #OK
   ELSE
      C
   END IF
ELSE
   C
END IF

IF expr THEN
   A
ELSE 
   B
END IF
 
IF(expr,A,B)
 
expr?A:B