¿Como relleno un listbox con algo simple?

[Serty.exe]

Hola, he estado mirando pero no he encontrado exactamente lo que busco, o sí, pero no se llevarlo a lo que necesito.

El caso que quiero hacer algo simple, simplemente 2 listbox para seleccionar una fecha.
El primero simplemente con números, del 1 al 31 (El día).
El segundo con los 12 meses.

Mi unica duda es, ¿como relleno los listbox? he visto varios temas pero buscan cosas mas complicadas, yo ahora solo intento poner 31 numeros y los doce meses.

Necesito utilizar el " TYPE-POOLS: vrm. " ? (para que sepais que algo de manjeo de eso tengo, aunque este muy verde xD)

Gracias de antemano.

[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.

[Serty.exe]

Que velocidad de respuesta! Que "pena" que he estado "ocupado" el fin de semana por lo tanto no pude mirarlo. Muchas gracias, voy a probarlo inmediatamente y analizarlo para así no tener que volverlo a preguntar xD