04.05.01.tiptop：基础知识篇（4fd+4gl 提示框：err）

本页目录：

• 1、cl_err
• 2、s_errmsg
• 3、cl_show_array

---

p_ze 查询信息代号

cl_err

• 语法

CALL cl_err('','qcs-001',1)

• 效果

s_errmsg

• 语法

CALL s_errmsg("rvb02,rvb04,rvb07","",l_rvb.rvb02||"/"||l_rvb.rvb04||"/"||l_rvb.rvb07||" > "||l_min_set||" : ",'apm-307',1)

• 效果
  

cl_show_array

• 语法

# 定义
DEFINE g_msg        STRING
DEFINE g_msg_row    STRING
DEFINE g_rows       DYNAMIC ARRAY OF RECORD
                     sfp01  LIKE sfp_file.sfp01,
                     sfp02  LIKE sfp_file.sfp02,
                     sfe01  LIKE sfe_file.sfe01,
                     sfe07  LIKE sfe_file.sfe07,
                     sfe16  LIKE sfe_file.sfe16,
                     sfe17  LIKE sfe_file.sfe17
                    END RECORD
# 设置标题信息
CALL cl_getmsg('csf-501',g_lang) RETURNING g_msg
# 设置table字段语言转换。g_msg_row需要定义为string
LET g_msg_row=cl_get_feldname('sfp01',g_lang),"|",
              cl_get_feldname('sfp02',g_lang),"|",
              cl_get_feldname('sfe01',g_lang),"|",
              cl_get_feldname('sfe07',g_lang),"|",
              cl_get_feldname('sfe16',g_lang),"|",
              cl_get_feldname('sfe16',g_lang)
# table方式展现效果，g_rows是数组
CALL cl_show_array(base.TypeInfo.create(g_rows),g_msg||" (csf-501)   ",g_msg_row)

• 效果