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.
Auf dieser Seite können Sie das Online-Video 20 - Debugging - System Debugging mit der Dauer stunde minuten sekunde in guter Qualität ansehen, das der Benutzer SAP ABAP by Rahul Mehta 21 April 2025 hochgeladen hat, den Link mit Freunden und Bekannten teilen, dieses Video wurde auf Youtube bereits 5,513 Mal angesehen und es wurde von 90 den Zuschauern gefallen. Viel Spaß beim Betrachtenden Zuschauern gefallen!
