abap tips

文章

ABAP Collect汇总数据语法备忘

1.该语法是用来汇总内表数据的，根据内表中非数值、金额列作为主键，loop循环后累加数字列的。2.尽量使用Collect wa into itab的方式，不要直接使用collect…

ag
2017.10.19
3.2K000
文章

ABAP错误笔记

每次loop结束前必须clear工作区，否则会导致“占位”的请情况，比如上一个工作区的cost center字段有值，下一个记录的该字段没有值，如果上一次loop的时候没有clea…

ag
2017.05.28
3.0K1600

APBP–Find Unused Includes

文章

APBP–Find Unused Includes

REPORT zunusedincludes.
TYPES:
  BEGIN OF t_all_includes,
    prog LIKE d010sinf-prog,
  END OF t_all_includes,
  BEGIN OF t_used_includes,
    include LIKE d010inc-include,
  END OF t_used_includes.
DATA:
  itab_all_includes  TYPE STANDARD TABLE OF t_all_includes,
  itab_used_includes TYPE STANDARD TABLE OF t_used_includes,
  wa_all_includes    TYPE t_all_includes,
  wa_used_includes   TYPE t_used_includes.

START-OF-SELECTION.
* get a list of all includes first
*(the appl ne 'S' removes classes* from the list)
  SELECT prog
  INTO TABLE itab_all_includes
  FROM d010sinf
  WHERE prog LIKE 'Z%'
  AND subc = 'I'
  AND appl NE 'S'.
  SORT itab_all_includes BY prog.
* this table is a list of includes with parent program
  SELECT include
  INTO TABLE itab_used_includes
  FROM d010inc
  WHERE include LIKE 'Z%'.
  SORT itab_used_includes BY include.
* now list the includes that are not in the above table
  LOOP AT itab_all_includes INTO wa_all_includes.
    READ TABLE itab_used_includes
    WITH KEY include = wa_all_includes-prog
    TRANSPORTING NO FIELDS
    BINARY SEARCH.
    IF sy-subrc NE 0.
      WRITE:/
      wa_all_includes-prog.
    ENDIF.
  ENDLOOP.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

REPORT zunusedincludes.

TYPES:

BEGIN OF t_all_includes,

prog LIKE d010sinf-prog,

END OF t_all_includes,

BEGIN OF t_used_includes,

include LIKE d010inc-include,

END OF t_used_includes.

DATA:

itab_all_includes TYPE STANDARD TABLE OF t_all_includes,

itab_used_includes TYPE STANDARD TABLE OF t_used_includes,

wa_all_includes TYPE t_all_includes,

wa_used_includes TYPE t_used_includes.

START-OF-SELECTION.

* get a list of all includes first

*(the appl ne 'S' removes classes* from the list)

SELECT prog

INTO TABLE itab_all_includes

FROM d010sinf

WHERE prog LIKE 'Z%'

AND subc = 'I'

AND appl NE 'S'.

SORT itab_all_includes BY prog.

* this table is a list of includes with parent program

SELECT include

INTO TABLE itab_used_includes

FROM d010inc

WHERE include LIKE 'Z%'.

SORT itab_used_includes BY include.

* now list the includes that are not in the above table

LOOP AT itab_all_includes INTO wa_all_includes.

READ TABLE itab_used_includes

WITH KEY include = wa_all_includes-prog

TRANSPORTING NO FIELDS

BINARY SEARCH.

IF sy-subrc NE 0.

WRITE:/

wa_all_includes-prog.

ENDIF.

ENDLOOP.

2017.05.11

1.5K000

文章

abap 恢复已经删除程序/函数

I recently deleted a custom program (which is already transported to production) accidenta…

ag
2017.05.11
2.2K000
文章

ABAP Functions

TEXT Function SAVE_TEXT – To load long text into SAP READ_TEXT – To load long …

ag
2017.05.10
2.1K000

1 / 2
1
2
下一页