ABAP 개발을 하시다보면 internal table에서 속성을 가져와야 하는경우가 많이 발생을 합니다. 그럴때 일일이 코딩하기에 귀찮을때 사용하시면 됩니다.^^ 아래 Function을 사용하시면 손쉽게 작업이 가능합니다. 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DATA: LT_COMPONETS  LIKE RSTRUCINFO OCCURS 0.     
 
*..... GET COMPONENT LIST
 
CALL FUNCTION 'GET_COMPONENT_LIS
 
  EXPORTING
 
    PROGRAM    = SY-REPID
 
    FIELDNAME  = 'GS_MAIN'       "Internal table 이름
 
  TABLES
 
    COMPONENTS = LT_COMPONETS.


'SAP > ABAP' 카테고리의 다른 글

SAP 사용자 ID별 Variant 자동 선택  (0) 2014.02.12

SAP에서 개발된 여러 프로그램에 Variant가 많이 걸려가 있습니다. ID별로 조금 편리하게 Variant를 자동으로 셋팅되게 만들 수 있게 하방법 입니다. 아래소스보시면 쉽게 이해 가능하실겁니다. 


?
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
*-----------------------------------------*
* INITIALIZATION
*-----------------------------------------*
INITIALIZATION.
  PERFORM SET_VARIANT.
 
*&---------------------------------------------------------------------*
*&      Form  SET_VARIANT
*&---------------------------------------------------------------------*
FORM SET_VARIANT .
 
  DATA: LS_VARID   TYPE VARID,
        LV_REPID   LIKE RSVAR-REPORT,
        LV_VARIANT LIKE RSVAR-VARIANT.
 
  CLEAR: LV_REPID, LV_VARIANT, LS_VARID.
 
  LV_REPID = SY-REPID.
* ID별 VARIANT 가져오기
  SELECT SINGLE *
    INTO LS_VARID
    FROM VARID
   WHERE REPORT = LV_REPID
     AND ENAME  = SY-UNAME.
 
  LV_VARIANT = LS_VARID-VARIANT.
* SCREEN 적용
  CALL FUNCTION 'RS_SUPPORT_SELECTIONS'
    EXPORTING
      REPORT               = LV_REPID
      VARIANT              = LV_VARIANT
    EXCEPTIONS
      VARIANT_NOT_EXISTENT = 01
      VARIANT_OBSOLETE     = 02.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
 
ENDFORM.                    " SET_VARIANT


'SAP > ABAP' 카테고리의 다른 글

ABAP개발에서 Internal Table의 필드속성 가져오기  (0) 2014.02.13

+ Recent posts

티스토리툴바