topic Re: at new statement problem in Application Development and Automation Discussions

at new statement problem

Former Member — Sat, 19 Jul 2008 06:42:30 GMT

HI,

I am making a report in which i want to use the at new statement so that i can perform the calculation for it but it is not performing the calculation. plzz provide me guidelines to solve this problem.

SORT ITAB1 BY ITEMID.

LOOP AT ITAB1.

AT NEW ITEMID.

ITPL-MATNR = ITAB1-ITEMID.

ITPL-GSMNG = 0.

APPEND ITPL.

ENDAT.

ENDLOOP.

LOOP AT ITPL.

LOOP AT ITAB1 WHERE ITEMID = ITPL-MATNR.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

ENDLOOP.

MODIFY ITPL.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 06:49:07 GMT

Hi,

You can have control staments within the loop only for C, N, D, T, X type fields.

Is ITEMID any of these data types?

Regards,

Subramanian

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 06:49:21 GMT

hi give the total code then that will be easy for us to review

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 06:49:23 GMT

hi,

The problem is that while using AT NEW the other Variable svalue is replaced by '*'. So Before AT New Statement store the variable in some other Variables and use new Variables in the Calculation.

Regards

Sumit Agarwal

Re: at new statement problem

rajesh_akarte2 — Sat, 19 Jul 2008 06:50:05 GMT

hi,

Check the position of the field ITEMID in ur internal table declaration . Try making it as first field in ur internal table.

Regards,

Rajesh Akarte

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 06:51:05 GMT

Can u post full program

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 07:01:59 GMT

hi,

this is the code which i am using right now:-

TABLES: VBAK,VBAP,MARA.

************BEGIN - DATA DECLARATION IN ITAB*****************

DATA: BEGIN OF ITAB OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB.

DATA: BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB1.

**********END - DATA DECLARATION IN ITAB*****************

************BEGIN - ITAB FOR PL.ORDR********************

DATA: BEGIN OF ITPL OCCURS 0,

MATNR LIKE AFPO-MATNR, "Material Number

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

PLNUM LIKE AFPO-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

AUFNR LIKE AFPO-AUFNR, "Order Number

TOT LIKE PLAF-GSMNG, "

END OF ITPL.

************END - ITAB FOR PL.ORDR***********************

***********BEGIN - ITAB FOR PRD.ORDR********************

DATA: BEGIN OF ITPO OCCURS 0,

MATNR LIKE AFPO-MATNR, "Material Number

KDAUF LIKE AFPO-KDAUF, "Sales Order Number

KDPOS LIKE AFPO-KDPOS, "Item Number in Sales Order

PLNUM LIKE AFPO-PLNUM, "Planned order number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

AUFNR LIKE AFPO-AUFNR, "Order Number

TOT LIKE PLAF-GSMNG, "

END OF ITPO.

***********END - ITAB FOR PRD.ORDR********************

***********BEGIN - SELECTION SCREEN AND PARAMETERS AND VARIABLES**********

PARAMETERS : PLANT LIKE VBAP-WERKS OBLIGATORY.

SELECT-OPTIONS: SO_ORD FOR VBAK-VBELN,

DIV FOR MARA-SPART,

SO_DATE FOR VBAK-ERDAT,

P_MATNR FOR VBAP-MATNR.

***********END - SELECTION SCREEN AND PARAMETERS**********

**********BEGIN - DATA RETERIVAL FROM TABLES**************************

SELECT B_{MATNR A}VBELN A_{ERDAT B}WERKS B_{POSNR C}SPART C_{MEINS C}MTART C_{NTGEW C}GEWEI

FROM VBAK AS A

INNER JOIN VBAP AS B ON B_{VBELN = A}VBELN

INNER JOIN MARA AS C ON C_{MATNR = B}MATNR AND C_{SPART = B}SPART

INTO TABLE ITAB WHERE C_{MTART = 'FERT' AND B}WERKS = PLANT AND A_{VBELN IN SO_ORD AND C}SPART IN DIV AND A_{ERDAT IN SO_DATE AND B}MATNR IN P_MATNR.

ITAB1[] = ITAB[].

SORT ITAB1 BY MATNR.

**********END - DATA RETERIVAL FROM TABLES**************************

