Debugging Challenge 2

Download as txt, pdf, or txt
Download as txt, pdf, or txt
You are on page 1of 1

*&---------------------------------------------------------------------*

*& Report ZDEBUGGING_1


*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZDEBUG_2.

TYPES : BEGIN OF lty_data1,


vbeln TYPE vbeln_va,
erdat TYPE erdat,
erzet TYPE erzet,
ernam TYPE ernam,
END OF lty_data1.

TYPES : BEGIN OF lty_data2,


vbeln TYPE vbeln_va,
posnr TYPE posnr,
matnr TYPE matnr,
END OF lty_data2.

DATA : lt_data1 TYPE TABLE OF lty_data1.


DATA : lwa_data1 TYPE lty_data1.
DATA : lt_data2 TYPE TABLE OF lty_data2.
DATA : lwa_data2 TYPE lty_data2.

PARAMETERS : p_vbeln type vbeln_va.

SELECT vbeln erdat erzet ernam


FROM vbak
INTO TABLE lt_data1
WHERE vbeln = p_vbeln.

IF sy-subrc = 0.
SELECT vbeln posnr matnr
FROM vbap
INTO TABLE lt_data2
FOR ALL ENTRIES IN lt_data1
WHERE vbeln = lt_data1-vbeln.
ENDIF.

*Use of Paraller Cursor in Nested Loops.


LOOP AT lt_data1 INTO lwa_data1.
LOOP AT lt_data2 INTO lwa_data2 WHERE vbeln = lwa_data2-vbeln.
WRITE: / lwa_data1-vbeln, lwa_data1-erdat, lwa_data1-erzet, lwa_data1-ernam,
lwa_data2-posnr,lwa_data2-matnr.
ENDLOOP.
ENDLOOP.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy