MI PROBLEMAS ES QUE NO LOGRO HACER QUE ME DEVUELVA EL PARAMETRO ASIGNADO A LA LISTBOX. LA DECLARACION NO PARECEN TE NER DRAMA ALGUNO
EN EL DATA
list TYPE vrm_values,
value LIKE LINE OF list,
PARAMETRO
p_list(8) AS LISTBOX VISIBLE LENGTH 8.
FORM calcular_anio.
CLEAR: list,
list[].
CLEAR name.
name = 'P_LIST'.
CLEAR value.
value-text = sy-datum(4).
value-key = 1.
APPEND value TO list.
CALL FUNCTION 'MONTH_PLUS_DETERMINE'
EXPORTING
months = -12
olddate = sy-datum
IMPORTING
newdate = lv_fecha.
CLEAR value.
value-text = lv_fecha(4).
value-key = 2.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
PERO CUANDO USO P_LIST ESTA VACIA. SI ME PODRIAN AYUDAR SE LOS AGRADESCERIA. RECIEN ESTOY EMPEZANDO EN ESTO, SEPAN DISCULPAR.
Pd: ya probé declararlo en la PBO .
EN EL DATA
list TYPE vrm_values,
value LIKE LINE OF list,
PARAMETRO
p_list(8) AS LISTBOX VISIBLE LENGTH 8.
FORM calcular_anio.
CLEAR: list,
list[].
CLEAR name.
name = 'P_LIST'.
CLEAR value.
value-text = sy-datum(4).
value-key = 1.
APPEND value TO list.
CALL FUNCTION 'MONTH_PLUS_DETERMINE'
EXPORTING
months = -12
olddate = sy-datum
IMPORTING
newdate = lv_fecha.
CLEAR value.
value-text = lv_fecha(4).
value-key = 2.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
PERO CUANDO USO P_LIST ESTA VACIA. SI ME PODRIAN AYUDAR SE LOS AGRADESCERIA. RECIEN ESTOY EMPEZANDO EN ESTO, SEPAN DISCULPAR.
Pd: ya probé declararlo en la PBO .

Comentario