******BEGIN - TAKING DATA FROM TABLE TO ITPL AND ITPO********

LOOP AT ITAB.

REFRESH ITPL.

SELECT MATNR KDAUF KDPOS PLNUM GSMNG AUFNR FROM PLAF INTO TABLE ITPL WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR.

LOOP AT ITPL.

ITAB-PLNUM = ITPL-PLNUM.

ITAB-GSMNG = ITPL-GSMNG.

ITAB-MATNR = ITPL-MATNR.

ENDLOOP.

REFRESH ITPO.

SELECT MATNR KDAUF KDPOS PLNUM PSMNG AUFNR FROM AFPO INTO TABLE ITPO WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR .

LOOP AT ITPO.

ITAB-AUFNR = ITPO-AUFNR.

ITAB-PSMNG = ITPO-PSMNG.

ITAB-MATNR = ITPL-MATNR.

ENDLOOP.

SELECT SINGLE MAKTG FROM MAKT INTO ITAB1-ITEMDESC WHERE MATNR = ITAB1-MATNR.

MODIFY ITAB.

ENDLOOP.

APPEND LINES OF ITPO TO ITPL.

SORT ITAB1 BY MATNR.

LOOP AT ITAB1.

AT NEW MATNR.

ITPL-MATNR = ITAB-MATNR.

ITPL-GSMNG = 0.

APPEND ITPL.

ENDAT.

ENDLOOP.

LOOP AT ITPL.

LOOP AT ITAB1 WHERE MATNR = ITPL-MATNR.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

ENDLOOP.

MODIFY ITPL.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 07:02:51 GMT

Hi Ricx



SORT ITAB1 BY ITEMID.

LOOP AT ITAB1.

ITPL-MATNR = ITAB1-ITEMID.
ITPL-GSMNG = 0.

AT NEW ITEMID.
APPEND ITPL.
ENDAT.

ENDLOOP.

LOOP AT ITPL.
LOOP AT ITAB1 WHERE ITEMID = ITPL-MATNR.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

ENDLOOP.

MODIFY ITPL.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

In AT NEW control statement the problem is if the Right side fields of ITEMID will be '*' check this in Debugging... so thats why assign them before.

Hope this would solve your issue..

If any queries revert back..

Regards

Narin Nandivada

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 07:10:43 GMT

hi,

I had changed the code as us said but still it is not giving the desired result. here are the changes:-

TABLES: VBAK,VBAP,MARA.

************BEGIN - DATA DECLARATION IN ITAB*****************

DATA: BEGIN OF ITAB OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB.

DATA: BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB1.

**********END - DATA DECLARATION IN ITAB*****************

************BEGIN - ITAB FOR PL.ORDR********************

DATA: BEGIN OF ITPL OCCURS 0,

MATNR LIKE AFPO-MATNR, "Material Number

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

PLNUM LIKE AFPO-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

AUFNR LIKE AFPO-AUFNR, "Order Number

TOT LIKE PLAF-GSMNG, "

END OF ITPL.

************END - ITAB FOR PL.ORDR***********************

***********BEGIN - ITAB FOR PRD.ORDR********************

DATA: BEGIN OF ITPO OCCURS 0,

MATNR LIKE AFPO-MATNR, "Material Number

KDAUF LIKE AFPO-KDAUF, "Sales Order Number

KDPOS LIKE AFPO-KDPOS, "Item Number in Sales Order

PLNUM LIKE AFPO-PLNUM, "Planned order number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

AUFNR LIKE AFPO-AUFNR, "Order Number

TOT LIKE PLAF-GSMNG, "

END OF ITPO.

***********END - ITAB FOR PRD.ORDR********************

***********BEGIN - SELECTION SCREEN AND PARAMETERS AND VARIABLES**********

PARAMETERS : PLANT LIKE VBAP-WERKS OBLIGATORY.

SELECT-OPTIONS: SO_ORD FOR VBAK-VBELN,

DIV FOR MARA-SPART,

SO_DATE FOR VBAK-ERDAT,

P_MATNR FOR VBAP-MATNR.

***********END - SELECTION SCREEN AND PARAMETERS**********

**********BEGIN - DATA RETERIVAL FROM TABLES**************************

