Community
Application Development and Automation 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
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Dump error while executing this unicode program.....

Former Member

‎2009 May 06 12:39 PM

0 Likes
3,070

Hi,

I got a program for 'Production Order Quantity Change Daily Checklist' ,but while executing i got the dump error from the following program stating tat,

The current statement is only defined for character-type data objects.

Error in the ABAP Application Program

The current ABAP program "ZPROD" had to be terminated because it has

come across a statement that unfortunately cannot be executed.

For the statement

"READ DATASET ... INTO f"

only character-type data objects are supported at the argument position

"f".

In this case. the operand "f" has the non-character-type "u". The

current program is a Unicode program. In the Unicode context, the type

'X' or structures containing not only character-type components are

regarded as non-character-type.

Program:

REPORT ZPPORDER LINE-SIZE 180 NO STANDARD PAGE HEADING

LINE-COUNT 058(001).

TABLES: AUFK, "Order master data

AFKO, "Order header data PP orders

RESB, "Reservation/dependent requirements

MAST, "Material to BOM Link

STKO, "BOM Header

STPO. "BOM item

DATA: BEGIN OF WA,

AUART TYPE AUFK-AUART,

AUFNR TYPE AUFK-AUFNR,

AEDAT TYPE AUFK-AEDAT,

AENAM TYPE AUFK-AENAM,

WERKS TYPE AUFK-WERKS,

PLNBEZ TYPE AFKO-PLNBEZ,

GAMNG TYPE AFKO-GAMNG,

GASMG TYPE AFKO-GASMG,

MATNR TYPE RESB-MATNR,

POSNR TYPE RESB-POSNR,

BDMNG TYPE RESB-BDMNG,

BMENG TYPE STKO-BMENG,

MENGE TYPE STPO-MENGE,

END OF WA,

ITAB LIKE SORTED TABLE OF WA WITH NON-UNIQUE KEY AUFNR POSNR.

DATA: BEGIN OF ITAB2 OCCURS 0.

INCLUDE STRUCTURE WA.

DATA: END OF ITAB2.

DATA: BEGIN OF ITAB_AUFK OCCURS 0,

AUART LIKE AUFK-AUART,

AUFNR LIKE AUFK-AUFNR,

POSNR LIKE RESB-POSNR,

AEDAT LIKE AUFK-AEDAT,

AENAM LIKE AUFK-AENAM,

WERKS LIKE AUFK-WERKS,

PLNBEZ LIKE AFKO-PLNBEZ,

GAMNG(7) TYPE P DECIMALS 0,

GASMG(7) TYPE P DECIMALS 0,

MATNR LIKE RESB-MATNR,

BDMNG(7) TYPE P DECIMALS 0,

BMENG(7) TYPE P DECIMALS 0,

MENGE(7) TYPE P DECIMALS 3.

DATA: END OF ITAB_AUFK.

DATA: FDATE LIKE SY-DATUM,

LDATE LIKE SY-DATUM.

DATA: X_AUFNR LIKE AFKO-AUFNR,

X_MENGE(7) TYPE P DECIMALS 0,

X_ERR(3).

DATA: W_DATASET1(500) VALUE '/usr/sap/trans/data/'.

SELECT-OPTIONS T_WERKS FOR AUFK-WERKS OBLIGATORY.

SELECT-OPTIONS T_AUFNR FOR AUFK-AUFNR.

SELECT-OPTIONS T_AEDAT FOR AUFK-AEDAT.

PARAMETERS PDATA LIKE W_DATASET1.

CONCATENATE W_DATASET1 PDATA INTO W_DATASET1.

PERFORM F_COLLECT_DATA.

FORM F_COLLECT_DATA.

OPEN DATASET W_DATASET1 FOR INPUT IN TEXT MODE encoding default.

DO.

IF sy-subrc <> 0.

EXIT.

ENDIF.

READ DATASET W_DATASET1 INTO WA.

APPEND WA TO ITAB2.

ENDDO.

CLOSE DATASET W_DATASET1.

SELECT AAUFNR AAUART AAEDAT AAENAM A~WERKS

BPLNBEZ BGAMNG B~GASMG

CMATNR CBDMNG C~POSNR

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM ( AUFK AS A

INNER JOIN AFKO AS B ON BAUFNR = AAUFNR

INNER JOIN RESB AS C ON CAUFNR = AAUFNR )

WHERE A~AEDAT IN T_AEDAT

AND A~WERKS IN T_WERKS.

LOOP AT ITAB INTO WA.

CLEAR MAST.

SELECT SINGLE * FROM MAST WHERE MATNR = WA-PLNBEZ

AND WERKS = WA-WERKS.

CLEAR STKO.

SELECT SINGLE * FROM STKO WHERE STLNR = MAST-STLNR

AND STLAL = MAST-STLAL.

CLEAR STPO.

SELECT SINGLE * FROM STPO WHERE STLNR = MAST-STLNR

AND POSNR = WA-POSNR.

WA-BMENG = STKO-BMENG.

WA-MENGE = STPO-MENGE.

MODIFY ITAB FROM WA.

AT NEW AUFNR.

SKIP.

ENDAT.

LOOP AT ITAB2 WHERE AUFNR = WA-AUFNR

AND POSNR = WA-POSNR.

IF ITAB2-GAMNG <> WA-GAMNG OR

ITAB2-GASMG <> WA-GASMG OR

ITAB2-BDMNG <> WA-BDMNG.

CLEAR X_MENGE.

IF ITAB2-BMENG <> 0.

X_MENGE = ITAB2-GAMNG / ITAB2-BMENG * ITAB2-MENGE.

ENDIF.

CLEAR X_ERR.

IF ITAB2-BDMNG <> X_MENGE.

X_ERR = 'Err'.

ENDIF.

FORMAT COLOR COL_TOTAL.

WRITE: / ITAB2-AUART UNDER 'Type',

ITAB2-AUFNR UNDER 'Prod Order',

ITAB2-AEDAT UNDER 'Last Chg Dt',

ITAB2-AENAM UNDER 'Last Chg by',

ITAB2-WERKS UNDER 'Plant',

ITAB2-PLNBEZ UNDER 'Material',

(10) ITAB2-GAMNG UNDER 'Order Qty' DECIMALS 0,

(10) ITAB2-GASMG UNDER 'Scrap Qty' DECIMALS 0,

ITAB2-POSNR UNDER 'Item',

