外星人看地球!
原文網址：http://blog.udn.com/shfm1969/112294688
列印日期：2025/11/13
擷取CONSTRUCT欄位輸入的值
2018/06/05 12:02:27
參考下面紅字部份
CONSTRUCT BY NAME tm.wc ON oea01
ON ACTION locale
#CALL cl_dynamic_locale()
LET g_action_choice = “locale”
EXIT CONSTRUCT
AFTER FIELD oea01
LET l_oea01 = GET_FLDBUF(oea01)
ON IDLE g_idle_seconds
CALL cl_on_idle()
CONTINUE CONSTRUCT
ON ACTION exit
LET INT_FLAG = 1
EXIT CONSTRUCT
END CONSTRUCT
轉貼自