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 ...
ID 'EKORG' FIELD ls_ekorg . IF sy-subrc NE 0. MESSAGE '没有权限查看采购组织' && p_ekorg && '权限' TYPE 'E'. STOP. ENDIF. SELECT SINGLE vkorg INTO @DATA(lv_vkorg) FROM ztsd001 WHERE zrecon_no = @p_VKORG. IF sy-subrc EQ 0 . AUTHORITY-CHECK OBJECT 'V_VBAK_VKO' ID '...
SELECT SINGLE * FROM SKB1 WHERE BUKRS = p_BUKRS AND SAKNR = p_SAKNR . IF sy-subrc <> 0. MESSAGE '科目不存在!' type 'I'. else. call screen '0150'. ENDIF. "$ Endregion Main proc "### FORM ClearAllUserTableData. *& ZFIE003_ACT table 对账事务表 delete from ZFIE003_ACT. *&...
42、IONS NO_PERMISSION = 1 OPEN_FAILED = 2 OTHERS = 3.IF sy-subrc NE 0.* MESSAGE s000 WITH UPLOAD SUCC.ENDIF.16.从应用服务器上下载文件DATA: appl_filename LIKE rcgfiletr-ftappl VALUE /excel_template/ys.xls PARAMETERS filename LIKE rcgfiletr-ftfront DEFAULT D:YSys.xls.CALL FUNCTION...
IF sy-subrc NE 0. MESSAGE '请选择一个功能' TYPE 'I'. RETURN. ENDIF. CHECK antwort IS NOT INITIAL. DATA: fname(30) VALUE 'ZTEST_SMARTFORMS_01'. DATA: fm_name TYPE rs38l_fnam. DATA: ls_control_param TYPE ssfctrlop ."控制结构 ...
稍后,程序将 FLAG 设置为“X” 。如果对于 每一个 INSERT 语句,SY-SUBRC 没有设置为 0,那么最 后一个 IF 语句中的 ROLLBACK WORK 语句将取消 对数据库的 所有更改。 否则,用 COMMIT WORK 语句确认这 些更改。
IF sy-subrc NE0. RAISE connect_ftp_error. ENDIF. * exec ftp command **解析FTP命令** CLEAR ftp_result1[]. LOOP AT t_ftpcomm. CALL FUNCTION 'FTP_COMMAND' EXPORTING handle = hdl command = t_ftpcomm-ftpcomm compress = compress
DATA: gt_code(72) TYPE c OCCURS 0, gv_code LIKE LINE OF gt_code, gt_code2(72) TYPE c OCCURS 0. PARAMETERS: program LIKE sy-repid. START-OF-SELECTION. READ REPORT program INTO gt_code. IF sy-subrc NE 0. MESSAGE e398(00) WITH 'Report' program 'not found.'. ...
代码语言:javascript 复制 CALLFUNCTION'DATE_CHECK_PLAUSIBILITY'EXPORTINGdate=v_dateEXCEPTIONSplausibility_check_failed=1OTHERS=2.IFsy-subrcNE0."如果返回非0,则日期不合法ENDIF. 2、下面函数是检查时间合法性的函数 代码语言:javascript 复制 CALLFUNCTION'TIME_CHECK_PLAUSIBILITY'EXPORTINGtime=v_timeEXCEPTIONSplausibi...
IF sy-subrc NE 0. ROLLBACK WORK. EXIT. ENDIF. ENDLOOP. IF sy-subrc EQ 0. COMMIT WORK. ENDIF. 在这个例子中,我们首先从数据库中读取了雇员数据,并将其存储在一个内部表it_emp中。然后我们使用一个循环来修改每个雇员的数据,并使用MODIFY语句将其保存回数据库。 请注意,在每次修改后,我们会检查sy-...