Problema raddiobutton

[swingt81]

Hola. tengo un problema con un raddiobutton. la cosa es muy sencilla:tengo un radiobutton con dos opciones y un campo para introducir una fecha debajo. al ejecutar el programa, la primera opción está marcada.si la primera opcion esta marcada, el campo fecha tiene que estar inactivo. si marco la 2ª opcion, el campo fecha debe estar activo. he leido unos cuantos hilos por el foro pero aplicandólo a mi progrma no sé pq no funciona, se me escapa algo. este es mi código. muchas gracias de antemano.

ELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE t001w-werks OBLIGATORY,
p_lgort LIKE t001l-lgort DEFAULT 'ALMA'.
SELECT-OPTIONS: s_matnr FOR mara-matnr,
s_matkl FOR mara-matkl.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-003.
PARAMETERS: p_crea RADIOBUTTON GROUP 1 default 'X',
p_anula RADIOBUTTON GROUP 1,
p_fecha TYPE sydatum OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b1.


INITIALIZATION.

LOOP AT SCREEN.
IF screen-name = 'P_FECHA'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

************************************************************************
*AT SELECTION-SCREEN.
************************************************************************
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF p_anula = 'X'.
IF screen-name = 'P_FECHA'.
screen-input = 1.

ENDIF.
ELSE.
IF screen-name = 'P_FECHA'.
CLEAR p_fecha.
screen-input = 0.

ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

[swingt81]

vale, me respondo a mi mismo:
en la declaración del radiobutton tenia que añadir un user command:

PARAMETERS: p_crea RADIOBUTTON GROUP 1 default 'X' user-command ucom,
p_anula RADIOBUTTON GROUP 1,
p_fecha TYPE sydatum.