2013年7月2日 星期二

取得Internal Table的欄位名稱

  CALL FUNCTION 'GET_COMPONENT_LIST'
    EXPORTING
      program    = sy-cprog
      fieldname  = 'Internal Table Name'
    TABLES
      components = lt_comp.

Note:
傳到副程式時,需另行宣告才能取出使用,ex:

PERFORM input_field_info TABLES lt_comp 

FORM input_field_info  TABLES comp  
  DATA: lt_comp TYPE rstrucinfo OCCURS 0 WITH HEADER LINE.
  lt_comp[] = comp[].
  col = col + 1.
  READ TABLE lt_comp INDEX col. 
ENDFORM.                    " INPUT_FIELD_INFO

沒有留言:

張貼留言