ABAP代码调用GS01/GS02/GS03的集合

集合相当于一个号段，SAP全局生效的。

1.   DATA:ls_setid      TYPE sethier-setid,
   
2.        lt_int_vlaues TYPE STANDARD TABLE OF rgsbv.
   
3.   DATA:lr_saknr      TYPE RANGE OF saknr WITH HEADER LINE.
   
4.       CALL FUNCTION 'G_SET_GET_ID_FROM_NAME'
   
5.         EXPORTING
   
6.           shortname = 'Z0002'       "Set Name   GS01
   
7.         IMPORTING
   
8.           new_setid = ls_setid
   
9.         EXCEPTIONS
   
10.           OTHERS    = 1.
    
11. 
    
12.       CALL FUNCTION 'G_SET_FETCH'
    
13.         EXPORTING
    
14.           setnr           = ls_setid
    
15.         TABLES
    
16.           set_lines_basic = lt_int_vlaues
    
17.         EXCEPTIONS
    
18.           OTHERS          = 1.
    
19. 
    
20.       LOOP AT lt_int_vlaues INTO DATA(ls_int_vlaues).
    
21.         IF ls_int_vlaues-from IS NOT INITIAL AND ls_int_vlaues-to IS NOT INITIAL.
    
22.           CLEAR:lr_saknr.
    
23.           lr_saknr-sign   = 'I'.
    
24.           lr_saknr-option = 'BT'.
    
25.           lr_saknr-low    = ls_int_vlaues-from.
    
26.           lr_saknr-high   = ls_int_vlaues-to.
    
27.           APPEND lr_saknr.
    
28.         ELSEIF ls_int_vlaues-from IS NOT INITIAL .
    
29.           CLEAR:lr_saknr.
    
30.           lr_saknr-sign   = 'I'.
    
31.           lr_saknr-option = 'EQ'.
    
32.           lr_saknr-low    = ls_int_vlaues-from.
    
33.           APPEND lr_saknr.
    
34.         ENDIF.
    
35. 
    
36.       ENDLOOP.
    
37. 
    
38.       IF <fs_upload>-saknr NOT IN lr_saknr.
    
39.         IF <fs_upload>-zmessage IS INITIAL.
    
40.           <fs_upload>-zmessage = '合并科目不在科目集Z0002中，请检查科目是否填写错误！'(016).
    
41.         ELSE.
    
42.           <fs_upload>-zmessage = <fs_upload>-zmessage && '合并科目不在科目集Z0002中，请检查科目是否填写错误！'(012).
    
43.         ENDIF.
    
44.       ENDIF.

复制代码