ITAB2-MATNR UNDER 'Component Req',

(10) ITAB2-BDMNG UNDER 'Req Qty' DECIMALS 0,

X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL,

ITAB2-BMENG UNDER 'BOM Base',

ITAB2-MENGE UNDER 'BOM Comp',

X_ERR UNDER 'Rmks' COLOR COL_TOTAL.

CLEAR X_MENGE.

IF WA-BMENG <> 0.

X_MENGE = WA-GAMNG / WA-BMENG * WA-MENGE.

ENDIF.

CLEAR X_ERR.

IF WA-BDMNG <> X_MENGE.

X_ERR = 'Err'.

ENDIF.

FORMAT COLOR OFF.

WRITE: / WA-AUART UNDER 'Type',

WA-AUFNR UNDER 'Prod Order',

WA-AEDAT UNDER 'Last Chg Dt',

WA-AENAM UNDER 'Last Chg by',

WA-WERKS UNDER 'Plant',

WA-PLNBEZ UNDER 'Material',

(10) WA-GAMNG UNDER 'Order Qty' DECIMALS 0,

(10) WA-GASMG UNDER 'Scrap Qty' DECIMALS 0,

WA-POSNR UNDER 'Item',

WA-MATNR UNDER 'Component Req',

(10) WA-BDMNG UNDER 'Req Qty' DECIMALS 0,

X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL,

WA-BMENG UNDER 'BOM Base',

WA-MENGE UNDER 'BOM Comp',

X_ERR UNDER 'Rmks' COLOR COL_TOTAL.

ENDIF.

ENDLOOP.

ENDLOOP.

LOOP AT ITAB2.

LOOP AT ITAB INTO WA WHERE AUFNR = ITAB2-AUFNR

AND POSNR = ITAB2-POSNR.

DELETE ITAB2.

ENDLOOP.

SELECT SINGLE * FROM AUFK WHERE AUFNR = ITAB2-AUFNR.

IF SY-SUBRC <> 0.

DELETE ITAB2.

ENDIF.

ENDLOOP.

OPEN DATASET W_DATASET1 FOR OUTPUT IN TEXT MODE encoding default.

LOOP AT ITAB INTO WA.

TRANSFER WA TO W_DATASET1.

ENDLOOP.

LOOP AT ITAB2 INTO WA.

TRANSFER WA TO W_DATASET1.

ENDLOOP.

CLOSE DATASET W_DATASET1.

ENDFORM.

TOP-OF-PAGE.

FORMAT COLOR COL_TOTAL.

WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME,

50 'Daily Qty Changed Checklist for Production Order',

120 SY-PAGNO.

SKIP.

WRITE: / 'Plant ', T_WERKS-LOW.

WRITE: ' Last Change Date ', T_AEDAT-LOW, ' to ', T_AEDAT-HIGH.

SKIP.

WRITE: /1 'Type',

6 'Prod Order',

17 'Last Chg Dt',

29 'Last Chg by',

42 'Plant',

49 'Material',

69 'Order Qty',

83 'Scrap Qty',

99 'Item',

105 'Component Req',

121 'Req Qty',

135 'BOM Qty',

149 'BOM Base',

163 'BOM Comp',

178 'Rmks'.

ULINE.

WRITE: / 'Previous data :- '.

FORMAT COLOR OFF.

WRITE: / 'Current data :- '.

INITIALIZATION.

LDATE = SY-DATUM.

LDATE = LDATE - 1.

FDATE = LDATE.

MOVE: FDATE TO T_AEDAT-LOW.

APPEND T_AEDAT.

PDATA = 'AE001'.

So,give me any suggestions where to customize r do rectify the error.This will be useful for me.

Advance Thnx..

13 REPLIES 13
Read only

Former Member

‎2009 May 06 12:42 PM

0 Likes
1,883

Hi

Its not able to analyze your code,check once and format before pasting

Read only

Former Member
In response to Former Member

‎2009 May 06 12:51 PM

0 Likes
1,883

REPORT ZPPORDER LINE-SIZE 180 NO STANDARD PAGE HEADING

LINE-COUNT 058(001).

TABLES: AUFK, "Order master data

AFKO, "Order header data PP orders

RESB, "Reservation/dependent requirements

MAST, "Material to BOM Link

STKO, "BOM Header

STPO. "BOM item

DATA: BEGIN OF WA,

AUART TYPE AUFK-AUART,

AUFNR TYPE AUFK-AUFNR,

AEDAT TYPE AUFK-AEDAT,

AENAM TYPE AUFK-AENAM,

WERKS TYPE AUFK-WERKS,

PLNBEZ TYPE AFKO-PLNBEZ,

GAMNG TYPE AFKO-GAMNG,

GASMG TYPE AFKO-GASMG,

MATNR TYPE RESB-MATNR,

POSNR TYPE RESB-POSNR,

BDMNG TYPE RESB-BDMNG,

BMENG TYPE STKO-BMENG,

MENGE TYPE STPO-MENGE,

END OF WA,

ITAB LIKE SORTED TABLE OF WA WITH NON-UNIQUE KEY AUFNR POSNR.

DATA: BEGIN OF ITAB2 OCCURS 0.

INCLUDE STRUCTURE WA.

DATA: END OF ITAB2.

DATA: BEGIN OF ITAB_AUFK OCCURS 0,

AUART LIKE AUFK-AUART,

AUFNR LIKE AUFK-AUFNR,

POSNR LIKE RESB-POSNR,

AEDAT LIKE AUFK-AEDAT,

AENAM LIKE AUFK-AENAM,

WERKS LIKE AUFK-WERKS,

PLNBEZ LIKE AFKO-PLNBEZ,

GAMNG(7) TYPE P DECIMALS 0,

GASMG(7) TYPE P DECIMALS 0,

MATNR LIKE RESB-MATNR,

BDMNG(7) TYPE P DECIMALS 0,

BMENG(7) TYPE P DECIMALS 0,

MENGE(7) TYPE P DECIMALS 3.

DATA: END OF ITAB_AUFK.

DATA: FDATE LIKE SY-DATUM,

LDATE LIKE SY-DATUM.

DATA: X_AUFNR LIKE AFKO-AUFNR,

X_MENGE(7) TYPE P DECIMALS 0,

X_ERR(3).

DATA: W_DATASET1(500) VALUE '/usr/sap/trans/data/'.

SELECT-OPTIONS T_WERKS FOR AUFK-WERKS OBLIGATORY.

