COMMIT WORK [AND WAIT]. 如果使用 AND WAIT 选项,那么 在程序继续 执行以前, 它要等到更 新任务的结 束。如果更 新是成功的 ,SY-SUBRC 就设置为 0。如果 SY-SUBRC 返回一个非 零值,就没 有成功的存 储所作的更 改。 要在保存之 前取消对数 据库表所作 的更改,请 按下列形式 使用 ROLLBACK WORK ...
CHECKSY-SUBRC = 0. LOOPAT LT_FIELDS ASSIGNING <FS_FIELDS>. CHECKZEKPO_CHANGE IS INITIAL. LOOPAT IM_EKPO ASSIGNING <FS_EKPO_NEW> . READTABLE IM_EKPO_OLD ASSIGNING <FS_EKPO_OLD> WITHKEY EBELP = <FS_EKPO_NEW>-EBELP. IFSY-SUBRC <> 0. ZEKPO_CHANGE='X'. ELSE. IFZEKPO_CHANGE I...
ID ‘BUKRS’ FIELD bkpf-bukrs. IF sy-subrc NE 0. MESSAGE e083 WITH bkpf-bukrs. ENDIF. 这个语句检查的是张三(zhangsan01)是否有f_bkpf_buk这个授权对象的权限,如果不要for user zhangsan01,则表示检查当前用户的权限。 注意这里只检查授权对象,没有单一角色和复合角色,也就是说虽然我们给用户分配了很多角...
it_fieldcat=gt_fieldcatTABLESt_outtab= gt_tab"指定要显示的内表名称EXCEPTIONSprogram_error=1OTHERS=2.IFsy-subrcNE0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.ENDFORM.***双击联查原始凭证,参数:凭证号,公司代码,年度FORMform_user_commandUSINGi...
IF sy-subrc NE 0. _select SINGLE_ * FROM trdir WHERE name = tstc-pgmna. IF trdir-subc EQ "F". _select SINGLE_ * FROM tfdir WHERE pname = tstc-pgmna. _select SINGLE_ * FROM enlfdir WHERE funcname = tfdir-funcname.
ENDIF. IF SY-SUBRC EQ 0. SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR' AND OBJECT = 'PROG' AND OBJ_NAME = TSTC-PGMNA. MOVE : TADIR-DEVCLASS TO V_DEVCLASS. IF SY-SUBRC NE 0. SELECT SINGLE * FROM TRDIR WHERE NAME = TSTC-PGMNA. IF TRDIR-SUBC EQ 'F'. SELECT SINGLE ...
IF SY-SUBRC NE 0. RETURN. ENDIF. * ACTIVE TABLE CALL FUNCTION 'DDIF_DOMA_ACTIVATE' EXPORTING NAME = LV_DDOBJNAME AUTH_CHK = ' ' . CHECK SY-SUBRC = 0. ENDFUNCTION. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. ...
IF sy-subrc NE 0. RAISE browser_not_started. ENDIF. ENDTRY. ELSEIF internalmode NE space AND smartclient EQ space. DATA off TYPE i. DATA len TYPE i. FIND REGEX '[Zz]\w+(?=\?)' IN char_url MATCH OFFSET off MATCH LENGTH len . IF sy-subrc = 0. wdy_name = char_url+off(len...
IF sy-subrc NE 0 OR l_objdata-objid = space."如果不存在,则给出错误提示 CONCATENATE '模板' '不存在' INTO l_errtxt. MESSAGE l_errtxt TYPE 'I'. EXIT. ENDIF.* 如果存在,调用DOWNLOAD_WEB_OBJECT 函数下载模板到路径下 CALL FUNCTION 'DOWNLOAD_WEB_OBJECT' EXPORTING key = l_objdata destinatio...
IF SY-SUBRC EQ 0. DATA(LV_LEVL) = LS_LINE-ZLEVL. ENDIF. ENDIF. LOOP AT GT_NODE_DATA INTO DATA(LS_NODE_DATA). * IF LS_NODE_DATA-ZLEVL NE 0. AUTHORITY-CHECK OBJECT 'ZBOE02' ID 'ZNODKY' FIELD LS_NODE_DATA-NODKY. IF SY-SUBRC EQ 0. DATA(LV_DISP) = 'X'. ENDIF. ENDIF....