Private post
Classe : ZCL_UTILITIES_CONS
Avec méthode pour lecture unique : LECTURE_CONSTANTE_UNIQUE( ).
Avec méthode pour lecture range : LECTURE_CONSTANTE_MULTIPLE( ).
Classe : ZCLINT_CONST_SINGLETON
" -----------------------------------------------------
" GLOBAL SECTION
" -----------------------------------------------------
TYPES : BEGIN OF ts_buffer,
t_constantes TYPE ZTINT_CONST,
" /.../
END OF ts_buffer.
DATA : gs_buffer TYPE ts_buffer.
" -----------------------------------------------------
DATA : lt_const_in TYPE ztint_const_ext,
lt_const_out TYPE ztint_const_out_ext.
IF gs_buffer-t_constantes IS INITIAL.
lt_const_in = VALUE #( ( var1 = gc_prog_zqua_libe ) ).
zclint_const_singleton=>zrecup_donnee_constante( EXPORTING i_businessdom = gc_domain
it_const_param = lt_const_in[]
IMPORTING et_const_out_ext = lt_const_out ).
DATA(lt_error) = lt_const_out[ 1 ]-erreur_tab.
IF lt_error IS NOT INITIAL.
" manage error
ENDIF.
rt_constantes = gs_buffer-t_constantes = lt_const_out[ 1 ]-const_tab.
ELSE.
rt_constantes = gs_buffer-t_constantes.
ENDIF.
About the author