Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

EXPORT statement

former_member368216
Participant
0 Kudos

How to findout from where we are getting the data to this statement.

IMPORT MDTBX FROM DATABASE MDTC(AR) ID IDTNUM

Where to findout the 'Export MDTBX'.

Thanks,

Ashok

1 ACCEPTED SOLUTION

RichHeilman
Developer Advocate
Developer Advocate
0 Kudos

Not a easy thing to do. Maybe you can run a scan, but it would take a while.

Check program RPR_ABAP_SOURCE_SCAN

Regards,

Rich Heilman

4 REPLIES 4

RichHeilman
Developer Advocate
Developer Advocate
0 Kudos

Not a easy thing to do. Maybe you can run a scan, but it would take a while.

Check program RPR_ABAP_SOURCE_SCAN

Regards,

Rich Heilman

0 Kudos

Hi Rich,

Thanks for the suggestion. I have tried this and could not find the required. If any other please help.

Regards,

Ashok

Former Member
0 Kudos

hi

good

go through this report, which ll give you the idea of using MDTBX,

REPORT ZMRPTABLE.

TABLES: MDKP, "Header Data for MRP Document

MDTB, "MRP table

MDTC, "Aggregated MRP table items

T457T. "Description of MRP elements

DATA: BEGIN OF MDTBX OCCURS 0.

INCLUDE STRUCTURE MDTB.

DATA: END OF MDTBX.

SELECT-OPTIONS: PLANT FOR MDKP-PLWRK OBLIGATORY,

MATNR FOR MDKP-MATNR OBLIGATORY.

CLEAR: MDKP, MDTB.

SELECT * FROM MDKP WHERE DTART EQ 'MD'

AND MATNR IN MATNR

AND PLWRK IN PLANT.

WRITE:/ MDKP-MATNR, MDKP-PLWRK.

IF MDKP-CFLAG EQ 'X'.

CLEAR MDTBX. REFRESH MDTBX.

IMPORT MDTBX FROM DATABASE MDTC(AR) ID MDKP-DTNUM.

LOOP AT MDTBX.

MOVE MDTBX TO MDTB.

SELECT SINGLE * FROM T457T WHERE SPRAS = 'E'

AND DELKZ = MDTB-DELKZ.

IF MDTB-PLUMI = '-'. MULTIPLY MDTB-MNG01 BY -1. ENDIF.

WRITE:/ MDTB-DAT00, T457T-DELB1, MDTB-VSTAT,

MDTB-MNG01, MDTB-LGORT.

ENDLOOP.

ELSE.

SELECT * FROM MDTB

WHERE DTNUM EQ MDKP-DTNUM

ORDER BY PRIMARY KEY.

SELECT SINGLE * FROM T457T WHERE SPRAS = 'E'

AND DELKZ = MDTB-DELKZ.

IF MDTB-PLUMI = '-'. MULTIPLY MDTB-MNG01 BY -1. ENDIF.

WRITE:/ MDTB-DAT00, T457T-DELB1, MDTB-VSTAT,

MDTB-MNG01, MDTB-LGORT.

ENDSELECT.

ENDIF.

ENDSELECT.

thanks

mrutyun^

sridhar_k1
Active Contributor
0 Kudos

EXPORT used in Fm WRITE_MRP_LIST.

Regards

Sridhar