FourJS : 最簡單的 SQL + FOREACH 範例，還有呼叫PL/SQL方式

CASE 1
DECLARE cur64 CURSOR FOR
 SELECT ogb14
   FROM ogb_file, ima_file
  WHERE ogb01=g_oga.oga01
    AND ogb04 = ima01
    AND ta_ima001 = '64-17-5' #==酒精

 FOREACH cur64 INTO l_ogb14   #==酒精類產品不可用於本作業!!
    CALL cl_err('','PL0017',1)
    LET g_success = 'N'   #FUN-580155
    RETURN
 END FOREACH

CASE 2 (PL/SQL)
FUNCTION t400_chk_oeb904_2()
   DEFINE l_sql STRING
   DEFINE l_ret SMALLINT

    LET l_ret = 0
    LET l_sql = "SELECT axm_pkg_oeb904.axm_func_true_false(?) FROM DUAL"
    PREPARE p1 FROM l_sql
    EXECUTE p1 USING g_oea.oea01 INTO l_ret

    IF l_ret = 0 THEN
       RETURN FALSE
    ELSE
       RETURN TRUE
    END IF
 END FUNCTION

CASE 3 (PL/SQL)
    LET l_ret2 = "0"
    LET l_sql = "BEGIN echo01.axm_pkg_t410.axm_proc_yn_cs_dist(?,?,?); END;"
    PREPARE p4 FROM l_sql
    EXECUTE p4 USING g_oea.oea01 IN, g_user IN, l_ret2 OUT