REPORT z_alv_sm37.
*---------------------------------------------------------------------*
* ALV list of jobs - Enhanced SM37 *
*---------------------------------------------------------------------*
* Author : Michel PIOUD - Updated 29-Jan-09 *
* HomePage : http://www.oocities.org/mpioud/Abap_programs.html *
*---------------------------------------------------------------------*
* Macro definition
DEFINE m_ligne.
selection-screen :
begin of line, comment 10(20) v_&1 for field &2.
select-options &2 for &3.
selection-screen end of line.
END-OF-DEFINITION.
*---------------------------------------------------------------------*
TABLES:
sscrfields. " Fields on selection screens
*---------------------------------------------------------------------*
TYPE-POOLS:
slis, " ALV types
icon. " Icons
*---------------------------------------------------------------------*
CONSTANTS:
c_x VALUE 'X',
c_refresh TYPE syucomm VALUE '&REFRESH'.
*---------------------------------------------------------------------*
DATA :
gv_se38 TYPE flag, " Authorization for SE38
gv_sp01 TYPE flag, " Authorization for SP01
gs_dummy_vop TYPE v_op. " Join from tbtco and tbtcp
TYPES :
BEGIN OF ty_datajob,
jobname TYPE v_op-jobname, " Background job name
variant TYPE tbtcp-variant, " Name of variant
status TYPE v_op-status, " Status of background job
progname TYPE v_op-progname, " Program name
reaxserver TYPE v_op-reaxserver, " Server name
strtdate TYPE v_op-strtdate, " Job start date
strttime TYPE v_op-strttime, " Job start time
enddate TYPE v_op-enddate, " Job end date
endtime TYPE v_op-endtime, " Job end time
jobcount TYPE v_op-jobcount, " Job ID
stepcount TYPE v_op-stepcount, " Job step ID number.
wpnumber TYPE v_op-wpnumber, " Work process number
sdluname TYPE v_op-sdluname, " Initiator job/step scheduling
listident TYPE tbtcp-listident, " Spool ID
authckman TYPE v_op-authckman, " Client
eventid TYPE v_op-eventid, " Background Event Id
END OF ty_datajob.
TYPES :
* Data to display
BEGIN OF ty_data.
INCLUDE TYPE ty_datajob.
TYPES :
timestamp_beg(8) TYPE p DECIMALS 0,
timestamp_end(8) TYPE p DECIMALS 0,
duration TYPE btcout-duration,
text TYPE trdirt-text,
icon_spool(4) TYPE c,
icon_prot(4) TYPE c,
tabcolor TYPE lvc_t_scol, " Colour
checkbox TYPE xfeld,
END OF ty_data.
TYPES :
BEGIN OF ty_program_title,
progname TYPE v_op-progname,
text(70) TYPE c,
END OF ty_program_title.
*---------------------------------------------------------------------*
DATA:
gs_dummy_data TYPE ty_data,
gt_data TYPE TABLE OF ty_data,
gt_langu TYPE TABLE OF sylangu,
gt_program_title TYPE SORTED TABLE OF ty_program_title
WITH UNIQUE KEY progname.
*---------------------------------------------------------------------*
* Select-Options / Parameters
* Client
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(20) v_0 FOR FIELD s_client.
SELECT-OPTIONS s_client FOR gs_dummy_vop-authckman DEFAULT sy-mandt
MATCHCODE OBJECT ddsef4clnt.
SELECTION-SCREEN END OF LINE.
* Job status
m_ligne 1 s_status gs_dummy_vop-status. "#EC NEEDED
* Job name
m_ligne 2 s_jobnam gs_dummy_vop-jobname. "#EC NEEDED
* Program
m_ligne 3 s_progrm gs_dummy_vop-progname. "#EC NEEDED
SELECTION-SCREEN :
* User
BEGIN OF LINE, COMMENT 10(20) v_4 FOR FIELD s_sdname.
SELECT-OPTIONS s_sdname FOR gs_dummy_vop-sdluname
MATCHCODE OBJECT user_addr.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN :
* Date and time
BEGIN OF LINE,
COMMENT 10(20) v_7 FOR FIELD p_datbeg, "#EC NEEDED
POSITION 34.
PARAMETERS p_datbeg TYPE datum DEFAULT sy-datum OBLIGATORY.
SELECTION-SCREEN POSITION 59.
PARAMETERS p_datend TYPE datum DEFAULT sy-datum OBLIGATORY.
SELECTION-SCREEN:
PUSHBUTTON 76(4) v_10 USER-COMMAND tbck,
PUSHBUTTON 80(4) v_11 USER-COMMAND tvor.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN :
BEGIN OF LINE,
COMMENT 10(20) v_8 FOR FIELD p_timbeg, "#EC NEEDED
POSITION 34.
PARAMETERS p_timbeg TYPE uzeit DEFAULT '000000' OBLIGATORY.
SELECTION-SCREEN POSITION 59.
PARAMETERS p_timend TYPE uzeit DEFAULT '235959' OBLIGATORY.
SELECTION-SCREEN:
PUSHBUTTON 76(4) v_12 USER-COMMAND hbck,
PUSHBUTTON 80(4) v_13 USER-COMMAND hvor.
SELECTION-SCREEN END OF LINE.
* Duration
m_ligne 5 s_duratn gs_dummy_data-duration. "#EC NEEDED
* Application server
m_ligne 6 s_server gs_dummy_vop-execserver. "#EC NEEDED
m_ligne 14 s_evntid gs_dummy_vop-eventid. "#EC NEEDED
*---------------------------------------------------------------------*
INITIALIZATION.
v_0 = 'Client '(000).
v_1 = 'Status '(001).
v_2 = 'Job name '(002).
v_3 = 'Program '(003).
v_4 = 'User '(004).
v_5 = 'Duration '(005).
v_6 = 'Server '(006).
v_7 = 'Date '(007).
v_8 = 'Time '(008).
v_10 = icon_column_left.
v_11 = icon_column_right.
v_12 = icon_column_left.
v_13 = icon_column_right.
v_14 = 'Event Id '(014).
p_timbeg(2) = sy-uzeit(2).
*---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM f_read_installed_languages.
* Check authorization for SE38
PERFORM check_auth_trans USING 'SE38'
CHANGING gv_se38.
* Check authorization for SP01
PERFORM check_auth_trans USING 'SP01'
CHANGING gv_sp01.
PERFORM f_read_data.
*---------------------------------------------------------------------*
END-OF-SELECTION.
PERFORM f_display_data.
*---------------------------------------------------------------------*
* Form F_READ_DATA
*---------------------------------------------------------------------*
FORM f_read_data.
DATA :
l_langu TYPE sylangu, " One-digit SAP language key
ls_title TYPE ty_program_title,
ls_textpool TYPE textpool,
lt_textpool TYPE TABLE OF textpool,
ls_data TYPE ty_data,
ls_job TYPE ty_datajob,
lt_job TYPE TABLE OF ty_datajob.
FIELD-SYMBOLS :
<title> TYPE ty_program_title.
REFRESH : lt_job, gt_data.
* Read jobs
SELECT p~jobname
variant
o~status
progname
reaxserver
strtdate
strttime
enddate
endtime
p~jobcount
p~stepcount
wpnumber
p~sdluname
listident
authckman
eventid
INTO CORRESPONDING FIELDS OF TABLE lt_job
FROM tbtcp AS p
JOIN tbtco AS o
ON p~jobname = o~jobname
AND p~jobcount = o~jobcount
WHERE p~jobname IN s_jobnam
AND progname IN s_progrm
AND p~sdluname IN s_sdname
AND strtdate BETWEEN p_datbeg AND p_datend
AND o~status IN s_status
AND o~status NE 'S'
AND o~status NE 'P'
AND reaxserver IN s_server
AND authckman IN s_client
AND eventid IN s_evntid.
CHECK NOT lt_job[] IS INITIAL.
LOOP AT lt_job INTO ls_job.
CLEAR ls_data.
MOVE-CORRESPONDING ls_job TO ls_data.
IF ( ls_data-strtdate = p_datbeg AND
ls_data-strttime < p_timbeg )
OR
( ls_data-strtdate = p_datend AND
ls_data-strttime > p_timend ).
DELETE lt_job.
CONTINUE.
ENDIF.
IF ls_data-status = 'R'.
ls_data-enddate = sy-datum.
ls_data-endtime = sy-uzeit.
ENDIF.
CONVERT DATE ls_data-enddate TIME ls_data-endtime
INTO TIME STAMP ls_data-timestamp_end TIME ZONE 'UTC '.
CONVERT DATE ls_data-strtdate TIME ls_data-strttime
INTO TIME STAMP ls_data-timestamp_beg TIME ZONE 'UTC '.
* Calculate duration
CALL FUNCTION 'SWI_DURATION_DETERMINE'
EXPORTING
start_date = ls_data-strtdate
end_date = ls_data-enddate
start_time = ls_data-strttime
end_time = ls_data-endtime
IMPORTING
duration = ls_data-duration.
IF NOT ls_data-duration IN s_duratn.
DELETE lt_job.
CONTINUE.
ENDIF.
* Read program title - first Checks in internal table
READ TABLE gt_program_title WITH KEY progname = ls_data-progname
ASSIGNING <title>.
IF sy-subrc EQ 0.
ls_data-text = <title>-text.
ELSE.
LOOP AT gt_langu INTO l_langu.
REFRESH lt_textpool.
READ TEXTPOOL ls_data-progname
INTO lt_textpool LANGUAGE l_langu.
SORT lt_textpool.
READ TABLE lt_textpool WITH KEY id = 'R' BINARY SEARCH
INTO ls_textpool.
IF sy-subrc EQ 0 AND ls_textpool-entry NE space.
ls_data-text = ls_textpool-entry.
CLEAR ls_title.
ls_title-progname = ls_data-progname.
ls_title-text = ls_data-text.
INSERT ls_title INTO TABLE gt_program_title.
EXIT. " Exit LOOP
ENDIF.
ENDLOOP.
ENDIF.
IF NOT ls_data-listident IS INITIAL.
ls_data-icon_spool = icon_history.
ENDIF.
ls_data-icon_prot = icon_justified.
APPEND ls_data TO gt_data.
ENDLOOP.
PERFORM modify_color_status.
IF NOT gv_sp01 IS INITIAL.
* If no authorization for SP01, clear icon_spool
CLEAR ls_data-icon_spool.
MODIFY gt_data FROM ls_data
TRANSPORTING icon_spool
WHERE sdluname <> sy-uname
AND NOT icon_spool IS INITIAL.
ENDIF.
ENDFORM. " F_READ_DATA
*---------------------------------------------------------------------*
* FORM MODIFY_COLOR_STATUS *
*---------------------------------------------------------------------*
FORM modify_color_status.
DATA :
ls_data TYPE ty_data,
ls_tabcolor TYPE lvc_s_scol,
lt_tabcolor TYPE lvc_t_scol.
* Field status in red for job aborted
ls_tabcolor-fname = 'STATUS'.
ls_tabcolor-color-col = 6.
ls_tabcolor-color-int = 1.
ls_tabcolor-color-inv = 0.
ls_tabcolor-nokeycol = c_x.
INSERT ls_tabcolor INTO TABLE lt_tabcolor.
ls_data-tabcolor = lt_tabcolor[].
MODIFY gt_data FROM ls_data TRANSPORTING tabcolor WHERE status = 'A'.
REFRESH lt_tabcolor.
* Field status in blue for job running
ls_tabcolor-fname = 'STATUS'.
ls_tabcolor-color-col = 1.
ls_tabcolor-color-int = 0.
ls_tabcolor-color-inv = 0.
ls_tabcolor-nokeycol = c_x.
INSERT ls_tabcolor INTO TABLE lt_tabcolor.
ls_data-tabcolor = lt_tabcolor[].
MODIFY gt_data FROM ls_data TRANSPORTING tabcolor WHERE status = 'R'.
ENDFORM. " MODIFY_COLOR_STATUS
*---------------------------------------------------------------------*
* Form f_display_data
*---------------------------------------------------------------------*
FORM f_display_data.
* Macro definition
DEFINE m_field.
add 1 to ls_fieldcat-col_pos.
ls_fieldcat-fieldname = &1.
ls_fieldcat-ref_tabname = &2.
append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
* Macro definition
DEFINE m_sort.
add 1 to ls_sort-spos.
ls_sort-fieldname = &1.
ls_sort-down = c_x.
ls_sort-group = &2.
append ls_sort to lt_sort.
END-OF-DEFINITION.
DATA:
ls_print TYPE slis_print_alv,
ls_fieldcat TYPE slis_fieldcat_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv,
lt_sort TYPE slis_t_sortinfo_alv,
ls_sort TYPE slis_sortinfo_alv,
ls_layout TYPE slis_layout_alv,
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.
* Build field catalog
m_field 'AUTHCKMAN' 'V_OP'.
m_field 'JOBNAME' 'V_OP'.
m_field 'ICON_SPOOL' ''.
m_field 'ICON_PROT' ''.
m_field 'VARIANT' 'TBTCP'.
m_field 'STATUS' 'V_OP'.
m_field 'PROGNAME' 'V_OP'.
m_field 'TEXT' 'TRDIRT'.
m_field 'REAXSERVER' 'V_OP'.
m_field 'STRTDATE' 'V_OP'.
m_field 'STRTTIME' 'V_OP'.
m_field 'ENDDATE' 'V_OP'.
m_field 'ENDTIME' 'V_OP'.
m_field 'TIMESTAMP_BEG' ''.
m_field 'TIMESTAMP_END' ''.
m_field 'DURATION' 'BTCOUT'.
m_field 'JOBCOUNT' 'V_OP'.
m_field 'STEPCOUNT' 'V_OP'.
m_field 'SDLUNAME' 'V_OP'.
m_field 'WPNUMBER' 'V_OP'.
m_field 'LISTIDENT' 'TBTCP'.
m_field 'EVENTID' 'V_OP'.
* Timestamp
ls_fieldcat-edit_mask = '==TSTPS'.
ls_fieldcat-just = 'L'.
ls_fieldcat-no_sum = c_x.
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING edit_mask just no_sum seltext_s
WHERE fieldname(9) EQ 'TIMESTAMP'.
* Duration format HH:MM:SS
ls_fieldcat-edit_mask = '==SDURA'.
ls_fieldcat-just = 'R'.
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING edit_mask just
WHERE fieldname(5) EQ 'duration'
AND datatype EQ 'INT4'.
* Icons
ls_fieldcat-hotspot = c_x.
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING hotspot WHERE fieldname(5) EQ 'ICON_'.
* No zero
ls_fieldcat-no_zero = c_x.
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING no_zero WHERE fieldname EQ 'DURATION'.
ls_fieldcat-seltext_s = 'Start time'(013).
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING seltext_s WHERE fieldname EQ 'TIMESTAMP_BEG'.
ls_fieldcat-seltext_s = 'End time'(012).
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING seltext_s WHERE fieldname EQ 'TIMESTAMP_END'.
ls_fieldcat-seltext_s = 'Sp.'.
ls_fieldcat-seltext_m = 'Spool'(011).
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING seltext_s seltext_m WHERE fieldname EQ 'ICON_SPOOL'.
ls_fieldcat-seltext_s = 'Pr.'.
ls_fieldcat-seltext_m = 'Protocol'(010).
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING seltext_s seltext_m WHERE fieldname EQ 'ICON_PROT'.
ls_fieldcat-no_out = c_x.
MODIFY lt_fieldcat FROM ls_fieldcat
TRANSPORTING no_out WHERE fieldname EQ 'ENDDATE' OR
fieldname EQ 'ENDTIME' OR
fieldname EQ 'STRTDATE' OR
fieldname EQ 'STRTTIME' OR
fieldname EQ 'SDLSTRTTM' OR
fieldname EQ 'JOBCOUNT' OR
fieldname EQ 'WPNUMBER' OR
fieldname EQ 'STEPCOUNT' OR
fieldname EQ 'LISTIDENT' OR
fieldname EQ 'REAXSERVER' OR
fieldname EQ 'ENDTIME'.
* 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'.
ls_layout-coltab_fieldname = 'TABCOLOR'.
* Build sort table
m_sort 'TIMESTAMP_BEG' ''.
* 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.
ls_print-no_print_selinfos = c_x. " Display no selection infos
ls_print-no_print_listinfos = c_x. " Display no listinfos
* Display the list
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
DATA :
ls_data TYPE ty_data,
ls_spool TYPE schedman_spool.
CASE u_ucomm.
WHEN '&IC1'. " Pick
READ TABLE gt_data INDEX us_selfield-tabindex INTO ls_data.
CHECK sy-subrc EQ 0.
CASE us_selfield-fieldname.
WHEN 'PROGNAME'.
IF NOT ls_data-progname IS INITIAL
AND gv_se38 IS INITIAL.
* Display program
EDITOR-CALL FOR REPORT ls_data-progname DISPLAY-MODE.
ENDIF.
WHEN 'ICON_SPOOL'.
IF NOT ls_data-icon_spool IS INITIAL
AND gv_sp01 IS INITIAL.
IF sy-subrc EQ 0 AND NOT ls_data-listident IS INITIAL.
ls_spool-spoolid = ls_data-listident.
* Display spool
CALL FUNCTION 'MONI_CALL_SPOOLSHOW'
EXPORTING
ls_spool = ls_spool.
ENDIF.
ENDIF.
WHEN 'ICON_PROT'.
* Display joblog
CALL FUNCTION 'BP_JOBLOG_SHOW_SM37B'
EXPORTING
jobcount = ls_data-jobcount
jobname = ls_data-jobname
EXCEPTIONS
error_reading_jobdata = 1
error_reading_joblog_data = 2
jobcount_missing = 3
joblog_does_not_exist = 4
joblog_is_empty = 5
joblog_show_canceled = 6
jobname_missing = 7
job_does_not_exist = 8
no_joblog_there_yet = 9
no_show_privilege_given = 10
OTHERS = 11.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
WHEN 'SDLUNAME'.
* Display user
CALL FUNCTION 'SUSR_SHOW_USER_DETAILS'
EXPORTING
bname = ls_data-sdluname. "#EC
WHEN 'VARIANT'.
IF NOT ls_data-variant IS INITIAL.
* Display variant
CALL FUNCTION 'RS_VARIANT_DISPLAY'
EXPORTING
report = ls_data-progname "#EC
variant = ls_data-variant "#EC
action = 'VSHO'
EXCEPTIONS
no_report = 1
report_not_existent = 2
report_not_supplied = 3
variant_not_existent = 4
variant_not_supplied = 5
variant_protected = 6
OTHERS = 7.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDCASE.
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
*---------------------------------------------------------------------*
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'TBCK'.
IF NOT p_datbeg IS INITIAL.
SUBTRACT 1 FROM p_datbeg.
ELSE.
p_datbeg = sy-datum.
ENDIF.
ELSEIF sscrfields-ucomm = 'TVOR'.
IF NOT p_datbeg IS INITIAL.
ADD 1 TO p_datbeg.
IF p_datbeg > sy-datum.
p_datbeg = sy-datum.
ENDIF.
ELSE.
p_datbeg = sy-datum.
ENDIF.
ELSEIF sscrfields-ucomm = 'HBCK'.
IF NOT ( p_timbeg IS INITIAL AND p_datbeg IS INITIAL ).
IF p_timbeg >= 3600.
SUBTRACT 3600 FROM p_timbeg.
ELSE.
SUBTRACT 1 FROM p_datbeg.
p_timbeg = p_timbeg + ( 3600 * 23 ).
ENDIF.
ELSE.
p_timbeg = sy-uzeit.
ENDIF.
ELSEIF sscrfields-ucomm = 'HVOR'.
IF NOT ( p_timbeg IS INITIAL AND p_datbeg IS INITIAL ).
IF p_datbeg >= sy-datum AND p_timbeg >= sy-uzeit.
p_timbeg = sy-uzeit.
ELSEIF p_timbeg > 82800.
ADD 1 TO p_datbeg.
p_timbeg = p_timbeg - ( 3600 * 23 ).
ELSE.
ADD 3600 TO p_timbeg.
ENDIF.
ELSE.
p_timbeg = sy-uzeit.
ENDIF.
ENDIF.
IF p_datend < p_datbeg.
* First date is later than second date
MESSAGE e400(bt).
ENDIF.
IF p_datend = p_datbeg AND
p_timend < p_timbeg.
* Begin time is after end time
MESSAGE e575(xt).
ENDIF.
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_server-low.
PERFORM show_target_server CHANGING s_server-low.
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_server-high.
PERFORM show_target_server CHANGING s_server-high.
*---------------------------------------------------------------------*
* Form show_target_server
*---------------------------------------------------------------------*
FORM show_target_server CHANGING u_server TYPE btcsrvname.
DATA l_server TYPE msxxlist-name.
* Select application server
CALL FUNCTION 'TH_SELECT_SERVER'
IMPORTING
server = l_server
EXCEPTIONS
no_server_list_received = 1
no_server_selected = 2
OTHERS = 3.
IF sy-subrc > 2.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
u_server = l_server.
ENDFORM. " SHOW_TARGET_SERVER
*--------------------------------------------------------------------*
* Form F_READ_INSTALLED_LANGUAGES
*--------------------------------------------------------------------*
FORM f_read_installed_languages.
CONSTANTS:
c_param(40) VALUE 'zcsa/installed_languages'.
DATA:
l_len TYPE i,
l_off TYPE i,
l_lang(50) TYPE c. " Installed languages
* Installed languages
CALL 'C_SAPGPARAM' ID 'NAME' FIELD c_param
ID 'VALUE' FIELD l_lang.
FIELD-SYMBOLS <f> TYPE char1.
l_len = STRLEN( l_lang ).
DO l_len TIMES.
l_off = sy-index - 1.
ASSIGN l_lang+l_off(1) TO <f>.
CHECK <f> NE space.
APPEND <f> TO gt_langu.
ENDDO.
* Logon language on top of gt_langu
DELETE gt_langu WHERE table_line = sy-langu.
INSERT sy-langu INTO gt_langu INDEX 1.
ENDFORM. " F_READ_INSTALLED_LANGUAGES
*---------------------------------------------------------------------*
* FORM CHECK_AUTH_TRANS *
*---------------------------------------------------------------------*
FORM check_auth_trans USING u_tcode TYPE sytcode
CHANGING u_flag TYPE flag.
DATA: l_subrc TYPE sysubrc.
* Authority-check (object assigned by TSTCA)
CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
EXPORTING
tcode = u_tcode
EXCEPTIONS
ok = 0
not_ok = 1
OTHERS = 2.
IF sy-subrc NE 0.
u_flag = c_x.
EXIT.
ENDIF.
* Authority-check (object S_TCODE)
CALL FUNCTION 'SUSR_AUTHORITY_CHECK_S_TCODE'
EXPORTING
tcode = u_tcode
IMPORTING
rc = l_subrc.
IF l_subrc NE 0.
u_flag = c_x.
EXIT.
ENDIF.
ENDFORM. " CHECK_AUTH_TRANS
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_evntid-low.
PERFORM f_show_eventid USING s_evntid-low 'S_EVENTID-LOW'.
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_evntid-high.
PERFORM f_show_eventid USING s_evntid-high 'S_EVENTID-HIGH'.
*---------------------------------------------------------------------*
* FORM f_show_eventid *
*---------------------------------------------------------------------*
* --> U_EVENTID *
* --> U_FIELDNAME *
*---------------------------------------------------------------------*
FORM f_show_eventid USING u_eventid TYPE btceventid
u_fieldname TYPE dynfnam.
DATA :
ls_return TYPE ddshretval,
lt_return TYPE dmc_ddshretval_table,
lt_eventid_hlp TYPE TABLE OF btcevthtbl.
* Read user event id
SELECT eventid FROM btcuev INTO TABLE lt_eventid_hlp.
* Read system event id
SELECT eventid FROM btcsev APPENDING TABLE lt_eventid_hlp.
SORT lt_eventid_hlp BY eventid ASCENDING.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'EVENTID'
dynprofield = u_fieldname
value_org = 'S'
TABLES
value_tab = lt_eventid_hlp
return_tab = lt_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CHECK NOT lt_return[] IS INITIAL.
READ TABLE lt_return INDEX 1 INTO ls_return.
u_eventid = ls_return-fieldval.
ENDFORM. " F_SHOW_EVENTID
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_status-low.
PERFORM f_show_status USING s_status-low 'S_STATUS-LOW'.
*---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_status-high.
PERFORM f_show_status USING s_status-high 'S_STATUS-HIGH'.
*---------------------------------------------------------------------*
* FORM f_show_status *
*---------------------------------------------------------------------*
* --> U_STATUS *
* --> U_FIELDNAME *
*---------------------------------------------------------------------*
FORM f_show_status USING u_status TYPE btcstatus
u_fieldname TYPE dynfnam.
TYPES :
BEGIN OF ty_status,
status TYPE btcstatus,
libel_status TYPE rstxt20,
END OF ty_status.
DATA :
ls_return TYPE ddshretval,
lt_return TYPE dmc_ddshretval_table,
ls_status_hlp TYPE ty_status,
lt_status_hlp TYPE TABLE OF ty_status.
ls_status_hlp-status = 'A'.
ls_status_hlp-libel_status = 'Aborted'.
APPEND ls_status_hlp TO lt_status_hlp.
ls_status_hlp-status = 'F'.
ls_status_hlp-libel_status = 'Finished'.
APPEND ls_status_hlp TO lt_status_hlp.
ls_status_hlp-status = 'R'.
ls_status_hlp-libel_status = 'Running'.
APPEND ls_status_hlp TO lt_status_hlp.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'STATUS'
dynprofield = u_fieldname
value_org = 'S'
TABLES
value_tab = lt_status_hlp
return_tab = lt_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CHECK NOT lt_return[] IS INITIAL.
READ TABLE lt_return INDEX 1 INTO ls_return.
u_status = ls_return-fieldval.
ENDFORM. " F_SHOW_STATUS
************** END OF PROGRAM Z_ALV_SM37 ******************************