在 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

文章標籤
全站熱搜
創作者介紹
創作者 Genero 的頭像
Genero

Genero 的部落格

Genero 發表在 痞客邦 留言(0) 人氣(382)