SELECT B_{MATNR A}VBELN A_{ERDAT B}WERKS B_{POSNR C}SPART C_{MEINS C}MTART C_{NTGEW C}GEWEI

FROM VBAK AS A

INNER JOIN VBAP AS B ON B_{VBELN = A}VBELN

INNER JOIN MARA AS C ON C_{MATNR = B}MATNR AND C_{SPART = B}SPART

INTO TABLE ITAB WHERE C_{MTART = 'FERT' AND B}WERKS = PLANT AND A_{VBELN IN SO_ORD AND C}SPART IN DIV AND A_{ERDAT IN SO_DATE AND B}MATNR IN P_MATNR.

ITAB1[] = ITAB[].

SORT ITAB1 BY MATNR.

**********END - DATA RETERIVAL FROM TABLES**************************

******BEGIN - TAKING DATA FROM TABLE TO ITPL AND ITPO********

LOOP AT ITAB.

REFRESH ITPL.

SELECT MATNR KDAUF KDPOS PLNUM GSMNG AUFNR FROM PLAF INTO TABLE ITPL WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR.

LOOP AT ITPL.

ITAB-PLNUM = ITPL-PLNUM.

ITAB-GSMNG = ITPL-GSMNG.

ITAB-MATNR = ITPL-MATNR.

ENDLOOP.

REFRESH ITPO.

SELECT MATNR KDAUF KDPOS PLNUM PSMNG AUFNR FROM AFPO INTO TABLE ITPO WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR .

LOOP AT ITPO.

ITAB-AUFNR = ITPO-AUFNR.

ITAB-PSMNG = ITPO-PSMNG.

ITAB-MATNR = ITPL-MATNR.

ENDLOOP.

SELECT SINGLE MAKTG FROM MAKT INTO ITAB1-ITEMDESC WHERE MATNR = ITAB1-MATNR.

MODIFY ITAB.

ENDLOOP.

APPEND LINES OF ITPO TO ITPL.

SORT ITAB1 BY MATNR.

LOOP AT ITAB1.

ITPL-MATNR = ITAB1-MATNR.

ITPL-GSMNG = 0.

AT NEW MATNR.

APPEND ITPL.

ENDAT.

ENDLOOP.

LOOP AT ITPL.

LOOP AT ITAB1 WHERE MATNR = ITPL-MATNR.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

ENDLOOP.

MODIFY ITPL.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 07:19:59 GMT

Hi,

In yuor program check this code ,

LOOP AT ITPO.
ITAB-AUFNR = ITPO-AUFNR.
ITAB-PSMNG = ITPO-PSMNG.
ITAB-MATNR = ITPL-MATNR.    " If this is the value you are 
" using in below SELECT statement then deffinately there it is 
" ITAB-MATNR   not  ITAB1-MATNR

ENDLOOP.

*SELECT SINGLE MAKTG FROM MAKT INTO ITAB1-ITEMDESC WHERE MATNR =
ITAB1-MATNR.   " Here you are fetching data matnr = ITAB1-MATNR 
" but within the loop there is no value corresponding to that 
"  TAB1-MATNR . So you will not get any value. I think it is  
"   ITAB-MATNR   instead of   ITAB1-MATNR   Check this .
MODIFY ITAB.
ENDLOOP.

APPEND LINES OF ITPO TO ITPL.

SORT ITAB1 BY MATNR.

LOOP AT ITAB1.

AT NEW MATNR.

ITPL-MATNR = ITAB-MATNR.
ITPL-GSMNG = 0.

APPEND ITPL.

ENDAT.
ENDLOOP.

Regards,

Rajitha.

Edited by: Rajitha Muthineni on Jul 19, 2008 12:54 PM

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 08:17:55 GMT

HI,

I had tried to change the code but it is displaying the same result set .

tell me what should i do?

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 09:17:16 GMT

Hi,

First main thing is in your program the first SELECT statement

is returning SY-SUBRC = 4.

Chek the select statement . If There is no records in any

internal table then how can you get the output ?

Go to Debugging and see values in ITAB . Nothing is there in

that internal table . Because SY-SUBRC NE 0.

check your code , you are selecting MAKTG into ITAB1-ITEMDESC and then you are modifying ITAB.

You need to modify ITAB1.

And also in your

