Mis primeras lineas de un ALV

[Dany24]

Hola, gracias por el apoyo esta algo complicado, pero nada imposible... estuve haciendo un ALV con ayuda de una buena persona de aqui mas o menos me guie... y llevo esto, ojala me puedan decir donde esta el error solo es mostrar los datos... gracias y linda semana a todos:

*&---------------------------------------------------------------------*
*& Report Z_REPORT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report z_report.

include z_report_top.
include z_report_rut.

start-of-selection.
perform selecciona_informacion.
if z_report[] is not initial.
perform report.
else.
endif.


*&---------------------------------------------------------------------*
*& Include Z_REPORT_TOP
*&--------------------------------------------------------------------*

TYPE-POOLS: slis.

form genera_titulos .

data: I_fieldcat type slis_fieldcat_vbrk.
data w_fieldcat like line of I_fieldcat.

TABLES: vbrk.

TYPES: BEGIN OF report,
vbeln TYPE vbeln,
fkart TYPE fkart,
fktyp TYPE fktyp,
vbtyp TYPE vbtyp,
waers TYPE waerk,
vkorg type vkorg,
vtweg type vtweg,
kalsm type kalms,
knumv type knumv,
vsbed type vsbed.
types end of report.
data it_report type standard table of t_report.
data w_report like line of it_report.

data vbrk like line of vbrk.

*&---------------------------------------------------------------------*
*& Include Z_REPORT_RUT
*&---------------------------------------------------------------------*
form procesa.
select VBELN FKART FKTYP VBTYP WAERK VKORG VTWEG KALSM KNUMV VSBED
into table vbkr
from z_report.
endform.


Form report.
data: l_fieldcat type slis_fieldcat_alv.
data w_fieldcat like line of i_fieldcat.

loop at i_fieldcat into w_fieldcat.
case w_fieldcat-fieldname.

when 'VBELN'.
w_fieldcat-reptext_ddic = 'FACTURA'.
when 'FKART'.
w_fieldcat-reptext_ddic = 'CLASE FACTURA'.
when 'FKTYP'.
w_fieldcat-reptext_ddic = 'TIPO FACTURA'.
when 'VBTYP'.
w_fieldcat-reptext_ddic = 'TIPO DOC.COM.'.
when 'WAERK'.
w_fieldcat-reptext_ddic = 'MONEDA DOC.'.
when 'VKORG'.
w_fieldcat-reptext_ddic = 'ORGANIZ.VENTAS'.
when 'VTWEG'.
w_fieldcat-reptext_ddic = 'CANAL DISTRIB.'.
when 'KALSM'.
w_fieldcat-reptext_ddic = 'ESQUEMA CALCULO'.
when 'KNUMV'.
w_fieldcat-reptext_ddic = 'CONDICION DOC'.
when 'VSBED'.
w_fieldcat-reptext_ddic = 'CONDIC.EXPED.'.

ENDCASE.

modify i_fieldcat from w_fieldcat.
endloop.

Ah i me manda un error en esta parte... I_fieldcat