CLASS zcl_afl_utilities DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS re_process
IMPORTING
!guid TYPE guid .
CLASS-METHODS is_prd
RETURNING
VALUE(result) TYPE abap_bool .
CLASS-METHODS get_distinct_count
IMPORTING
!tab_data TYPE ANY TABLE
!field_name TYPE clike
RETURNING
VALUE(count) TYPE int4 .
CLASS-METHODS fm_authority_check
IMPORTING !fm_name TYPE rs38l_fnam
!buffer TYPE abap_bool DEFAULT abap_true
RETURNING VALUE(pass) TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF ty_auth_result,
fname TYPE zafl_config-fname,
pass TYPE abap_bool,
END OF ty_auth_result.
CLASS-DATA: auth_results_list TYPE HASHED TABLE OF ty_auth_result WITH UNIQUE KEY fname.
ENDCLASS.
CLASS ZCL_AFL_UTILITIES IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_AFL_UTILITIES=>FM_AUTHORITY_CHECK
* +-------------------------------------------------------------------------------------------------+
* | [--->] FM_NAME TYPE RS38L_FNAM
* | [--->] BUFFER TYPE ABAP_BOOL (default =ABAP_TRUE)
* | [<-()] PASS TYPE ABAP_BOOL
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD fm_authority_check.
DATA: auth_result LIKE LINE OF auth_results_list.
IF buffer = abap_true.
auth_result = VALUE #( auth_results_list[ fname = fm_name ] OPTIONAL ).
IF auth_result IS NOT INITIAL.
pass = auth_result-pass.
RETURN.
ENDIF.
ENDIF.
IF auth_result IS INITIAL.
DELETE auth_results_list WHERE fname = fm_name.
SELECT SINGLE no_auth_check FROM zafl_config WHERE fname = @fm_name
INTO @DATA(no_auth_check) BYPASSING BUFFER.
IF no_auth_check = abap_true.
auth_result = VALUE #( fname = fm_name pass = abap_true ).
ELSE.
DATA: wa_tadir TYPE tadir,
area TYPE sobj_name.
SELECT SINGLE area FROM enlfdir WHERE funcname = @fm_name INTO @area.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_test_modus = ' '
wi_read_only = 'X'
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = 'FUGR'
wi_tadir_obj_name = area
IMPORTING
new_tadir_entry = wa_tadir
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0 OR wa_tadir-devclass IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_DEVELOP'
ID 'DEVCLASS' DUMMY
ID 'OBJTYPE' FIELD 'FUGR'
ID 'OBJNAME' FIELD area
ID 'P_GROUP' DUMMY
ID 'ACTVT' FIELD '16'.
ELSE.
AUTHORITY-CHECK OBJECT 'S_DEVELOP'
ID 'DEVCLASS' FIELD wa_tadir-devclass
ID 'OBJTYPE' FIELD 'FUGR'
ID 'OBJNAME' FIELD area
ID 'P_GROUP' DUMMY
ID 'ACTVT' FIELD '16'.
ENDIF.
IF sy-subrc = 0.
auth_result = VALUE #( fname = fm_name pass = abap_true ).
ELSE.
auth_result = VALUE #( fname = fm_name pass = abap_false ).
ENDIF.
ENDIF.
ENDIF.
pass = auth_result-pass.
INSERT auth_result INTO TABLE auth_results_list.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_AFL_UTILITIES=>GET_DISTINCT_COUNT
* +-------------------------------------------------------------------------------------------------+
* | [--->] TAB_DATA TYPE ANY TABLE
* | [--->] FIELD_NAME TYPE CLIKE
* | [<-()] COUNT TYPE INT4
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_distinct_count.
TYPES: BEGIN OF ty_temp,
field TYPE string,
END OF ty_temp.
DATA: count_table TYPE HASHED TABLE OF ty_temp WITH UNIQUE KEY field,
count_wa LIKE LINE OF count_table.
LOOP AT tab_data ASSIGNING FIELD-SYMBOL(<wa>).
ASSIGN COMPONENT field_name OF STRUCTURE <wa> TO FIELD-SYMBOL(<field>).
IF sy-subrc <> 0.
RETURN.
ELSE.
count_wa-field = <field>.
INSERT count_wa INTO TABLE count_table.
ENDIF.
ENDLOOP.
count = lines( count_table ).
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_AFL_UTILITIES=>IS_PRD
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RESULT TYPE ABAP_BOOL
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD is_prd.
DATA: role TYPE t000-cccategory.
CALL FUNCTION 'TR_SYS_PARAMS'
IMPORTING
system_client_role = role
EXCEPTIONS
no_systemname = 1
no_systemtype = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
IF role = 'P'.
result = abap_true.
ENDIF.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_AFL_UTILITIES=>RE_PROCESS
* +-------------------------------------------------------------------------------------------------+
* | [--->] GUID TYPE GUID
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD re_process.
DATA: data_ref TYPE REF TO data.
SELECT SINGLE guid, fname, import, change_in, table_in
FROM zafl_log
WHERE guid = @guid
INTO @DATA(record).
IF sy-subrc <> 0.
RETURN.
ENDIF.
SELECT funcname, paramtype, pposition, parameter, structure
FROM fupararef
WHERE funcname = @record-fname
INTO TABLE @DATA(parameters_tab).
IF sy-subrc <> 0.
RETURN.
ENDIF.
DATA: temp_dd04l TYPE STANDARD TABLE OF dd04l.
LOOP AT parameters_tab ASSIGNING FIELD-SYMBOL(<ptab>).
IF strlen( <ptab>-structure ) > 30.
CONTINUE.
ENDIF.
temp_dd04l = VALUE #( BASE temp_dd04l ( domname = <ptab>-structure ) ).
ENDLOOP.
IF temp_dd04l IS NOT INITIAL.
SELECT domname FROM dd04l
FOR ALL ENTRIES IN @temp_dd04l
WHERE domname = @temp_dd04l-domname
INTO TABLE @DATA(data_elements).
ENDIF.
DATA: func TYPE string,
ptab TYPE abap_func_parmbind_tab,
ptab_line TYPE abap_func_parmbind,
etab TYPE abap_func_excpbind_tab,
etab_line TYPE abap_func_excpbind.
LOOP AT parameters_tab ASSIGNING FIELD-SYMBOL(<parameter>).
CLEAR ptab_line.
ptab_line-name = <parameter>-parameter.
ptab_line-kind = COND #( WHEN <parameter>-paramtype = 'E' THEN abap_func_importing
WHEN <parameter>-paramtype = 'I' THEN abap_func_exporting
WHEN <parameter>-paramtype = 'T' THEN abap_func_tables
WHEN <parameter>-paramtype = 'C' THEN abap_func_changing
ELSE ''
).
DATA(json_field_name) = COND string( WHEN ptab_line-kind = abap_func_exporting THEN 'IMPORT'
WHEN ptab_line-kind = abap_func_tables THEN 'TABLE_IN'
WHEN ptab_line-kind = abap_func_changing THEN 'CHANGE_IN'
ELSE ''
).
IF json_field_name IS INITIAL.
CONTINUE.
ENDIF.
ASSIGN COMPONENT json_field_name OF STRUCTURE record TO FIELD-SYMBOL(<json_raw>).
IF sy-subrc <> 0 OR <json_raw> IS INITIAL.
CONTINUE.
ENDIF.
DATA(json_data) = zcl_afl_json=>generate_new( json = <json_raw> ).
ASSIGN json_data->* TO FIELD-SYMBOL(<json_data>).
ASSIGN COMPONENT <parameter>-parameter OF STRUCTURE <json_data> TO FIELD-SYMBOL(<parameter_val>).
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
IF ptab_line-kind = abap_func_exporting OR ptab_line-kind = abap_func_changing.
CREATE DATA data_ref TYPE (<parameter>-structure).
FIELD-SYMBOLS: <temp> TYPE any.
ASSIGN <parameter_val>->* TO <temp>.
ENDIF.
IF ptab_line-kind = abap_func_tables.
DATA(structure_type) = CAST cl_abap_structdescr( cl_abap_datadescr=>describe_by_name( <parameter>-structure ) ).
DATA(table_type) = CAST cl_abap_tabledescr( cl_abap_tabledescr=>create( structure_type ) ).
CREATE DATA data_ref TYPE HANDLE table_type.
ASSIGN <parameter_val>->* TO <temp>.
ENDIF.
IF data_ref IS BOUND.
ASSIGN data_ref->* TO FIELD-SYMBOL(<data_ref>).
ENDIF.
IF line_exists( data_elements[ domname = <parameter>-structure ] ).
<data_ref> = <temp>.
ELSE.
DATA(json_temp) = zcl_afl_json=>serialize( data = <parameter_val> ).
zcl_afl_json=>deserialize( EXPORTING json = json_temp CHANGING data = <data_ref> ).
ENDIF.
GET REFERENCE OF <data_ref> INTO ptab_line-value.
INSERT ptab_line INTO TABLE ptab.
ENDLOOP.
etab_line-name = 'OTHERS'.
etab_line-value = 2.
INSERT etab_line INTO TABLE etab.
CALL FUNCTION record-fname
PARAMETER-TABLE
ptab
EXCEPTION-TABLE
etab.
ENDMETHOD.
ENDCLASS.
标签：name,DATA,ENDIF,auth,abap,接口,公共,日志,TYPE From： https://www.cnblogs.com/ZJY-1314/p/17428125.html