SELECT SINGLE MAKTG FROM MAKT INTO ITAB1-ITEMDESC WHERE MATNR = ITAB1-MATNR.

MODIFY ITAB.

Regards,

Rajitha.

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 09:25:38 GMT

Hi Ricx,

Use the keyword SUM inside the at statement...

SORT ITAB1 BY ITEMID.

LOOP AT ITAB1.

AT NEW ITEMID.

ITPL-MATNR = ITAB1-ITEMID.

ITPL-GSMNG = 0.

APPEND ITPL.

ENDAT.

ENDLOOP.

LOOP AT ITPL.

LOOP AT ITAB1 WHERE ITEMID = ITPL-MATNR.

at first.

sum. "( all numeric field willl be summed up inside this statement.)

endat.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

ENDLOOP.

MODIFY ITPL.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

With luck,

Pritam.

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 09:40:27 GMT

HI PRITAM,

I had added the code of sum statement and it is still not working .i had checked in the debug mode and there when last loop starts after modifying ITPL the error occurs and the output is displayed as it is without performing calculation.

here's d code i am using now:-

TABLES: VBAK,VBAP,MARA.

************BEGIN - DATA DECLARATION IN ITAB*****************

DATA: BEGIN OF ITAB OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB.

DATA: BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB1.

**********END - DATA DECLARATION IN ITAB*****************

************BEGIN - ITAB FOR PL.ORDR********************

DATA: BEGIN OF ITPL OCCURS 0,

MATNR LIKE PLAF-MATNR, "Material Number

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

AUFNR LIKE PLAF-AUFNR, "Order Number

END OF ITPL.

************END - ITAB FOR PL.ORDR***********************

***********BEGIN - ITAB FOR PRD.ORDR********************

DATA: BEGIN OF ITPO OCCURS 0,

MATNR LIKE AFPO-MATNR, "Material Number

KDAUF LIKE AFPO-KDAUF, "Sales Order Number

KDPOS LIKE AFPO-KDPOS, "Item Number in Sales Order

PLNUM LIKE AFPO-PLNUM, "Planned order number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

AUFNR LIKE AFPO-AUFNR, "Order Number

END OF ITPO.

***********END - ITAB FOR PRD.ORDR********************

***********BEGIN - SELECTION SCREEN AND PARAMETERS AND VARIABLES**********

PARAMETERS : PLANT LIKE VBAP-WERKS OBLIGATORY.

SELECT-OPTIONS: SO_ORD FOR VBAK-VBELN,

DIV FOR MARA-SPART,

SO_DATE FOR VBAK-ERDAT,

P_MATNR FOR VBAP-MATNR.

***********END - SELECTION SCREEN AND PARAMETERS**********

**********BEGIN - DATA RETERIVAL FROM TABLES**************************

SELECT B_{MATNR A}VBELN A_{ERDAT B}WERKS B_{POSNR C}SPART C_{MEINS C}MTART C_{NTGEW C}GEWEI

FROM VBAK AS A

INNER JOIN VBAP AS B ON B_{VBELN = A}VBELN

INNER JOIN MARA AS C ON C_{MATNR = B}MATNR AND C_{SPART = B}SPART

INTO TABLE ITAB WHERE C_{MTART = 'FERT' AND B}WERKS = PLANT AND A_{VBELN IN SO_ORD AND C}SPART IN DIV AND A_{ERDAT IN SO_DATE AND B}MATNR IN P_MATNR.

ITAB1[] = ITAB[].

SORT ITAB1 BY VBELN MATNR.

**********END - DATA RETERIVAL FROM TABLES**************************

******BEGIN - TAKING DATA FROM TABLE TO ITPL AND ITPO********

LOOP AT ITAB.

REFRESH ITPL.

SELECT MATNR KDAUF KDPOS PLNUM GSMNG AUFNR FROM PLAF INTO TABLE ITPL WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR.

LOOP AT ITPL.

ITAB-PLNUM = ITPL-PLNUM.

ITAB-GSMNG = ITPL-GSMNG.

ITAB-MATNR = ITPL-MATNR.

ENDLOOP.

REFRESH ITPO.

SELECT MATNR KDAUF KDPOS PLNUM PSMNG AUFNR FROM AFPO INTO TABLE ITPO WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR.