SELECT-OPTIONS T_AUFNR FOR AUFK-AUFNR.

SELECT-OPTIONS T_AEDAT FOR AUFK-AEDAT.

PARAMETERS PDATA LIKE W_DATASET1.

CONCATENATE W_DATASET1 PDATA INTO W_DATASET1.

PERFORM F_COLLECT_DATA.

FORM F_COLLECT_DATA.

OPEN DATASET W_DATASET1 FOR INPUT IN TEXT MODE encoding default.

DO.

IF sy-subrc <> 0.

EXIT.

ENDIF.

READ DATASET W_DATASET1 INTO WA.

APPEND WA TO ITAB2.

ENDDO.

CLOSE DATASET W_DATASET1.

SELECT AAUFNR AAUART AAEDAT AAENAM A~WERKS

BPLNBEZ BGAMNG B~GASMG

CMATNR CBDMNG C~POSNR

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM ( AUFK AS A

INNER JOIN AFKO AS B ON BAUFNR = AAUFNR

INNER JOIN RESB AS C ON CAUFNR = AAUFNR )

WHERE A~AEDAT IN T_AEDAT

AND A~WERKS IN T_WERKS.

LOOP AT ITAB INTO WA.

CLEAR MAST.

SELECT SINGLE * FROM MAST WHERE MATNR = WA-PLNBEZ

AND WERKS = WA-WERKS.

CLEAR STKO.

SELECT SINGLE * FROM STKO WHERE STLNR = MAST-STLNR

AND STLAL = MAST-STLAL.

CLEAR STPO.

SELECT SINGLE * FROM STPO WHERE STLNR = MAST-STLNR

AND POSNR = WA-POSNR.

WA-BMENG = STKO-BMENG.

WA-MENGE = STPO-MENGE.

MODIFY ITAB FROM WA.

AT NEW AUFNR.

SKIP.

ENDAT.

LOOP AT ITAB2 WHERE AUFNR = WA-AUFNR

AND POSNR = WA-POSNR.

IF ITAB2-GAMNG <> WA-GAMNG OR

ITAB2-GASMG <> WA-GASMG OR

ITAB2-BDMNG <> WA-BDMNG.

CLEAR X_MENGE.

IF ITAB2-BMENG <> 0.

X_MENGE = ITAB2-GAMNG / ITAB2-BMENG * ITAB2-MENGE.

ENDIF.

CLEAR X_ERR.

IF ITAB2-BDMNG <> X_MENGE.

X_ERR = 'Err'.

ENDIF.

FORMAT COLOR COL_TOTAL.

WRITE: / ITAB2-AUART UNDER 'Type',

ITAB2-AUFNR UNDER 'Prod Order',

ITAB2-AEDAT UNDER 'Last Chg Dt',

ITAB2-AENAM UNDER 'Last Chg by',

ITAB2-WERKS UNDER 'Plant',

ITAB2-PLNBEZ UNDER 'Material',

(10) ITAB2-GAMNG UNDER 'Order Qty' DECIMALS 0,

(10) ITAB2-GASMG UNDER 'Scrap Qty' DECIMALS 0,

ITAB2-POSNR UNDER 'Item',

ITAB2-MATNR UNDER 'Component Req',

(10) ITAB2-BDMNG UNDER 'Req Qty' DECIMALS 0,

X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL,

ITAB2-BMENG UNDER 'BOM Base',

ITAB2-MENGE UNDER 'BOM Comp',

X_ERR UNDER 'Rmks' COLOR COL_TOTAL.

CLEAR X_MENGE.

IF WA-BMENG <> 0.

X_MENGE = WA-GAMNG / WA-BMENG * WA-MENGE.

ENDIF.

CLEAR X_ERR.

IF WA-BDMNG <> X_MENGE.

X_ERR = 'Err'.

ENDIF.

FORMAT COLOR OFF.

WRITE: / WA-AUART UNDER 'Type',

WA-AUFNR UNDER 'Prod Order',

WA-AEDAT UNDER 'Last Chg Dt',

WA-AENAM UNDER 'Last Chg by',

WA-WERKS UNDER 'Plant',

WA-PLNBEZ UNDER 'Material',

(10) WA-GAMNG UNDER 'Order Qty' DECIMALS 0,

(10) WA-GASMG UNDER 'Scrap Qty' DECIMALS 0,

WA-POSNR UNDER 'Item',

WA-MATNR UNDER 'Component Req',

(10) WA-BDMNG UNDER 'Req Qty' DECIMALS 0,

X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL,

WA-BMENG UNDER 'BOM Base',

WA-MENGE UNDER 'BOM Comp',

X_ERR UNDER 'Rmks' COLOR COL_TOTAL.

ENDIF.

ENDLOOP.

ENDLOOP.

LOOP AT ITAB2.

LOOP AT ITAB INTO WA WHERE AUFNR = ITAB2-AUFNR

AND POSNR = ITAB2-POSNR.

DELETE ITAB2.

ENDLOOP.

SELECT SINGLE * FROM AUFK WHERE AUFNR = ITAB2-AUFNR.

IF SY-SUBRC <> 0.

DELETE ITAB2.

ENDIF.

ENDLOOP.

OPEN DATASET W_DATASET1 FOR OUTPUT IN TEXT MODE encoding default.

LOOP AT ITAB INTO WA.

TRANSFER WA TO W_DATASET1.

ENDLOOP.

LOOP AT ITAB2 INTO WA.

TRANSFER WA TO W_DATASET1.

ENDLOOP.

CLOSE DATASET W_DATASET1.

ENDFORM.

TOP-OF-PAGE.

FORMAT COLOR COL_TOTAL.

WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME,

50 'Daily Qty Changed Checklist for Production Order',

120 SY-PAGNO.

SKIP.

WRITE: / 'Plant ', T_WERKS-LOW.

WRITE: ' Last Change Date ', T_AEDAT-LOW, ' to ', T_AEDAT-HIGH.

SKIP.

WRITE: /1 'Type',

6 'Prod Order',

17 'Last Chg Dt',

29 'Last Chg by',

42 'Plant',

49 'Material',

69 'Order Qty',

83 'Scrap Qty',

99 'Item',

105 'Component Req',

121 'Req Qty',

135 'BOM Qty',

149 'BOM Base',

163 'BOM Comp',

178 'Rmks'.

ULINE.

WRITE: / 'Previous data :- '.

