REPORT z_alv_standard_text .
*---------------------------------------------------------------------*
* ALV List of standard text
*---------------------------------------------------------------------*
* Author : Michel PIOUD *
* Email : HomePage : http://www.oocities.org/mpioud *
*---------------------------------------------------------------------*
CONSTANTS :
c_x VALUE 'X',
c_refresh TYPE syucomm VALUE '&REFRESH'.
*---------------------------------------------------------------------*
TYPE-POOLS :
slis. " ALV Global types
*---------------------------------------------------------------------*
TYPES BEGIN OF ty_data.
INCLUDE TYPE stxh.
TYPES: tdline TYPE tline-tdline,
checkbox(1) TYPE c.
TYPES: END OF ty_data.
*---------------------------------------------------------------------*
DATA: gs_stxh TYPE stxh.
DATA gt_data TYPE TABLE OF ty_data.
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK standard WITH FRAME.
SELECT-OPTIONS:
s_mandt FOR gs_stxh-mandt DEFAULT sy-mandt
MATCHCODE OBJECT ddsef4clnt,
s_tdname FOR gs_stxh-tdname,
s_id FOR gs_stxh-tdid,
s_spras FOR gs_stxh-tdspras.
SELECTION-SCREEN END OF BLOCK standard.
SELECTION-SCREEN BEGIN OF BLOCK extension WITH FRAME.
SELECT-OPTIONS:
s_title FOR gs_stxh-tdtitle NO INTERVALS,
s_macod1 FOR gs_stxh-tdmacode1 NO INTERVALS,
s_macod2 FOR gs_stxh-tdmacode2 NO INTERVALS,
s_fuser FOR gs_stxh-tdfuser MATCHCODE OBJECT user_comp,
s_fdate FOR gs_stxh-tdfdate,
s_freles FOR gs_stxh-tdfreles,
s_luser FOR gs_stxh-tdluser MATCHCODE OBJECT user_comp,
s_ldate FOR gs_stxh-tdldate,
s_lreles FOR gs_stxh-tdlreles.
SELECTION-SCREEN END OF BLOCK extension.
SELECTION-SCREEN BEGIN OF BLOCK max WITH FRAME.
PARAMETERS:
p_string TYPE tdtitle,
p_max TYPE numc3 DEFAULT '100'.
SELECTION-SCREEN END OF BLOCK max.
*---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM f_read_data.
PERFORM f_display_data.
*---------------------------------------------------------------------*
* Form f_read_data
*---------------------------------------------------------------------*
FORM f_read_data.
FIELD-SYMBOLS <data> TYPE ty_data.
SELECT * FROM stxh CLIENT SPECIFIED
INTO TABLE gt_data
UP TO p_max ROWS
WHERE tdobject = 'TEXT'
AND mandt IN s_mandt
AND tdname IN s_tdname
AND tdid IN s_id
AND tdspras IN s_spras
AND tdfuser IN s_fuser
AND tdfdate IN s_fdate
AND tdfreles IN s_freles
AND tdluser IN s_luser
AND tdldate IN s_ldate
AND tdlreles IN s_lreles
AND tdmacode1 IN s_macod1
AND tdmacode2 IN s_macod2
AND tdtitle IN s_title.
LOOP AT gt_data ASSIGNING <data>.
PERFORM fill_firstline USING <data>.
ENDLOOP.
ENDFORM. " F_READ_DATA
*---------------------------------------------------------------------*
* Form f_display_data
*---------------------------------------------------------------------*
FORM f_display_data.
* Macro definition
DEFINE m_sort.
add 1 to ls_sort-spos.
ls_sort-fieldname = &1.
ls_sort-up = &2.
ls_sort-down = &3.
ls_sort-group = &4.
append ls_sort to lt_sort.
END-OF-DEFINITION.
* Macro definition
DEFINE m_fieldcat.
clear ls_fieldcat.
add 1 to l_pos.
ls_fieldcat-col_pos = l_pos.
ls_fieldcat-fieldname = &1.
ls_fieldcat-ref_tabname = &2.
append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DATA:
l_pos TYPE i,
ls_print TYPE slis_print_alv,
ls_layout TYPE slis_layout_alv,
ls_sort TYPE slis_sortinfo_alv,
lt_sort TYPE slis_t_sortinfo_alv,
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv,
ls_event_exit TYPE slis_event_exit,
lt_event_exit TYPE slis_t_event_exit.
* Layout
ls_layout-zebra = c_x.
ls_layout-cell_merge = c_x.
ls_layout-colwidth_optimize = c_x.
ls_layout-group_change_edit = c_x.
ls_layout-box_fieldname = 'CHECKBOX'.
* Build sort table
m_sort 'TDNAME' 'X' '' ''.
m_sort 'MANDT' 'X' '' ''.
m_sort 'TDSPRAS' 'X' '' ''.
* Build field catalog table
m_fieldcat 'MANDT' 'STXH'.
m_fieldcat 'TDNAME' 'STXH'.
m_fieldcat 'TDID' 'STXH'.
m_fieldcat 'TDFORM' 'STXH'.
m_fieldcat 'TDSPRAS' 'STXH'.
m_fieldcat 'TDFUSER' 'STXH'.
m_fieldcat 'TDFDATE' 'STXH'.
m_fieldcat 'TDFTIME' 'STXH'.
m_fieldcat 'TDLUSER' 'STXH'.
m_fieldcat 'TDLDATE' 'STXH'.
m_fieldcat 'TDLTIME' 'STXH'.
m_fieldcat 'TDLINE' 'TLINE'.
m_fieldcat 'TDVERSION' 'STXH'.
* Activate refresh button
CLEAR ls_event_exit.
ls_event_exit-ucomm = c_refresh. " Refresh
ls_event_exit-after = c_x.
APPEND ls_event_exit TO lt_event_exit.
* Print options
ls_print-no_print_selinfos = c_x. " Display no selection infos
ls_print-no_print_listinfos = c_x. " Display no listinfos
* Display data
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_user_command = 'USER_COMMAND'
i_callback_pf_status_set = 'PF_STATUS_SET'
is_layout = ls_layout
is_print = ls_print
it_fieldcat = lt_fieldcat
it_sort = lt_sort
it_event_exit = lt_event_exit
i_save = 'A'
TABLES
t_outtab = gt_data.
ENDFORM. " F_DISPLAY_DATA
*---------------------------------------------------------------------*
* FORM USER_COMMAND *
*---------------------------------------------------------------------*
FORM user_command USING u_ucomm TYPE syucomm
us_selfield TYPE slis_selfield. "#EC CALLED
CASE u_ucomm.
WHEN '&IC1'.
PERFORM f_lines USING us_selfield-tabindex.
WHEN c_refresh.
PERFORM f_read_data.
us_selfield-refresh = c_x.
ENDCASE.
ENDFORM. " USER_COMMAND
*---------------------------------------------------------------------*
* FORM PF_STATUS_SET *
*---------------------------------------------------------------------*
FORM pf_status_set USING ut_extab TYPE slis_t_extab. "#EC CALLED
* Display refresh button
DELETE ut_extab WHERE fcode = c_refresh.
SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
EXCLUDING ut_extab.
ENDFORM. " PF_STATUS_SET
*---------------------------------------------------------------------*
* FORM f_lines *
*---------------------------------------------------------------------*
FORM f_lines USING u_index TYPE sytabix.
DATA :
ls_thead TYPE thead,
ls_data TYPE ty_data,
lt_lines TYPE tline_t.
READ TABLE gt_data INDEX u_index INTO ls_data.
CHECK sy-subrc EQ 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = ls_data-mandt
object = ls_data-tdobject
name = ls_data-tdname
id = ls_data-tdid
language = ls_data-tdspras
IMPORTING
header = ls_thead
TABLES
lines = lt_lines
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0.
CALL FUNCTION 'SAPSCRIPT_MESSAGE'.
EXIT. " Exit Form
ENDIF.
CALL FUNCTION 'CHECK_TEXT_AUTHORITY'
EXPORTING
activity = 'SHOW'
object = ls_data-tdobject
name = ls_data-tdname
id = ls_data-tdid
language = ls_data-tdspras
EXCEPTIONS
OTHERS = 4.
IF sy-subrc NE 0.
* No authorization to display text &1 &2 &3
MESSAGE s613(td) WITH ls_data-tdspras
ls_data-tdid
ls_data-tdname.
EXIT.
ENDIF.
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
header = ls_thead
display = c_x
TABLES
lines = lt_lines
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0.
CALL FUNCTION 'SAPSCRIPT_MESSAGE'.
ENDIF.
ENDFORM. "f_lines
*---------------------------------------------------------------------*
* Form FILL_FIRSTLINE
*---------------------------------------------------------------------*
FORM fill_firstline USING us_data TYPE ty_data.
DATA:
l_msgline(72) TYPE c,
ls_lines TYPE tline,
lt_lines TYPE tline_t.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = us_data-mandt
id = us_data-tdid
language = us_data-tdspras
name = us_data-tdname
object = us_data-tdobject
TABLES
lines = lt_lines
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
l_msgline = 'Selected text module &1 not found'(011).
REPLACE '&1' WITH us_data-tdname INTO l_msgline.
MESSAGE s030(td) WITH l_msgline.
EXIT.
ENDIF.
LOOP AT lt_lines INTO ls_lines WHERE NOT tdline IS INITIAL.
us_data-tdline = ls_lines-tdline.
EXIT.
ENDLOOP.
IF NOT p_string IS INITIAL.
LOOP AT lt_lines INTO ls_lines WHERE NOT tdline IS INITIAL.
IF ls_lines-tdline CS p_string.
us_data-tdline = ls_lines-tdline.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM. " FILL_FIRSTLINE
****************** END OF PROGRAM Z_ALV_STANDARD_TEXT ******************