LOOP AT ITPO.

ITAB-AUFNR = ITPO-AUFNR.

ITAB-PSMNG = ITPO-PSMNG.

ITAB-MATNR = ITPO-MATNR.

ENDLOOP.

MODIFY ITAB.

ENDLOOP.

APPEND LINES OF ITPO TO ITPL.

SORT ITPO BY MATNR.

LOOP AT ITAB1.

AT NEW MATNR.

ITPL-MATNR = ITAB1-MATNR.

ITPL-GSMNG = 0.

APPEND ITPL.

ENDAT.

ENDLOOP.

LOOP AT ITPL.

LOOP AT ITAB1 WHERE MATNR = ITPL-MATNR.

AT FIRST.

SUM.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

ENDAT.

ENDLOOP.

MODIFY ITPL.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

Edited by: ricx .s on Jul 19, 2008 11:40 AM

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 09:53:12 GMT

Hi Ricx,

i am not getting your requirement , however either display the value inside the AT statement where you are doing the SUM or store the value of of summation in another variable inside the AT.

With luck,

Pritam.

Re: at new statement problem

Former Member — Sat, 19 Jul 2008 10:53:10 GMT

hi,

the output which i am getting right now is:-

200637 204.000

220644 100.000

220644 304.000

200637 100.000

but i want to have output:-

200637 404

220644 404

these vales are ciming from the ITPL and i am not able to display the desiered result ,plzz provide me guidelines for it ...

Edited by: ricx .s on Jul 22, 2008 6:06 AM

Re: at new statement problem

former_member70391 — Tue, 22 Jul 2008 04:56:58 GMT

Hi,

Try this code,

LOOP AT ITPL.

Read Table ITAB1 with Key MATNR = ITPL-MATNR.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

modify itpl index sy-tabix.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-GSMNG.

ENDLOOP.

Thanks & Regards,

Nagaraj Kalbavi

Re: at new statement problem

kesavadas_thekkillath — Tue, 22 Jul 2008 05:09:51 GMT

ur appendng itpl....

as per ur code itpl consists of matnr first...then how can u append itpl instead of modify....

just keep a bupoint while appending ITPL...there will be a problem...just check it out...

ur process logic is incorrect....

Re: at new statement problem

Former Member — Tue, 22 Jul 2008 05:14:49 GMT

Hi Nagraj and Keshu,

i had tried the code u had told but it is giving the run time error.. at endloop after the line:- " modify itpl index sy-tabix."

the full code which i am using after the modification told by you is:-

TABLES: VBAK,VBAP,MARA.

************BEGIN - DATA DECLARATION IN ITAB*****************

DATA: BEGIN OF ITAB OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB.

DATA: BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE VBAP-MATNR, "Material Number

VBELN LIKE VBAK-VBELN, "Sales Document

ERDAT LIKE VBAK-ERDAT, "Date on Which Record Was Created

WERKS LIKE VBAP-WERKS, "Plant (Own or External)

POSNR LIKE VBAP-POSNR, "Sales Document Item

SPART LIKE MARA-SPART, "Division

MEINS LIKE MARA-MEINS, "Unit Of Measurment

MTART LIKE MARA-MTART, "Material Type

NTGEW LIKE MARA-NTGEW, "Net Weight

GEWEI LIKE MARA-GEWEI, "Weight Unit

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

AUFNR LIKE AFPO-AUFNR, "Order Number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

ITEMDESC LIKE MAKT-MAKTX, "Item Description

TOTWT1 LIKE PLAF-GSMNG, "Calculation 1

TOTWT2 LIKE AFPO-PSMNG, "Calculation 2

WTKG LIKE MARA-NTGEW, "Net Weight

TOT LIKE PLAF-GSMNG, "

END OF ITAB1.

**********END - DATA DECLARATION IN ITAB*****************

************BEGIN - ITAB FOR PL.ORDR********************

DATA: BEGIN OF ITPL OCCURS 0,

MATNR LIKE PLAF-MATNR, "Material Number

KDAUF LIKE PLAF-KDAUF, "Sales Order Number

KDPOS LIKE PLAF-KDPOS, "Item Number in Sales Order

PLNUM LIKE PLAF-PLNUM, "Planned order number