FORMAT COLOR OFF.

WRITE: / 'Current data :- '.

INITIALIZATION.

LDATE = SY-DATUM.

LDATE = LDATE - 1.

FDATE = LDATE.

MOVE: FDATE TO T_AEDAT-LOW.

APPEND T_AEDAT.

PDATA = 'AE001'.

Read only

Former Member
In response to Former Member

‎2009 May 06 12:51 PM

0 Likes
1,883

Sorry i cant able to form at it....

Read only

Former Member
In response to Former Member

‎2009 May 06 12:52 PM

0 Likes
1,883

Hi,

what is error which you are getting?

Thanks,

AD

Read only

Former Member

‎2009 May 06 12:53 PM

0 Likes
1,883

Hi,

Try to format the above program, So that we can give possible solution for you....

Regards

Ramakrishna Pathi

Read only

Former Member

‎2009 May 06 1:00 PM

0 Likes
1,883 
READ DATASET W_DATASET1 INTO WA.

You change your WA type to WA(255) TYPE c.

Regards

Sathar

Read only

Former Member
In response to Former Member

‎2009 May 06 1:04 PM

0 Likes
1,883

*REPORT ZPROD.

REPORT ZPPORDER LINE-SIZE 180 NO STANDARD PAGE HEADING

LINE-COUNT 058(001).

TABLES: AUFK, "Order master data

AFKO, "Order header data PP orders

RESB, "Reservation/dependent requirements

MAST, "Material to BOM Link

STKO, "BOM Header

STPO. "BOM item

DATA: BEGIN OF WA,

AUART TYPE AUFK-AUART,

AUFNR TYPE AUFK-AUFNR,

AEDAT TYPE AUFK-AEDAT,

AENAM TYPE AUFK-AENAM,

WERKS TYPE AUFK-WERKS,

PLNBEZ TYPE AFKO-PLNBEZ,

GAMNG TYPE AFKO-GAMNG,

GASMG TYPE AFKO-GASMG,

MATNR TYPE RESB-MATNR,

POSNR TYPE RESB-POSNR,

BDMNG TYPE RESB-BDMNG,

BMENG TYPE STKO-BMENG,

MENGE TYPE STPO-MENGE,

END OF WA,

ITAB LIKE SORTED TABLE OF WA WITH NON-UNIQUE KEY AUFNR POSNR.

DATA: BEGIN OF ITAB2 OCCURS 0.

INCLUDE STRUCTURE WA.

DATA: END OF ITAB2.

DATA: BEGIN OF ITAB_AUFK OCCURS 0,

AUART LIKE AUFK-AUART,

AUFNR LIKE AUFK-AUFNR,

POSNR LIKE RESB-POSNR,

AEDAT LIKE AUFK-AEDAT,

AENAM LIKE AUFK-AENAM,

WERKS LIKE AUFK-WERKS,

PLNBEZ LIKE AFKO-PLNBEZ,

GAMNG(7) TYPE P DECIMALS 0,

GASMG(7) TYPE P DECIMALS 0,

MATNR LIKE RESB-MATNR,

BDMNG(7) TYPE P DECIMALS 0,

BMENG(7) TYPE P DECIMALS 0,

MENGE(7) TYPE P DECIMALS 3.

DATA: END OF ITAB_AUFK.

DATA: FDATE LIKE SY-DATUM,

LDATE LIKE SY-DATUM.

DATA: X_AUFNR LIKE AFKO-AUFNR,

X_MENGE(7) TYPE P DECIMALS 0,

X_ERR(3).

DATA: W_DATASET1(500) VALUE '/usr/sap/trans/data/'.

SELECT-OPTIONS T_WERKS FOR AUFK-WERKS OBLIGATORY.

SELECT-OPTIONS T_AUFNR FOR AUFK-AUFNR.

SELECT-OPTIONS T_AEDAT FOR AUFK-AEDAT.

PARAMETERS PDATA LIKE W_DATASET1.

CONCATENATE W_DATASET1 PDATA INTO W_DATASET1.

PERFORM F_COLLECT_DATA.

FORM F_COLLECT_DATA.

OPEN DATASET W_DATASET1 FOR INPUT IN TEXT MODE encoding default.

DO.

IF sy-subrc <> 0.

EXIT.

ENDIF.

READ DATASET W_DATASET1 INTO WA.

APPEND WA TO ITAB2.

ENDDO.

CLOSE DATASET W_DATASET1.

SELECT AAUFNR AAUART AAEDAT AAENAM A~WERKS

BPLNBEZ BGAMNG B~GASMG

CMATNR CBDMNG C~POSNR

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM ( AUFK AS A

INNER JOIN AFKO AS B ON BAUFNR = AAUFNR

INNER JOIN RESB AS C ON CAUFNR = AAUFNR )

WHERE A~AEDAT IN T_AEDAT

AND A~WERKS IN T_WERKS.

LOOP AT ITAB INTO WA.

CLEAR MAST.

SELECT SINGLE * FROM MAST WHERE MATNR = WA-PLNBEZ

AND WERKS = WA-WERKS.

CLEAR STKO.

SELECT SINGLE * FROM STKO WHERE STLNR = MAST-STLNR

AND STLAL = MAST-STLAL.

CLEAR STPO.

SELECT SINGLE * FROM STPO WHERE STLNR = MAST-STLNR

AND POSNR = WA-POSNR.

WA-BMENG = STKO-BMENG.

WA-MENGE = STPO-MENGE.

MODIFY ITAB FROM WA.

AT NEW AUFNR.

SKIP.

ENDAT.

LOOP AT ITAB2 WHERE AUFNR = WA-AUFNR

AND POSNR = WA-POSNR.

IF ITAB2-GAMNG <> WA-GAMNG OR

ITAB2-GASMG <> WA-GASMG OR

ITAB2-BDMNG <> WA-BDMNG.

CLEAR X_MENGE.

IF ITAB2-BMENG <> 0.

X_MENGE = ITAB2-GAMNG / ITAB2-BMENG * ITAB2-MENGE.

ENDIF.

CLEAR X_ERR.

IF ITAB2-BDMNG <> X_MENGE.

X_ERR = 'Err'.

ENDIF.

FORMAT COLOR COL_TOTAL.

WRITE: / ITAB2-AUART UNDER 'Type',

ITAB2-AUFNR UNDER 'Prod Order',

ITAB2-AEDAT UNDER 'Last Chg Dt',

