HOW TO WRITE

[Former Member]

In My Program i want to pick three monts forecast value ( PRWRT -field name )FROM PROW TABLE.based on pnum2 . i am writing the following coading but it shows problem .plz help me

SELECT SINGLE PNUM1 FROM MAPR

INTO IT_MAPR-PNUM1

WHERE MATNR = IT_MARC-MATNR AND

WERKS = P_WERKS .

IF ( SY-SUBRC = 0 ).

SELECT SINGLE PNUM2 FROM PROP INTO IT_PROP-PNUM2

WHERE PNUM1 = IT_MAPR-PNUM1 AND

HSNUM = '00'.

IF ( SY-SUBRC = 0 ) .

month1 = S_DATE-LOW+0(4).

DO 3 TIMES .

month = month + 1.

SELECT SINGLE PRWRT FROM PROW INTO IT_PROW-PRWRT

WHERE PNUM2 = IT_PROP-PNUM2.

***here what can i write**so that i will get next three months value..

IT_FINAL-forcast1 = ????

IT_FINAL-forcast2 = ???

IT_FINAL-forcast3 = ??

ENDDO.

ENDIF.

ENDIF.

APPEND IT_FINAL.---final internal display table.

[Former Member]

put APPEND IT_FINAL in the do-endo and try.and tell me waht error u r getting.

reward if useful.

[Former Member]

I CAN'T PUT APPEND FINAL INBETWEEN do enddo...bcoz withen the

loop it_marc.

CLEAR : CTR1 .

SELECT SINGLE PNUM1 FROM MAPR

INTO IT_MAPR-PNUM1

WHERE MATNR = IT_MARC-MATNR AND

WERKS = P_WERKS .

IF ( SY-SUBRC = 0 ).

SELECT SINGLE PNUM2 FROM PROP INTO IT_PROP-PNUM2

WHERE PNUM1 = IT_MAPR-PNUM1 AND

HSNUM = '00'.

IF ( SY-SUBRC = 0 ) .

month1 = S_DATE-LOW+4(2).

DO 3 TIMES .

ctr1 = ctr1 + 1.

case ctr1.

when 1.

CONCATENATE S_DATE-LOW6(2) C1 MONTH1 C1 S_DATE-LOW0(4) INTO HMON11.

CLEAR : IT_PROW-PRWRT.

SELECT SINGLE PRWRT FROM PROW INTO IT_PROW-PRWRT

WHERE PNUM2 = IT_PROP-PNUM2 and

ERTAG = HMON11.

IT_FINAL-FORCAST1 = IT_PROW-PRWRT .

when 2.

CLEAR : IT_PROW-PRWRT.

CONCATENATE S_DATE-LOW6(2) C1 MONTH1 C1 S_DATE-LOW0(4) INTO HMON12.

SELECT SINGLE PRWRT FROM PROW INTO IT_PROW-PRWRT

WHERE PNUM2 = IT_PROP-PNUM2 AND

ERTAG = HMON12.

IT_FINAL-FORCAST2 = IT_PROW-PRWRT .

when 3.

CLEAR : IT_PROW-PRWRT.

CONCATENATE S_DATE-LOW6(2) C1 MONTH1 C1 S_DATE-LOW0(4) INTO HMON13.

SELECT SINGLE PRWRT FROM PROW INTO IT_PROW-PRWRT

WHERE PNUM2 = IT_PROP-PNUM2 AND

ERTAG = HMON13.

IT_FINAL-FORCAST3 = IT_PROW-PRWRT .

endcase.

month1 = month1 + 1.

ENDDO.

ENDIF.

ENDIF.

APPEND IT_FINAL.

can i wrong some where bcz data will not display...plz help me in this coading

endloop.

[Former Member]

Hi Anil,

SELECT SINGLE PNUM1 FROM MAPR

INTO IT_MAPR-PNUM1

WHERE MATNR = IT_MARC-MATNR AND

WERKS = P_WERKS .

IF SY-SUBRC = 0 .

SELECT SINGLE PNUM2 FROM PROP INTO IT_PROP-PNUM2

WHERE PNUM1 = IT_MAPR-PNUM1 AND

HSNUM = '00'.

IF SY-SUBRC = 0 .

month1 = S_DATE-LOW + 2(4).

DO 3 TIMES .

month = month + 1.

SELECT SINGLE PRWRT FROM PROW INTO IT_PROW-PRWRT

WHERE PNUM2 = IT_PROP-PNUM2.

***here what can i write**so that i will get next three months value..

IT_FINAL-forcast1 = ????

IT_FINAL-forcast2 = ???

IT_FINAL-forcast3 = ??

APPEND IT_FINAL

ENDDO.

ENDIF.

ENDIF.

Please try with thease codes.

Thanks

Manas

[Former Member]

In This Coading No where We Comapir With Date fields sothat it will retrive 3750 records ..but i need on ly for that specific perioods..