¿Como relleno un listbox con algo simple?

[Mauricio Hidalgo]

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.