ITAB2-AENAM UNDER 'Last Chg by',

ITAB2-WERKS UNDER 'Plant',

ITAB2-PLNBEZ UNDER 'Material',

(10) ITAB2-GAMNG UNDER 'Order Qty' DECIMALS 0,

(10) ITAB2-GASMG UNDER 'Scrap Qty' DECIMALS 0,

ITAB2-POSNR UNDER 'Item',

ITAB2-MATNR UNDER 'Component Req',

(10) ITAB2-BDMNG UNDER 'Req Qty' DECIMALS 0,

X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL,

ITAB2-BMENG UNDER 'BOM Base',

ITAB2-MENGE UNDER 'BOM Comp',

X_ERR UNDER 'Rmks' COLOR COL_TOTAL.

CLEAR X_MENGE.

IF WA-BMENG <> 0.

X_MENGE = WA-GAMNG / WA-BMENG * WA-MENGE.

ENDIF.

CLEAR X_ERR.

IF WA-BDMNG <> X_MENGE.

X_ERR = 'Err'.

ENDIF.

FORMAT COLOR OFF.

WRITE: / WA-AUART UNDER 'Type',

WA-AUFNR UNDER 'Prod Order',

WA-AEDAT UNDER 'Last Chg Dt',

WA-AENAM UNDER 'Last Chg by',

WA-WERKS UNDER 'Plant',

WA-PLNBEZ UNDER 'Material',

(10) WA-GAMNG UNDER 'Order Qty' DECIMALS 0,

(10) WA-GASMG UNDER 'Scrap Qty' DECIMALS 0,

WA-POSNR UNDER 'Item',

WA-MATNR UNDER 'Component Req',

(10) WA-BDMNG UNDER 'Req Qty' DECIMALS 0,

X_MENGE UNDER 'BOM Qty' COLOR COL_TOTAL,

WA-BMENG UNDER 'BOM Base',

WA-MENGE UNDER 'BOM Comp',

X_ERR UNDER 'Rmks' COLOR COL_TOTAL.

ENDIF.

ENDLOOP.

ENDLOOP.

LOOP AT ITAB2.

LOOP AT ITAB INTO WA WHERE AUFNR = ITAB2-AUFNR

AND POSNR = ITAB2-POSNR.

DELETE ITAB2.

ENDLOOP.

SELECT SINGLE * FROM AUFK WHERE AUFNR = ITAB2-AUFNR.

IF SY-SUBRC <> 0.

DELETE ITAB2.

ENDIF.

ENDLOOP.

OPEN DATASET W_DATASET1 FOR OUTPUT IN TEXT MODE encoding default.

LOOP AT ITAB INTO WA.

TRANSFER WA TO W_DATASET1.

ENDLOOP.

LOOP AT ITAB2 INTO WA.

TRANSFER WA TO W_DATASET1.

ENDLOOP.

CLOSE DATASET W_DATASET1.

ENDFORM.

TOP-OF-PAGE.

FORMAT COLOR COL_TOTAL.

WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME,

50 'Daily Qty Changed Checklist for Production Order',

120 SY-PAGNO.

SKIP.

WRITE: / 'Plant ', T_WERKS-LOW.

WRITE: ' Last Change Date ', T_AEDAT-LOW, ' to ', T_AEDAT-HIGH.

SKIP.

WRITE: /1 'Type',

6 'Prod Order',

17 'Last Chg Dt',

29 'Last Chg by',

42 'Plant',

49 'Material',

69 'Order Qty',

83 'Scrap Qty',

99 'Item',

105 'Component Req',

121 'Req Qty',

135 'BOM Qty',

149 'BOM Base',

163 'BOM Comp',

178 'Rmks'.

ULINE.

WRITE: / 'Previous data :- '.

FORMAT COLOR OFF.

WRITE: / 'Current data :- '.

INITIALIZATION.

LDATE = SY-DATUM.

LDATE = LDATE - 1.

FDATE = LDATE.

MOVE: FDATE TO T_AEDAT-LOW.

APPEND T_AEDAT.

PDATA = 'AE001'.

Read only

Former Member

‎2009 May 06 1:15 PM

0 Likes
1,883

BDK, look at the sidebar you have when posting, and you'll notice a little window called Further Markup Possibilities.

If you use the code ones, your dump or program should appear as it first appear with a normal cut and paste.

Read only

Former Member

‎2009 May 06 1:31 PM

0 Likes
1,883

Hi,

Instead of 

READ DATASET W_DATASET1 INTO WA

write particular field of WA.

i.e. 

READ DATASET W_DATASET1 INTO WA-fieldname

.

Also note that that field type should be same as W_DATASET1 type.

Or you can try field symbols. This also works in unicode

Try it,

Hope this will help you.

Read only

Former Member
In response to Former Member

‎2009 May 06 2:16 PM

0 Likes
1,883 
REPORT ZPPORDER LINE-SIZE 180 NO STANDARD PAGE HEADING
                LINE-COUNT 058(001).

TABLES: AUFK,  "Order master data
        AFKO,  "Order header data PP orders
        RESB,  "Reservation/dependent requirements
        MAST,  "Material to BOM Link
        STKO,  "BOM Header
        STPO.  "BOM item
        
data: wa(255) type c.        

 data: BEGIN OF WA,
         AUART      TYPE AUFK-AUART,
         AUFNR      TYPE AUFK-AUFNR,
         AEDAT      TYPE AUFK-AEDAT,
         AENAM      TYPE AUFK-AENAM,
         WERKS      TYPE AUFK-WERKS,
         PLNBEZ     TYPE AFKO-PLNBEZ,
         GAMNG      TYPE AFKO-GAMNG,
         GASMG      TYPE AFKO-GASMG,
         MATNR      TYPE RESB-MATNR,
         POSNR      TYPE RESB-POSNR,
         BDMNG      TYPE RESB-BDMNG,
         BMENG      TYPE STKO-BMENG,
         MENGE      TYPE STPO-MENGE,
      END OF WA,
      ITAB  LIKE SORTED   TABLE OF WA WITH NON-UNIQUE KEY AUFNR POSNR.
DATA: BEGIN OF ITAB2 OCCURS 0.

      INCLUDE STRUCTURE WA.
DATA: END OF ITAB2.

