20 - Debugging - System Debugging

Описание: -Explanation of System Debugging.
-Way to Check the System Programs.
-Way to On the System Debugging.

REPORT zprg4_alv_27.

TYPES : BEGIN OF lty_vbak,
vbeln TYPE vbeln_va,
erdat TYPE erdat,
erzet TYPE erzet,
ernam TYPE ernam,
vbtyp TYPE vbtypl,
END OF lty_vbak.

DATA : lt_vbak TYPE TABLE OF lty_vbak.
DATA : ls_vbak TYPE lty_vbak.

TYPES : BEGIN OF lty_vbap,
vbeln TYPE vbeln_va,
posnr TYPE posnr_va,
matnr TYPE matnr,
END OF lty_vbap.

TYPES : BEGIN OF lty_final,
vbeln TYPE vbeln_va,
erdat TYPE erdat,
erzet TYPE erzet,
ernam TYPE ernam,
vbtyp TYPE vbtypl,
posnr TYPE posnr_va,
matnr TYPE matnr,
END OF lty_final.


DATA : lt_vbap TYPE TABLE OF lty_vbap.
DATA : ls_vbap TYPE lty_vbap.
DATA : lv_vbeln TYPE vbeln_va.
DATA : lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA : ls_fieldcat TYPE slis_fieldcat_alv.
DATA : lt_final TYPE TABLE OF lty_final.
DATA : ls_final TYPE lty_final.

SELECT-OPTIONS : s_vbeln FOR lv_vbeln.

SELECT vbeln erdat erzet ernam vbtyp
FROM vbak
INTO TABLE lt_vbak
WHERE vbeln IN s_vbeln.


IF lt_vbak IS NOT INITIAL.
SELECT vbeln posnr matnr
FROM vbap
INTO TABLE lt_vbap
FOR ALL ENTRIES IN lt_vbak
WHERE vbeln = lt_vbak-vbeln.
ENDIF.

LOOP AT lt_vbak INTO ls_vbak.
LOOP AT lt_vbap INTO ls_vbap WHERE vbeln = ls_vbak-vbeln.
ls_final-vbeln = ls_vbak-vbeln.
ls_final-erdat = ls_vbak-erdat.
ls_final-erzet = ls_vbak-erzet.
ls_final-ernam = ls_vbak-ernam.
ls_final-vbtyp = ls_vbak-vbtyp.
ls_final-posnr = ls_vbap-posnr.
ls_final-matnr = ls_vbap-matnr.
APPEND ls_final TO lt_final.
CLEAR : ls_final.
ENDLOOP.
ENDLOOP.

ls_fieldcat-col_pos = '1'.
ls_fieldcat-fieldname = 'VBLEN'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Sales Document Number'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.


ls_fieldcat-col_pos = '2'.
ls_fieldcat-fieldname = 'ERDAT'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Creation Date'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.

ls_fieldcat-col_pos = '3'.
ls_fieldcat-fieldname = 'ERZET'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Time'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.

ls_fieldcat-col_pos = '4'.
ls_fieldcat-fieldname = 'ERNAM'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Name'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.

ls_fieldcat-col_pos = '5'.
ls_fieldcat-fieldname = 'VBTYP'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Category'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.

ls_fieldcat-col_pos = '6'.
ls_fieldcat-fieldname = 'POSNR'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Item Number'..
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.

ls_fieldcat-col_pos = '7'.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-tabname = 'LT_FINAL'.
ls_fieldcat-seltext_l = 'Material Number'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR : ls_fieldcat.



CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = lt_fieldcat
TABLES
t_outtab = lt_final
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF sy-subrc NE 0.
Implement suitable error handling here
ENDIF.