topic Re: Pegging in Application Development and Automation Discussions

Pegging

Former Member — Tue, 03 Jul 2007 11:31:09 GMT

Hi gurus

Can anybody tell me how to use md_pegging.

The mandatory fields delks and delnr point to structures .

Please let me know on its usage and lower level where used.

regards

sharada

Re: Pegging

Former Member — Tue, 03 Jul 2007 11:35:19 GMT

Hi Sharada,

Please use function module MD_PEGGING (transaction SE37) to get pegging information.

Please see Notes in Service Market Place - 393437 and 458996 for Pegging in APO. Also see notes 698427, 704583 for more details on Fixed Pegging.

Hope this helps.

Reward if useful!

Re: Pegging

Former Member — Tue, 03 Jul 2007 11:36:17 GMT

Please see Notes in Service Market Place - 393437 and 458996 for Pegging in APO. Also see notes 698427, 704583 for more details on Fixed Pegging.

Hope this helps.

regards

ravish

<b>reward if useful plz</b>

Re: Pegging

Former Member — Tue, 03 Jul 2007 12:42:27 GMT

Hi,

Here is a sample program...... you can peg by production order.

report zrich_0003.

data: begin of mdrqx occurs 50.

include structure mdrq.

data: end of mdrqx.

parameters: p_matnr type mara-matnr,

p_werks type marc-werks, " Planning Plant

p_aufnr type aufk-aufnr.

data: werks type marc-werks.

data: matnr type mara-matnr.

data: delnr type mdps-del12.

perform prod_order using P_matnr

p_werks

p_aufnr.

*********************************************************************

PROD_ORDER

*********************************************************************

form prod_order using matnr

werks

aufnr.

edelkz = 'FE' -- Production Order
edelkz = 'PA' -- Planned Order

call function 'MD_PEGGING_NODIALOG'

exporting

edelet = 0000

edelkz = 'FE'

edelnr = aufnr

edelps = 000001

ematnr = matnr

ewerks = werks

tables

imdrqx = mdrqx

exceptions

error = 1

no_requirements_found = 2

order_not_found = 3

others = 4.

loop at mdrqx where DELKZ = 'VC'. " VC is sales order

write:/ mdrqx-DELKZ, mdrqx-matnr, mdrqx-planr+0(10),

mdrqx-planr+10(6) .

endloop.

endform.

Regards