DATA: BEGIN OF ITAB_AUFK OCCURS 0,
      AUART  LIKE AUFK-AUART,
      AUFNR  LIKE AUFK-AUFNR,
      POSNR  LIKE RESB-POSNR,
      AEDAT  LIKE AUFK-AEDAT,
      AENAM  LIKE AUFK-AENAM,
      WERKS  LIKE AUFK-WERKS,
      PLNBEZ LIKE AFKO-PLNBEZ,
      GAMNG(7) TYPE P DECIMALS 0,
      GASMG(7) TYPE P DECIMALS 0,
      MATNR  LIKE RESB-MATNR,
      BDMNG(7) TYPE P DECIMALS 0,
      BMENG(7) TYPE P DECIMALS 0,
      MENGE(7) TYPE P DECIMALS 3.
DATA: END OF ITAB_AUFK.

DATA: FDATE LIKE SY-DATUM,
      LDATE LIKE SY-DATUM.

DATA: X_AUFNR LIKE AFKO-AUFNR,
      X_MENGE(7) TYPE P DECIMALS 0,
      X_ERR(3).

DATA: W_DATASET1(500) VALUE '/usr/sap/trans/data/'.

SELECT-OPTIONS T_WERKS  FOR  AUFK-WERKS OBLIGATORY.
SELECT-OPTIONS T_AUFNR  FOR  AUFK-AUFNR.
SELECT-OPTIONS T_AEDAT  FOR  AUFK-AEDAT.
PARAMETERS     PDATA    LIKE W_DATASET1.

CONCATENATE W_DATASET1 PDATA INTO W_DATASET1.

PERFORM F_COLLECT_DATA.

FORM F_COLLECT_DATA.
OPEN DATASET W_DATASET1 FOR INPUT IN TEXT MODE encoding default.
  DO.
     IF sy-subrc <> 0.
        EXIT.
     ENDIF.
     READ DATASET W_DATASET1 INTO WA.
     APPEND WA TO ITAB2.
  ENDDO.
CLOSE DATASET W_DATASET1.

SELECT  A~AUFNR  A~AUART A~AEDAT A~AENAM A~WERKS
        B~PLNBEZ B~GAMNG B~GASMG
        C~MATNR  C~BDMNG C~POSNR
     INTO CORRESPONDING FIELDS OF TABLE ITAB
     FROM          ( AUFK AS A
          INNER JOIN AFKO AS B ON B~AUFNR  = A~AUFNR
          INNER JOIN RESB AS C ON C~AUFNR  = A~AUFNR )
     WHERE A~AEDAT IN T_AEDAT
       AND A~WERKS IN T_WERKS.

     LOOP AT ITAB INTO WA.
        CLEAR MAST.
        SELECT SINGLE * FROM MAST WHERE MATNR = WA-PLNBEZ
                                    AND WERKS = WA-WERKS.
        CLEAR STKO.
        SELECT SINGLE * FROM STKO WHERE STLNR = MAST-STLNR
                                    AND STLAL = MAST-STLAL.
        CLEAR STPO.
        SELECT SINGLE * FROM STPO WHERE STLNR = MAST-STLNR
                                    AND POSNR = WA-POSNR.
        WA-BMENG = STKO-BMENG.
        WA-MENGE = STPO-MENGE.

        MODIFY ITAB FROM WA.

        AT NEW AUFNR.
           SKIP.
        ENDAT.
        LOOP AT ITAB2 WHERE AUFNR = WA-AUFNR
                        AND POSNR = WA-POSNR.
            IF ITAB2-GAMNG <> WA-GAMNG OR
               ITAB2-GASMG <> WA-GASMG OR
               ITAB2-BDMNG <> WA-BDMNG.
               CLEAR X_MENGE.
               IF ITAB2-BMENG <> 0.
                  X_MENGE = ITAB2-GAMNG / ITAB2-BMENG * ITAB2-MENGE.
               ENDIF.
               CLEAR X_ERR.
               IF ITAB2-BDMNG <> X_MENGE.
                  X_ERR = 'Err'.
               ENDIF.
               FORMAT COLOR COL_TOTAL.
               WRITE: / ITAB2-AUART  UNDER 'Type',
                        ITAB2-AUFNR  UNDER 'Prod Order',
                        ITAB2-AEDAT  UNDER 'Last Chg Dt',
                        ITAB2-AENAM  UNDER 'Last Chg by',
                        ITAB2-WERKS  UNDER 'Plant',
                        ITAB2-PLNBEZ UNDER 'Material',
                   (10) ITAB2-GAMNG  UNDER 'Order Qty' DECIMALS 0,
                   (10) ITAB2-GASMG  UNDER 'Scrap Qty' DECIMALS 0,
                        ITAB2-POSNR  UNDER 'Item',
                        ITAB2-MATNR  UNDER 'Component Req',
                   (10) ITAB2-BDMNG  UNDER 'Req Qty' DECIMALS 0,
                        X_MENGE      UNDER 'BOM Qty' COLOR COL_TOTAL,
                        ITAB2-BMENG  UNDER 'BOM Base',
                        ITAB2-MENGE  UNDER 'BOM Comp',
                        X_ERR        UNDER 'Rmks' COLOR COL_TOTAL.
               CLEAR X_MENGE.
               IF WA-BMENG <> 0.
                  X_MENGE = WA-GAMNG / WA-BMENG * WA-MENGE.
               ENDIF.
               CLEAR X_ERR.
               IF WA-BDMNG <> X_MENGE.
                  X_ERR = 'Err'.
               ENDIF.
               FORMAT COLOR OFF.
               WRITE: / WA-AUART  UNDER 'Type',
                        WA-AUFNR  UNDER 'Prod Order',
                        WA-AEDAT  UNDER 'Last Chg Dt',
                        WA-AENAM  UNDER 'Last Chg by',
                        WA-WERKS  UNDER 'Plant',
                        WA-PLNBEZ UNDER 'Material',
                   (10) WA-GAMNG  UNDER 'Order Qty' DECIMALS 0,
                   (10) WA-GASMG  UNDER 'Scrap Qty' DECIMALS 0,
                        WA-POSNR  UNDER 'Item',
                        WA-MATNR  UNDER 'Component Req',
                   (10) WA-BDMNG  UNDER 'Req Qty' DECIMALS 0,
                        X_MENGE   UNDER 'BOM Qty' COLOR COL_TOTAL,
                        WA-BMENG  UNDER 'BOM Base',
                        WA-MENGE  UNDER 'BOM Comp',
                        X_ERR     UNDER 'Rmks' COLOR COL_TOTAL.
             ENDIF.
        ENDLOOP.
     ENDLOOP.

   LOOP AT ITAB2.
        LOOP AT ITAB INTO WA WHERE AUFNR = ITAB2-AUFNR
                               AND POSNR = ITAB2-POSNR.
             DELETE ITAB2.
        ENDLOOP.

        SELECT SINGLE * FROM AUFK WHERE AUFNR = ITAB2-AUFNR.
        IF SY-SUBRC <> 0.
             DELETE ITAB2.
        ENDIF.
   ENDLOOP.

   OPEN DATASET W_DATASET1 FOR OUTPUT IN TEXT MODE encoding default.
        LOOP AT ITAB  INTO WA.
           TRANSFER WA TO W_DATASET1.
        ENDLOOP.
        LOOP AT ITAB2 INTO WA.

           TRANSFER WA TO W_DATASET1.
        ENDLOOP.
   CLOSE DATASET W_DATASET1.
