Code: Alles auswählen.
*---------------------------------------------------------------------*
* FORM top_of_page_2953
*---------------------------------------------------------------------*
* Filling "alv-top-of-page with further informations to
* chosen sentence (gs_marked_p1953) *
*---------------------------------------------------------------------*
FORM top_of_page_2953.
* DECLARATIONS
DATA:
* VARIABLES
lv_stext TYPE objec-stext,
lv_ps_desc TYPE objec-stext,
lv_short TYPE objec-short,
* STRUCTURES
ls_line TYPE slis_listheader,
* TABLES
lt_top_of_page TYPE TABLE OF slis_listheader.
* Listenheading: Service-uses
CLEAR ls_line.
ls_line-typ = 'H'.
* LS_LINE-KEY: not used for this type
ls_line-info = text-118 >>>> Überschrift.
APPEND ls_line TO lt_top_of_page.
* Line1: Service provider
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = text-120 >>>> Content linie 1.
WRITE gs_marked_p1953-objid TO ls_line-info.
WRITE ' - ' TO ls_line-info+8.
WRITE lv_short TO ls_line-info+11.
WRITE ' - ' TO ls_line-info+23.
WRITE lv_stext TO ls_line-info+26.
APPEND ls_line TO lt_top_of_page.
* Line2: Service
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = text-125 Contetn line2.
WRITE gs_marked_p1953-ps_key TO ls_line-info.
WRITE ' - ' TO ls_line-info+4.
WRITE lv_ps_desc TO ls_line-info+8.
APPEND ls_line TO lt_top_of_page.
* Line3: Period of time
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-key = text-126 Content line 3.
WRITE gv_date1 TO ls_line-info.
WRITE ' - ' TO ls_line-info+10.
WRITE gv_date2 TO ls_line-info+14.
APPEND ls_line TO lt_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = lt_top_of_page.
ENDFORM. "top_of_page_2953