Hola Claudia,
Solo es cuestion de syntaxis, ten cuidado con los espacios...
Este codigo compila...
* DEFINICION DE LAS VARIABLES
PARAMETERS: Nombre(30) TYPE c OBLIGATORY,
FechaNac TYPE d.
TYPE-POOLS: VRM.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
* DEFINICION DE LA LISTA DE JOB
PARAMETERS: JOB(10) AS LISTBOX VISIBLE LENGTH 10.
AT SELECTION-SCREEN OUTPUT.
NAME = 'JOB'.
VALUE-TEXT = 'NATACION'.
APPEND VALUE TO LIST.
VALUE-TEXT = 'PATINAJE'.
APPEND VALUE TO LIST.
VALUE-TEXT = 'TV'.
APPEND VALUE TO LIST.
VALUE-TEXT = 'NINGUNO'.
APPEND VALUE TO LIST.
CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = NAME VALUES = LIST.
START-OF-SELECTION.
WRITE:/ 'NOMBRE', Nombre.
WRITE:/ 'Edad', FechaNac.
WRITE:/ 'JOB:', JOB.
END-OF-SELECTION.
* DEFINICION DEL RADIOBUTTON PARA INDICAR SI ES O NO EMPLEADO
WRITE: 'ES UD EMPLEADO?: '.
SELECTION-SCREEN BEGIN OF BLOCK empl WITH FRAME TITLE estado.
PARAMETERS: SI RADIOBUTTON GROUP ee, " ee estado del empleado, empleado o desempleado
NO RADIOBUTTON GROUP ee.
SELECTION-SCREEN END OF BLOCK empl.
* validacion del radiobutton
IF SI = 'X'.
WRITE:/ 'EMPLEADO'.
ELSE.
WRITE:/ 'DESEMPLEADO'.
ENDIF.
Talogo,
Sealons.