ENDFORM.

TOP-OF-PAGE.
    FORMAT COLOR COL_TOTAL.
    WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME,
         50 'Daily Qty Changed Checklist for Production Order',
        120 SY-PAGNO.
    SKIP.
    WRITE: / 'Plant ', T_WERKS-LOW.
    WRITE:   ' Last Change Date ', T_AEDAT-LOW, ' to ', T_AEDAT-HIGH.
    SKIP.
    WRITE: /1  'Type',
            6  'Prod Order',
            17 'Last Chg Dt',
            29 'Last Chg by',
            42 'Plant',
            49 'Material',
            69 'Order Qty',
            83 'Scrap Qty',
            99 'Item',
           105 'Component Req',
           121 'Req Qty',
           135 'BOM Qty',
           149 'BOM Base',
           163 'BOM Comp',
           178 'Rmks'.
     ULINE.
     WRITE: / 'Previous data :- '.
     FORMAT COLOR OFF.
     WRITE: / 'Current data :- '.

INITIALIZATION.
   LDATE = SY-DATUM.
   LDATE  = LDATE - 1.
   FDATE = LDATE.
   MOVE:   FDATE         TO  T_AEDAT-LOW.

   APPEND T_AEDAT.
Read only

Former Member
In response to Former Member

‎2009 May 06 2:36 PM

0 Likes
1,883 

REPORT ZPPORDER LINE-SIZE 180 NO STANDARD PAGE HEADING
                LINE-COUNT 058(001).

TABLES: AUFK,  "Order master data
        AFKO,  "Order header data PP orders
        RESB,  "Reservation/dependent requirements
        MAST,  "Material to BOM Link
        STKO,  "BOM Header
        STPO.  "BOM item
        
data: wa(255) type c.        

 data: BEGIN OF WA,
         AUART      TYPE AUFK-AUART,
         AUFNR      TYPE AUFK-AUFNR,
         AEDAT      TYPE AUFK-AEDAT,
         AENAM      TYPE AUFK-AENAM,
         WERKS      TYPE AUFK-WERKS,
         PLNBEZ     TYPE AFKO-PLNBEZ,
         GAMNG      TYPE AFKO-GAMNG,
         GASMG      TYPE AFKO-GASMG,
         MATNR      TYPE RESB-MATNR,
         POSNR      TYPE RESB-POSNR,
         BDMNG      TYPE RESB-BDMNG,
         BMENG      TYPE STKO-BMENG,
         MENGE      TYPE STPO-MENGE,
      END OF WA,
      ITAB  LIKE SORTED   TABLE OF WA WITH NON-UNIQUE KEY AUFNR POSNR.
DATA: BEGIN OF ITAB2 OCCURS 0.

      INCLUDE STRUCTURE WA.
DATA: END OF ITAB2.

DATA: BEGIN OF ITAB_AUFK OCCURS 0,
      AUART  LIKE AUFK-AUART,
      AUFNR  LIKE AUFK-AUFNR,
      POSNR  LIKE RESB-POSNR,
      AEDAT  LIKE AUFK-AEDAT,
      AENAM  LIKE AUFK-AENAM,
      WERKS  LIKE AUFK-WERKS,
      PLNBEZ LIKE AFKO-PLNBEZ,
      GAMNG(7) TYPE P DECIMALS 0,
      GASMG(7) TYPE P DECIMALS 0,
      MATNR  LIKE RESB-MATNR,
      BDMNG(7) TYPE P DECIMALS 0,
      BMENG(7) TYPE P DECIMALS 0,
      MENGE(7) TYPE P DECIMALS 3.
DATA: END OF ITAB_AUFK.

DATA: FDATE LIKE SY-DATUM,
      LDATE LIKE SY-DATUM.

DATA: X_AUFNR LIKE AFKO-AUFNR,
      X_MENGE(7) TYPE P DECIMALS 0,
      X_ERR(3).

DATA: W_DATASET1(500) VALUE '/usr/sap/trans/data/'.

SELECT-OPTIONS T_WERKS  FOR  AUFK-WERKS OBLIGATORY.
SELECT-OPTIONS T_AUFNR  FOR  AUFK-AUFNR.
SELECT-OPTIONS T_AEDAT  FOR  AUFK-AEDAT.
PARAMETERS     PDATA    LIKE W_DATASET1.

Edited by: BDK on May 6, 2009 3:39 PM

Read only

Former Member
In response to Former Member

‎2009 May 06 2:40 PM

0 Likes
1,883 

CONCATENATE W_DATASET1 PDATA INTO W_DATASET1.

PERFORM F_COLLECT_DATA.

FORM F_COLLECT_DATA.
OPEN DATASET W_DATASET1 FOR INPUT IN TEXT MODE encoding default.
  DO.
     IF sy-subrc <> 0.
        EXIT.
     ENDIF.
     READ DATASET W_DATASET1 INTO WA.
     APPEND WA TO ITAB2.
  ENDDO.
CLOSE DATASET W_DATASET1.