GSMNG LIKE PLAF-GSMNG, "Total planned order quantity

AUFNR LIKE PLAF-AUFNR, "Order Number

VQTY LIKE PLAF-GSMNG,

END OF ITPL.

************END - ITAB FOR PL.ORDR***********************

***********BEGIN - ITAB FOR PRD.ORDR********************

DATA: BEGIN OF ITPO OCCURS 0,

MATNR LIKE AFPO-MATNR, "Material Number

KDAUF LIKE AFPO-KDAUF, "Sales Order Number

KDPOS LIKE AFPO-KDPOS, "Item Number in Sales Order

PLNUM LIKE AFPO-PLNUM, "Planned order number

PSMNG LIKE AFPO-PSMNG, "Order item quantity

AUFNR LIKE AFPO-AUFNR, "Order Number

VQTY LIKE PLAF-GSMNG,

END OF ITPO.

***********END - ITAB FOR PRD.ORDR********************

***********BEGIN - SELECTION SCREEN AND PARAMETERS AND VARIABLES**********

PARAMETERS : PLANT LIKE VBAP-WERKS OBLIGATORY.

SELECT-OPTIONS: SO_ORD FOR VBAK-VBELN,

DIV FOR MARA-SPART,

SO_DATE FOR VBAK-ERDAT,

P_MATNR FOR VBAP-MATNR.

***********END - SELECTION SCREEN AND PARAMETERS**********

**********BEGIN - DATA RETERIVAL FROM TABLES**************************

SELECT B_{MATNR A}VBELN A_{ERDAT B}WERKS B_{POSNR C}SPART C_{MEINS C}MTART C_{NTGEW C}GEWEI

FROM VBAK AS A

INNER JOIN VBAP AS B ON B_{VBELN = A}VBELN

INNER JOIN MARA AS C ON C_{MATNR = B}MATNR AND C_{SPART = B}SPART

INTO TABLE ITAB WHERE C_{MTART = 'FERT' AND B}WERKS = PLANT AND A_{VBELN IN SO_ORD AND C}SPART IN DIV AND A_{ERDAT IN SO_DATE AND B}MATNR IN P_MATNR.

ITAB1[] = ITAB[].

SORT ITAB1 BY VBELN MATNR.

**********END - DATA RETERIVAL FROM TABLES**************************

******BEGIN - TAKING DATA FROM TABLE TO ITPL AND ITPO********

LOOP AT ITAB.

REFRESH ITPL.

SELECT MATNR KDAUF KDPOS PLNUM GSMNG AUFNR FROM PLAF INTO TABLE ITPL WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR.

LOOP AT ITPL.

ITAB-PLNUM = ITPL-PLNUM.

ITAB-GSMNG = ITPL-GSMNG.

ITAB-MATNR = ITPL-MATNR.

ENDLOOP.

REFRESH ITPO.

SELECT MATNR KDAUF KDPOS PLNUM PSMNG AUFNR FROM AFPO INTO TABLE ITPO WHERE

KDAUF = ITAB-VBELN AND

KDPOS = ITAB-POSNR.

LOOP AT ITPO.

ITAB-AUFNR = ITPO-AUFNR.

ITAB-PSMNG = ITPO-PSMNG.

ITAB-MATNR = ITPO-MATNR.

ENDLOOP.

MODIFY ITAB.

ENDLOOP.

APPEND LINES OF ITPO TO ITPL.

SORT ITPO BY MATNR.

LOOP AT ITPL.

READ TABLE ITAB1 WITH KEY MATNR = ITPL-MATNR.

ITPL-GSMNG = ITPL-GSMNG + ITAB1-GSMNG.

modify itpl index sy-tabix.

ENDLOOP.

LOOP AT ITPL.

WRITE: / ITPL-MATNR,ITPL-gsmng.

ENDLOOP.

Edited by: ricx .s on Jul 22, 2008 7:15 AM

Re: at new statement problem

former_member70391 — Tue, 22 Jul 2008 05:19:28 GMT

Hi Rich,

Remove Index sy-tabix from Modify ITPL and let me know does it work.

or use Modify ITPL transporting field name.

Thanks & Regards,

Nagaraj Kalbavi

Edited by: Nagaraj Kalbavi on Jul 22, 2008 7:21 AM