Jaaja buena!!... por lo menos ya tienes el pool de tipos.
Ejemplo:
type-pools: vrm.
data : name type vrm_id,
value type vrm_values,
w_value like line of value.
data dia(2) type n.
parameters p_dias type n AS LISTBOX VISIBLE LENGTH 8.
parameters p_mes type char03 AS LISTBOX VISIBLE LENGTH 8.
initialization.
free: value.
name = 'P_DIAS'.
dia = 1.
do 31 times.
clear w_value.
w_value-key = dia.
* w_value-text = dia.
append w_value to value.
dia = dia + 1.
enddo.
call function 'VRM_SET_VALUES'
exporting
id = name
values = value.
clear w_value.
free: value.
name = 'P_MES'.
clear w_value.
w_value-key = '01'.
w_value-text = 'ENE'.
append w_value to value.
clear w_value.
w_value-key = '02'.
w_value-text = 'FEB'.
append w_value to value.
clear w_value.
w_value-key = '03'.
w_value-text = 'MAR'.
append w_value to value.
clear w_value.
w_value-key = '04'.
w_value-text = 'ABR'.
append w_value to value.
call function 'VRM_SET_VALUES'
exporting
id = name
values = value.
clear w_value.
|