本页目录:
4fd
4gl
# 定义
DEFINE tm RECORD
apa02_1 LIKE apa_file.apa02,
apa02_2 LIKE apa_file.apa02
END RECORD
#初始化
INITIALIZE tm.apa02_1 TO NULL
INITIALIZE tm.apa02_2 TO NULL
# 与4fd连接数据交互
CALL cl_set_comp_entry("apa02_1,apa02_2",TRUE)
INPUT BY NAME tm.apa02_1,tm.apa02_2
AFTER FIELD apa02_1
IF NOT cl_null(tm.apa02_1) THEN
IF tm.apa02_1 IS NULL THEN
CALL cl_err('', 'afa-321',1)
NEXT FIELD apa02_1
END IF
END IF
AFTER FIELD apa02_2
IF NOT cl_null(tm.apa02_2) THEN
IF tm.apa02_2 IS NULL THEN
CALL cl_err('', 'afa-321',1)
NEXT FIELD apa02_2
END IF
IF tm.apa02_1>tm.apa02_2 THEN
CALL cl_err('', 'aap-100',1)
NEXT FIELD apa02_2
END IF
END IF
ON ACTION CONTROLR
CALL cl_show_req_fields()
ON IDLE g_idle_seconds
CALL cl_on_idle()
CONTINUE INPUT
ON ACTION help
CALL cl_show_help()
ON ACTION controlg
CALL cl_cmdask()
ON ACTION about
CALL cl_about()
ON ACTION exit
LET INT_FLAG = 1
EXIT INPUT
END INPUT
测试