在 FUNCTION 中,如果執行到 RETURN 時,會傳回需要的值,
並立即停止此 FUNCTION 。所以要注意,所加的程式段 與
FUNCTION 中 RETURN 的相對位置。
FUNCTION t600_chk_oga03(p_cmd)
.........................
.........................
# 120507-------------------- (s)
IF NOT cl_null(g_oga.oga03) AND g_dbs = 'tuoc13' AND
( g_oga.oga01[1,4] = 'P122' OR g_oga.oga01[1,4] = 'P125'
OR g_oga.oga01[1,4] = 'P721' OR g_oga.oga01[1,4] = 'P725')
THEN
LET g_oga.oga15='US2'
SELECT gem02 INTO g_buf FROM gem_file WHERE gem01='US2'
AND gemacti='Y'
LET g_oga.oga14=''
DISPLAY BY NAME g_oga.oga15,g_oga.oga14
DISPLAY g_buf TO gem02
END IF
# 120507-------------------- (e)
RETURN TRUE
# 如果整段加在後面,程式是不會執行的。
END FUNCTION
# PS: RETURN 可不傳值,直接寫 RETURN
