CONCATENATE p_sefile'SD'sy-datum'.txt'INTO s_file. "服务器保存的目录和文件名 OPEN DATASET s_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT . "打开文件 if sy-subrc = 0. LOOP AT itab INTO wa_itab. menge = wa_itab-kwmeng. CONCATENATE wa_itab-vkorg wa_itab-kunnr wa_itab-vbeln...
然后这个FETCH语句,把光标位置又移动到提取行的下一行去了。 如果没有下一行了,都取完了,那FETCH语句就把SY-SUBRC置为4 。就结束了。 而且这个FETCH语句还会设置两个系统变量的值: subrc sy-dbcnt 如果你取的结果集值溢出了,就是行数大于2147483647条。也就是一般的内表条目数大于20亿条的情况。 那么sy-dbcnt...
cant_create_job=01invalid_job_data=02jobname_missing=03. if sy-subrc ne0."error processingendif.*Insert process into jobSUBMITzreportandreturn with p_param1='value'with p_param2='value'user sy-uname via job jobname number jobcount. if sy-subrc >0."error processingendif.*Close jobstart...
EXPORT LT_ITAB TO MEMORY ID 'MM'. IF SY-SUBRC EQ 0. MESSAGE I001(VL) WITH '使用ABAP内存 20170313 输出成功!'. ENDIF. * ADD ON 20170313 SUBMIT YTST_2017008_001. *& submit 则可以访问你,如果B和A运行在不同的窗口,则A将访问不到数据; WAIT UP TO 3 SECONDS. 1. 2. 3. 4. 5...
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 ."控制结构 ...
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 ...
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 EQ0. SELECT SINGLE* FROM TADIR WHERE pgmid='R3TR'AND object='PROG'AND obj_name=TSTC-pgmna. MOVE TADIR-devclass TO v_devclass. IF SY-SUBRC NE0. SELECT SINGLE* FROM TRDIR WHERE name=TSTC-pgmna. IF TRDIR-subc EQ'F'. ...
在字符串dobj中查找pattern SEARCH dobj FOR pattern [IN { BYTE | CHARACTER } MODE] [STARTING AT p1] [ENDING AT p2] [ABBREVIATED] [AND MARK]. if sy-subrc = 0. then SY-FDPOS = 返回pattern在dobj中的位置 About pattern: 'pat' - 忽略尾部空格 '.pat.' -不忽略尾部空格 '*pat' - 以pa...
IF sy-subrc NE 0./ L8 N$ I c9 T7 x CLEAR f_rqident. ENDIF. M8 q0 T4 G/ ?ENDFORM. get_spool_number8 R 6 yQ! o H6 L4 N* G% * F8 D6 B W# t5 F$ . m$ f% b5 m/ u程序执行界面: / z) e2 b: p* c3 v% S! . P 2011-7-16 15:01:02 上传下载附件 (6.72 KB...