SELECT  A~AUFNR  A~AUART A~AEDAT A~AENAM A~WERKS
        B~PLNBEZ B~GAMNG B~GASMG
        C~MATNR  C~BDMNG C~POSNR
     INTO CORRESPONDING FIELDS OF TABLE ITAB
     FROM          ( AUFK AS A
          INNER JOIN AFKO AS B ON B~AUFNR  = A~AUFNR
          INNER JOIN RESB AS C ON C~AUFNR  = A~AUFNR )
     WHERE A~AEDAT IN T_AEDAT
       AND A~WERKS IN T_WERKS.

     LOOP AT ITAB INTO WA.
        CLEAR MAST.
        SELECT SINGLE * FROM MAST WHERE MATNR = WA-PLNBEZ
                                    AND WERKS = WA-WERKS.
        CLEAR STKO.
        SELECT SINGLE * FROM STKO WHERE STLNR = MAST-STLNR
                                    AND STLAL = MAST-STLAL.
        CLEAR STPO.
        SELECT SINGLE * FROM STPO WHERE STLNR = MAST-STLNR
                                    AND POSNR = WA-POSNR.
        WA-BMENG = STKO-BMENG.
        WA-MENGE = STPO-MENGE.

        MODIFY ITAB FROM WA.

        AT NEW AUFNR.
           SKIP.
        ENDAT.
        LOOP AT ITAB2 WHERE AUFNR = WA-AUFNR
                        AND POSNR = WA-POSNR.
            IF ITAB2-GAMNG <> WA-GAMNG OR
               ITAB2-GASMG <> WA-GASMG OR
               ITAB2-BDMNG <> WA-BDMNG.
               CLEAR X_MENGE.
               IF ITAB2-BMENG <> 0.
                  X_MENGE = ITAB2-GAMNG / ITAB2-BMENG * ITAB2-MENGE.
               ENDIF.
               CLEAR X_ERR.
               IF ITAB2-BDMNG <> X_MENGE.
                  X_ERR = 'Err'.
               ENDIF.
               FORMAT COLOR COL_TOTAL.
               WRITE: / ITAB2-AUART  UNDER 'Type',
                        ITAB2-AUFNR  UNDER 'Prod Order',
                        ITAB2-AEDAT  UNDER 'Last Chg Dt',
                        ITAB2-AENAM  UNDER 'Last Chg by',
                        ITAB2-WERKS  UNDER 'Plant',
                        ITAB2-PLNBEZ UNDER 'Material',
                   (10) ITAB2-GAMNG  UNDER 'Order Qty' DECIMALS 0,
                   (10) ITAB2-GASMG  UNDER 'Scrap Qty' DECIMALS 0,
                        ITAB2-POSNR  UNDER 'Item',
                        ITAB2-MATNR  UNDER 'Component Req',
                   (10) ITAB2-BDMNG  UNDER 'Req Qty' DECIMALS 0,
                        X_MENGE      UNDER 'BOM Qty' COLOR COL_TOTAL,
                        ITAB2-BMENG  UNDER 'BOM Base',
                        ITAB2-MENGE  UNDER 'BOM Comp',
                        X_ERR        UNDER 'Rmks' COLOR COL_TOTAL.
               CLEAR X_MENGE.
               IF WA-BMENG <> 0.
                  X_MENGE = WA-GAMNG / WA-BMENG * WA-MENGE.
               ENDIF.
Read only

Former Member
In response to Former Member

‎2009 May 06 2:44 PM

0 Likes
1,883 

CLEAR X_ERR.
               IF WA-BDMNG <> X_MENGE.
                  X_ERR = 'Err'.
               ENDIF.
               FORMAT COLOR OFF.
               WRITE: / WA-AUART  UNDER 'Type',
                        WA-AUFNR  UNDER 'Prod Order',
                        WA-AEDAT  UNDER 'Last Chg Dt',
                        WA-AENAM  UNDER 'Last Chg by',
                        WA-WERKS  UNDER 'Plant',
                        WA-PLNBEZ UNDER 'Material',
                   (10) WA-GAMNG  UNDER 'Order Qty' DECIMALS 0,
                   (10) WA-GASMG  UNDER 'Scrap Qty' DECIMALS 0,
                        WA-POSNR  UNDER 'Item',
                        WA-MATNR  UNDER 'Component Req',
                   (10) WA-BDMNG  UNDER 'Req Qty' DECIMALS 0,
                        X_MENGE   UNDER 'BOM Qty' COLOR COL_TOTAL,
                        WA-BMENG  UNDER 'BOM Base',
                        WA-MENGE  UNDER 'BOM Comp',
                        X_ERR     UNDER 'Rmks' COLOR COL_TOTAL.
             ENDIF.
        ENDLOOP.
     ENDLOOP.

   LOOP AT ITAB2.
        LOOP AT ITAB INTO WA WHERE AUFNR = ITAB2-AUFNR
                               AND POSNR = ITAB2-POSNR.
             DELETE ITAB2.
        ENDLOOP.

        SELECT SINGLE * FROM AUFK WHERE AUFNR = ITAB2-AUFNR.
        IF SY-SUBRC <> 0.
             DELETE ITAB2.
        ENDIF.
   ENDLOOP.

   OPEN DATASET W_DATASET1 FOR OUTPUT IN TEXT MODE encoding default.
        LOOP AT ITAB  INTO WA.
           TRANSFER WA TO W_DATASET1.
        ENDLOOP.
        LOOP AT ITAB2 INTO WA.

           TRANSFER WA TO W_DATASET1.
        ENDLOOP.
   CLOSE DATASET W_DATASET1.
ENDFORM.

TOP-OF-PAGE.
    FORMAT COLOR COL_TOTAL.
    WRITE: / SY-DATUM, SY-UZEIT, SY-REPID, SY-UNAME,
         50 'Daily Qty Changed Checklist for Production Order',
        120 SY-PAGNO.
    SKIP.
    WRITE: / 'Plant ', T_WERKS-LOW.
    WRITE:   ' Last Change Date ', T_AEDAT-LOW, ' to ', T_AEDAT-HIGH.
    SKIP.
    WRITE: /1  'Type',
            6  'Prod Order',
            17 'Last Chg Dt',
            29 'Last Chg by',
            42 'Plant',
            49 'Material',
            69 'Order Qty',
            83 'Scrap Qty',
            99 'Item',
           105 'Component Req',
           121 'Req Qty',
           135 'BOM Qty',
           149 'BOM Base',
           163 'BOM Comp',
           178 'Rmks'.
     ULINE.
     WRITE: / 'Previous data :- '.
     FORMAT COLOR OFF.
     WRITE: / 'Current data :- '.

INITIALIZATION.
   LDATE = SY-DATUM.
   LDATE  = LDATE - 1.
   FDATE = LDATE.
   MOVE:   FDATE         TO  T_AEDAT-LOW.

   APPEND T_AEDAT.