Problemas con Mantenimiento (Insert,Update,Delete)

[BluehScouth]

Buenos Dias:

Estoy haciendo un codigo de prueba ya que llevo pocos dias programando en Abap estoy armando un pequeño mantenimiento utilizo el siguiente codigo pero no realiza ningun cambio en la BD.

Adicionalmente quiero agregarle un combobox para definir los estados de un empleado Activo/Inactivo, Capturar el Valor y tambien sean parte del mantenimiento.


REPORT Z_PROGRAMA_PRUEBA.

TABLES: sscrfields.
TABLES ZTABLA_PRUEBA.

SELECTION-SCREEN PUSHBUTTON 2(10) but1 USER-COMMAND usr1.
SELECTION-SCREEN PUSHBUTTON 20(10) but2 USER-COMMAND usr2.
SELECTION-SCREEN PUSHBUTTON 38(10) but3 USER-COMMAND usr3.
data wa_empleados like ztabla_prueba.
parameters Codigo like ztabla_prueba-cod_empl.
parameters Nombre like ztabla_prueba-nomb_ape.



ZTABLA_PRUEBA-COD_EMPL = Codigo.
ZTABLA_PRUEBA-NOMB_APE = Nombre.

INITIALIZATION.
but1 = 'Insertar'.
but2 = 'Actualizar'.
but3 = 'Eliminar'.

AT SELECTION-SCREEN.
CASE sscrfields.
WHEN 'USR1'.
INSERT INTO ZTABLA_PRUEBA VALUES ZTABLA_PRUEBA.
MESSAGE 'Datos Insertados' TYPE 'S'.
WHEN 'USR2'.
UPDATE ZTABLA_PRUEBA SET NOMB_APE = Nombre Where Cod_empl = Codigo.
MESSAGE 'Datos Actualizados' TYPE 'S'.
WHEN 'USR3'.
DELETE FROM ZTABLA_PRUEBA Where Cod_empl = Codigo.
MESSAGE 'Datos Eliminados' TYPE 'S'.
ENDCASE.



Saludos!