valueTYPEchar10,ENDOFty_001.DATA:itabTYPESORTEDTABLEOFty_001WITHNON-UNIQUE KEY code value.DATA:itabsTYPESTANDARDTABLEOFty_001WITHNON-UNIQUE SORTED KEY cod COMPONENTS code value."初始化内表,此时被FILTER表应为SORT 或 HASH表itab = VALUE #( ( code ='01'value ='test01') ( code='01'value...
6.4 编程分支和循环 6.4.1 IF条件分支 IF 语句允许依据条件将程序流转到特定的语句块中。该语句块包括 IF 语句及其后面的 ELSEIF、 ELSE 或 ENDIF 之间的所有命令。 IF <condition1>.<statement block>ELSEIF <condition2>.<statement block>ELSEIF <condition3>.<statement block>...ELSE.<statement block>EN...
rs_selfieldTYPEslis_selfield.CASEr_ucomm.*WHEN'&IC1'.CASErs_selfield-fieldname.WHEN'ZROWTT'or'DMBTR1'.CHECKrs_selfield-valueISNOTINITIAL.READTABLEgt_dataINDEXrs_selfield-tabindexINTODATA(l_temp)."获取单击行IFl_temp-zcashcode isNOTINITIAL.PERFORMshow_itemUSINGl_temp-zcashcode.ELSE.MESSAGE'该行...
在字符串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...
CHECK rs_selfield-value IS NOT INITIAL. READ TABLE gt_data INDEX rs_selfield-tabindex INTO DATA(l_temp). "获取单击行 IF l_temp-zcashcode is NOT INITIAL . PERFORM show_item USING l_temp-zcashcode . ELSE . MESSAGE '该行没有科目明细' TYPE 'I' . ...
LINE_EXISTS is same as READ TABLE … TRANSPORTING NO FIELDS .. followed by SY-SUBRC CHECK. The call doesn’t return any value. It only checks if the line is there in the table with specified key or not This Function doesn’t set the system field SY-TABIX. So, this can’t be used...
例如我们要提高读取BSEG表的性能,首先我们会根据GJAHR主键从BKPF表取出部分数据到内表itab,然后使用FOR ALL ENTRIES IN itab WHERE BSEG~BELNR = itab~BELNR 这样的的方法取得符合itab里所有条件的BSEG数据.注意使用FOR ALL ENTRIES要先CHECK作为条件的内表itab是否为空,还有作为WHERE的条件在这个内表里面是否会...
**FORM subr_end USING VALUE(p_val). ** IF p_val > 10. ** WRITE :/'小于传入数据', p_val. ** EXIT. ** ENDIF. ** ** CHECK p_val > 5. ** WRITE :/ p_val. **ENDFORM. *DATA : gt_code TYPE TABLE OF char72,
IF sy-subrc = 0. READ TABLE dynpfields WITH KEY fieldname = 'P_XLS'. l_xls = dynpfields-fieldvalue. READ TABLE dynpfields WITH KEY fieldname = 'P_TXT'. l_txt = dynpfields-fieldvalue. ENDIF. REFRESH: l_tab_filetable. CASE 'X'. ...
2:加锁后在Lock table中加入一条记录,注意Lock table存在于内存中, 在整个SAP系统中只有一个,使用SM12来维护,缺省最多可登录13000条记录,超过此限制值会无法加锁并报错。 捕捉系统异常 可以用下面的语句避免Shortdump TRY. TEMP = VALUE1 / 0. CATCH CX_SY_ZERODIVIDE. ...