Requerimientos Abap

SELECTION-SCREEN BEGIN OF BLOCK   b1  WITH FRAME TITLE  text- 001.       PARAMETERS    :     s_denom  TYPE  c  LENGTH   40 AS LISTBOX VISIBLE LENGTH   50. SELECTION-SCREEN END OF BLOCK   b1 . *Ahora necesitamos que al hacer clic para ver los valores posibles de la lista *ser carguen los valores desde una subrutina en el evento value-request. AT SELECTION-SCREEN ON VALUE-REQUEST FOR   s_denom .    PERFORM   lista_denominacion . *&---------------------------------------------------------------------* *&      Form  LISTA_DENOMINACION *&---------------------------------------------------------------------* *      PERMITE EN DEMANDA LLENAR LOS VALORES DEL LISTBOX *----------------------------------------------------------------------* *  -->  p1        text *  <-- nbsp="" p2="" span="" text=""> *----------------------------------------------------------------------* FORM   lista_denominacion  .    REFRESH  

DATA :   t_lines   TYPE STANDARD TABLE OF   tline  WITH HEADER LINE . DATA :  BEGIN OF  itab  OCCURS  0 ,                 linea  TYPE   char70 ,              END OF   itab .        CALL FUNCTION  'READ_TEXT'        EXPORTING         id                        =   'F01'            language              =  sy - langu           name             =  name           object           =  'EKKO'          TABLES            lines                     =  t_lines          EXCEPTIONS           id                          =  1           language                =  2          name                           =  3          not_found                      =  4          object                         =  5          reference_check                =  6          wrong_access_to_archive        =  7           OTHERS                         =  8                  .        IF   sy - subrc <>  0 . *       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO *               WITH SY-