T100的报错语法杂记

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 
    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)