I am trying to print Scheduling agreement delivery schedule using transaction code ME38. The printout does not display target , scheduled and delivered quantities in decimals. I have checked the print program ZMT003 which is used to drive the script ZMEDRUCKS1_ORCH.
The fields RM06P-PRMG1, RM06P-PRMG2 and RM06P-PRMG3 hold decimal values , however, it doesn't print in the output.
Would any one be able to hep me on this.
Please find below the codes:
Print Program : ZMT003
FORM AUSGABE_EINT.
PERFORM MENGE_AUSGEBEN USING EKPO-MENGE
T006-ANDEC
RM06P-PRMG1.
IF EKKO-LPHIS IS INITIAL OR XLMAHN NE SPACE.
PERFORM MENGE_AUSGEBEN USING PEKPO-WEMNG
T006-ANDEC
RM06P-PRMG2.
ELSE.
PERFORM MENGE_AUSGEBEN USING XEKEK-ABEFZ
T006-ANDEC
RM06P-PRMG2.
ENDIF.
PERFORM MENGE_AUSGEBEN USING EKPO-KTMNG
T006-ANDEC
RM06P-PRMG3.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_INFO_1'
EXCEPTIONS
OTHERS = 01.
CLEAR SY-SUBRC.
******************************************************
FORM MENGE_AUSGEBEN USING MGA_MENGE MGA_ANDEC MGA_AMENG.
DATA: H-AMENG LIKE RM06P-PRMG1.
WRITE MGA_MENGE NO-SIGN TO H-AMENG.
IF MGA_ANDEC EQ 0 AND
H-AMENG+14(3) EQ '000'.
SHIFT H-AMENG RIGHT BY 4 PLACES.
ENDIF.
MGA_AMENG = H-AMENG.
ENDFORM.
Thanks in advance
Cheers
Vibha
Message was edited by: Vibha Garg