2013年7月30日 星期二

依日期加減找月份

  CALL FUNCTION 'MONTH_PLUS_DETERMINE'
    EXPORTING
      months  -1 or 1 "下個月或上個月
      olddate sy-datum
    IMPORTING
      newdate lv_date.

2013年7月2日 星期二

循序取得內文符號的內文

    lv_num lv_num + 1.
    CONCATENATE 'TEXT-' lv_num INTO lv_text.
    ASSIGN (lv_textTO .                "指派值到指標變數

取得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  
  DATAlt_comp TYPE rstrucinfo OCCURS WITH HEADER LINE.
  lt_comp[] comp[].
  col col + 1.
  READ TABLE lt_comp INDEX col. 
ENDFORM.                    " INPUT_FIELD_INFO

2013年7月1日 星期一

ABAP使用指標變數動態欄位給值

  FIELD-SYMBOLS.

  ASSIGN gt_display TO .                            "指派表格的工作區域

  ASSIGN COMPONENT sy-index OF STRUCTURE  TO .     "指派欄位結構

   p_value.                                       "指派值給欄位