Set de Datos II – Una mejor forma

Caso: encontré una forma más facil de obtener el SET DE DATOS

Solución:

DATA: gr_ktokk        TYPE RANGE OF ktokk,
      gs_ktokk        LIKE LINE OF gr_ktokk.
 
DATA: lit_set_lines_basic TYPE TABLE OF rgsbv,
      lwa_set_lines_basic TYPE rgsbv.
 
* Obtengo el SET de datos con los grupos de cuentas a validar
CALL FUNCTION 'G_SET_FETCH'
EXPORTING
setnr           = '0000ZMM_SC_GRUPO_CUENTAS'  " Se pone 0000 antes del nombre del SET
TABLES
set_lines_basic = lit_set_lines_basic
EXCEPTIONS
no_authority    = 1
set_is_broken   = 2
set_not_found   = 3
OTHERS          = 4.
 
IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 
LOOP AT lit_set_lines_basic INTO lwa_set_lines_basic.
   gs_ktokk-sign   = 'I'.
   gs_ktokk-option = 'BT'.
   gs_ktokk-low    = lwa_set_lines_basic-from.
   gs_ktokk-high   = lwa_set_lines_basic-to.
   APPEND gs_ktokk TO gr_ktokk.
ENDLOOP.
 
ENDIF.

Links:

http://scn.sap.com/community/spanish/blog/2013/01/17/set-de-datos-en-sap-us%C3%A1ndolos-con-abap