1.1.一般用于编辑新增或者修改的时候,插入数据库段的检查,如果有报错信息,则会INSERT失败。
*IF SQLCA.SQLCODE THEN
INITIALIZE g_errparam TO NULL
LET g_errparam.extend = "wmbcuc_t:",SQLERRMESSAGE
LET g_errparam.code = SQLCA.SQLCODE
LET g_errparam.popup = TRUE
CALL s_transaction_end('N','0')
CALL cl_err()
CANCEL INSERT
ELSE*
1.2.一般用于栏位输入之后的值的检查,如果有误,则会给出提示并且光标停留在此栏位上
*IF l_cntin <= 0 THEN
INITIALIZE g_errparam TO NULL
LET g_errparam.extend = "输入的车间编号不存在,请检查"
LET g_errparam.code = "" #也可以将g_errparam.extend="";.code的值在azzi920中维护
LET g_errparam.popup = TRUE
CALL cl_err()
NEXT FIELD CURRENT
END IF*
1.3.使用message弹窗功能,这种方式本人使用的比较少
上面的内容就是我个人总结的报错语法,报错的语法相对要简单一点,只是经常会用到,所以做个总结,方便以后查看。
如有不正确的地方,还请指正,感谢!
奉上一张ROSE的帅照:ROSE![在这里插入图片描述](https://img-blog.csdnimg.cn/20200712132433131.jpeg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0dvZmlnaHRpbmcwNjI0,size_16,color_FFFFFF,t_70#pic_center)
1. 常用报错语法1.1.一般用于编辑新增或者修改的时候,插入数据库段的检查,如果有报错信息,则会INSERT失败。*IF SQLCA.SQLCODE THEN INITIALIZE g_errparam TO NULL LET g_errparam.extend = "wmbcuc_t:",SQLERRMESSAGE LET g_errparam.code = SQLCA.SQLCODE LET g_errparam.popup = TRUE