05-19-2005 11:21 AM
Hi,
I am unable to scroll through the report. I have 235 records in internal table but when i execute i am able to see only 33 it is not displaying all the 235. please tell me how will i able to scroll through all the records.
thanks & regards,
05-19-2005 11:47 AM
PLEASE FIND THE CODE.
&----
*& Report ZSALREP2 *
*& *
&----
*& *
*& *
&----
REPORT ZSALREP2 NO STANDARD PAGE HEADING LINE-SIZE 108 LINE-COUNT 500.
DATA : BEGIN OF VBUP OCCURS 0,
VBELN LIKE VBUP-VBELN,
LFGSA LIKE VBUP-LFGSA,
END OF VBUP.
DATA : BEGIN OF VBUP1 OCCURS 0,
LFGSA LIKE VBUP-LFGSA,
VBELN LIKE VBUP-VBELN,
END OF VBUP1.
DATA : BEGIN OF VBEP OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
EDATU LIKE VBEP-EDATU,
BMENG LIKE VBEP-BMENG,
END OF VBEP.
DATA : BEGIN OF VBEP1 OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
EDATU LIKE VBEP-EDATU,
BMENG LIKE VBEP-BMENG,
END OF VBEP1.
DATA : BEGIN OF VBEP2 OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
EDATU LIKE VBEP-EDATU,
BMENG LIKE VBEP-BMENG,
END OF VBEP2.
DATA : BEGIN OF VBAP OCCURS 0,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
MATNR LIKE VBAP-MATNR,
END OF VBAP.
DATA : BEGIN OF VBAP1 OCCURS 0,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
MATNR LIKE VBAP-MATNR,
END OF VBAP1.
DATA : BEGIN OF VBAP2 OCCURS 0,
MATNR LIKE VBAP-MATNR,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
END OF VBAP2.
DATA : BEGIN OF VBAP3 OCCURS 0,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
MATNR LIKE VBAP-MATNR,
END OF VBAP3.
DATA : BEGIN OF MARD OCCURS 0,
MATNR LIKE MARD-MATNR,
LABST LIKE MARD-LABST,
LGORT LIKE MARD-LGORT,
WERKS LIKE MARD-WERKS,
END OF MARD.
DATA : BEGIN OF MARD1 OCCURS 0,
MATNR LIKE MARD-MATNR,
LABST LIKE MARD-LABST,
LGORT LIKE MARD-LGORT,
WERKS LIKE MARD-WERKS,
END OF MARD1.
DATA: BEGIN OF ITAB1 OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
MATNR LIKE MARD-MATNR,
BMENG LIKE VBEP-BMENG,
EDATU LIKE VBEP-EDATU,
LABST LIKE MARD-LABST,
LGORT LIKE MARD-LGORT,
WERKS LIKE MARD-WERKS,
END OF ITAB1.
SELECT-OPTIONS: S_ERDAT FOR VBAP-ERDAT.
START-OF-SELECTION.
SELECT VBELN LFGSA INTO CORRESPONDING FIELDS OF TABLE VBUP1 FROM
VBUP WHERE LFGSA NE 'C'.
SELECT VBELN POSNR BMENG EDATU INTO CORRESPONDING FIELDS OF TABLE ITAB1
FROM VBEP FOR ALL ENTRIES IN VBUP1 WHERE VBELN = VBUP1-VBELN.
*LOOP AT VBEP1.
*READ TABLE VBUP1 WITH KEY VBELN = VBEP1-VBELN
BINARY SEARCH.
*IF SY-SUBRC EQ 0.
*MOVE-CORRESPONDING VBEP1 TO ITAB1.
*APPEND ITAB1.
*ENDIF.
*ENDLOOP.
SELECT VBELN POSNR MATNR INTO CORRESPONDING FIELDS OF TABLE VBAP1 FROM
VBAP FOR ALL ENTRIES IN ITAB1 WHERE VBELN = ITAB1-VBELN AND POSNR =
ITAB1-POSNR.
LOOP AT VBAP1.
READ TABLE ITAB1 WITH KEY VBELN = VBAP1-VBELN
POSNR = VBAP1-POSNR.
IF SY-SUBRC EQ 0.
MOVE VBAP1-MATNR TO ITAB1-MATNR.
APPEND ITAB1.
ENDIF.
ENDLOOP.
LOOP AT ITAB1.
DELETE ITAB1 WHERE MATNR = ' '.
ENDLOOP.
SORT ITAB1 BY MATNR.
SELECT MATNR LABST INTO CORRESPONDING FIELDS OF TABLE MARD1 FROM MARD
FOR ALL ENTRIES IN ITAB1 WHERE MATNR = ITAB1-MATNR AND WERKS = 5100 AND
LGORT = 5100.
SORT MARD1 BY MATNR.
LOOP AT ITAB1.
READ TABLE MARD1 WITH KEY MATNR = ITAB1-MATNR.
IF SY-SUBRC EQ 0.
ITAB1-LABST = MARD1-LABST.
MODIFY ITAB1.
ENDIF.
ENDLOOP.
SORT ITAB1 BY VBELN.
WRITE LIST HEADER
FORMAT COLOR COL_GROUP INTENSIFIED OFF.
PRINT-CONTROL SIZE 3 COLOR BLACK FONT 8.
FORMAT RESET.
FORMAT COLOR COL_KEY INTENSIFIED ON.
SKIP.
TOP-OF-PAGE.
WRITE:/ SY-ULINE.
WRITE:/1 SY-VLINE,
2 'SALES DOCUMENT',
17 SY-VLINE,
19 'DOCUMENT ITEM',
32 SY-VLINE,
34 'MATERIAL NUMBER',
54 SY-VLINE,
56 'QUANTITY',
66 SY-VLINE,
68 'DUE DATE',
76 SY-VLINE,
78 'MATERIAL IN STOCK',
100 SY-VLINE,
102 'COUNT',
108 SY-VLINE.
WRITE:/ SY-ULINE.
LOOP AT ITAB1.
WRITE: /1(1) SY-VLINE,
2(15) ITAB1-VBELN,
17(1) SY-VLINE,
19(10) ITAB1-POSNR,
32(1) SY-VLINE,
34(20) ITAB1-MATNR,
54(1) SY-VLINE,
56(10) ITAB1-BMENG,
66(1) SY-VLINE,
68(8) ITAB1-EDATU,
76(1) SY-VLINE,
78(18) ITAB1-LABST,
100(1) SY-VLINE,
102(3) SY-TABIX,
108 SY-VLINE.
ENDLOOP.
05-19-2005 11:27 AM
Hello Anil,
Just press the 'Page Down' (P+) button on the toolbar.
Regards,
Jitendar
05-19-2005 11:27 AM
Hi Anil,
Can you post the code that you are using ? I don't see why you cannot scroll down the list.
Regards,
Anand Mandalika.
05-19-2005 11:28 AM
Hi,
also please reward the answers in your previous thread if they have helped you. And mark it as "answered" if the problem is resolved.
Regads,
anand mandalika.
05-19-2005 11:33 AM
Hi,
It will display all the records, check whether there is any horizontal scroll bar if it is an ALV.Also use page down and check as suggested.
Thanks & Regards,
Judith.
05-19-2005 11:47 AM
PLEASE FIND THE CODE.
&----
*& Report ZSALREP2 *
*& *
&----
*& *
*& *
&----
REPORT ZSALREP2 NO STANDARD PAGE HEADING LINE-SIZE 108 LINE-COUNT 500.
DATA : BEGIN OF VBUP OCCURS 0,
VBELN LIKE VBUP-VBELN,
LFGSA LIKE VBUP-LFGSA,
END OF VBUP.
DATA : BEGIN OF VBUP1 OCCURS 0,
LFGSA LIKE VBUP-LFGSA,
VBELN LIKE VBUP-VBELN,
END OF VBUP1.
DATA : BEGIN OF VBEP OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
EDATU LIKE VBEP-EDATU,
BMENG LIKE VBEP-BMENG,
END OF VBEP.
DATA : BEGIN OF VBEP1 OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
EDATU LIKE VBEP-EDATU,
BMENG LIKE VBEP-BMENG,
END OF VBEP1.
DATA : BEGIN OF VBEP2 OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
EDATU LIKE VBEP-EDATU,
BMENG LIKE VBEP-BMENG,
END OF VBEP2.
DATA : BEGIN OF VBAP OCCURS 0,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
MATNR LIKE VBAP-MATNR,
END OF VBAP.
DATA : BEGIN OF VBAP1 OCCURS 0,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
MATNR LIKE VBAP-MATNR,
END OF VBAP1.
DATA : BEGIN OF VBAP2 OCCURS 0,
MATNR LIKE VBAP-MATNR,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
END OF VBAP2.
DATA : BEGIN OF VBAP3 OCCURS 0,
ERDAT LIKE VBAP-ERDAT,
POSNR LIKE VBAP-POSNR,
VBELN LIKE VBAP-VBELN,
MATNR LIKE VBAP-MATNR,
END OF VBAP3.
DATA : BEGIN OF MARD OCCURS 0,
MATNR LIKE MARD-MATNR,
LABST LIKE MARD-LABST,
LGORT LIKE MARD-LGORT,
WERKS LIKE MARD-WERKS,
END OF MARD.
DATA : BEGIN OF MARD1 OCCURS 0,
MATNR LIKE MARD-MATNR,
LABST LIKE MARD-LABST,
LGORT LIKE MARD-LGORT,
WERKS LIKE MARD-WERKS,
END OF MARD1.
DATA: BEGIN OF ITAB1 OCCURS 0,
VBELN LIKE VBEP-VBELN,
POSNR LIKE VBEP-POSNR,
MATNR LIKE MARD-MATNR,
BMENG LIKE VBEP-BMENG,
EDATU LIKE VBEP-EDATU,
LABST LIKE MARD-LABST,
LGORT LIKE MARD-LGORT,
WERKS LIKE MARD-WERKS,
END OF ITAB1.
SELECT-OPTIONS: S_ERDAT FOR VBAP-ERDAT.
START-OF-SELECTION.
SELECT VBELN LFGSA INTO CORRESPONDING FIELDS OF TABLE VBUP1 FROM
VBUP WHERE LFGSA NE 'C'.
SELECT VBELN POSNR BMENG EDATU INTO CORRESPONDING FIELDS OF TABLE ITAB1
FROM VBEP FOR ALL ENTRIES IN VBUP1 WHERE VBELN = VBUP1-VBELN.
*LOOP AT VBEP1.
*READ TABLE VBUP1 WITH KEY VBELN = VBEP1-VBELN
BINARY SEARCH.
*IF SY-SUBRC EQ 0.
*MOVE-CORRESPONDING VBEP1 TO ITAB1.
*APPEND ITAB1.
*ENDIF.
*ENDLOOP.
SELECT VBELN POSNR MATNR INTO CORRESPONDING FIELDS OF TABLE VBAP1 FROM
VBAP FOR ALL ENTRIES IN ITAB1 WHERE VBELN = ITAB1-VBELN AND POSNR =
ITAB1-POSNR.
LOOP AT VBAP1.
READ TABLE ITAB1 WITH KEY VBELN = VBAP1-VBELN
POSNR = VBAP1-POSNR.
IF SY-SUBRC EQ 0.
MOVE VBAP1-MATNR TO ITAB1-MATNR.
APPEND ITAB1.
ENDIF.
ENDLOOP.
LOOP AT ITAB1.
DELETE ITAB1 WHERE MATNR = ' '.
ENDLOOP.
SORT ITAB1 BY MATNR.
SELECT MATNR LABST INTO CORRESPONDING FIELDS OF TABLE MARD1 FROM MARD
FOR ALL ENTRIES IN ITAB1 WHERE MATNR = ITAB1-MATNR AND WERKS = 5100 AND
LGORT = 5100.
SORT MARD1 BY MATNR.
LOOP AT ITAB1.
READ TABLE MARD1 WITH KEY MATNR = ITAB1-MATNR.
IF SY-SUBRC EQ 0.
ITAB1-LABST = MARD1-LABST.
MODIFY ITAB1.
ENDIF.
ENDLOOP.
SORT ITAB1 BY VBELN.
WRITE LIST HEADER
FORMAT COLOR COL_GROUP INTENSIFIED OFF.
PRINT-CONTROL SIZE 3 COLOR BLACK FONT 8.
FORMAT RESET.
FORMAT COLOR COL_KEY INTENSIFIED ON.
SKIP.
TOP-OF-PAGE.
WRITE:/ SY-ULINE.
WRITE:/1 SY-VLINE,
2 'SALES DOCUMENT',
17 SY-VLINE,
19 'DOCUMENT ITEM',
32 SY-VLINE,
34 'MATERIAL NUMBER',
54 SY-VLINE,
56 'QUANTITY',
66 SY-VLINE,
68 'DUE DATE',
76 SY-VLINE,
78 'MATERIAL IN STOCK',
100 SY-VLINE,
102 'COUNT',
108 SY-VLINE.
WRITE:/ SY-ULINE.
LOOP AT ITAB1.
WRITE: /1(1) SY-VLINE,
2(15) ITAB1-VBELN,
17(1) SY-VLINE,
19(10) ITAB1-POSNR,
32(1) SY-VLINE,
34(20) ITAB1-MATNR,
54(1) SY-VLINE,
56(10) ITAB1-BMENG,
66(1) SY-VLINE,
68(8) ITAB1-EDATU,
76(1) SY-VLINE,
78(18) ITAB1-LABST,
100(1) SY-VLINE,
102(3) SY-TABIX,
108 SY-VLINE.
ENDLOOP.
05-19-2005 11:53 AM
Hi,
Try this one
<b>REPORT ZSALREP2 NO STANDARD PAGE HEADING</b>.
Remove the rest and try.
Thanks & Regards,
Judith.
05-19-2005 11:57 AM
05-19-2005 12:00 PM
Hi,
Try removing the top-of-page.
Also add
REPORT ZZZZZZ NO STANDARD PAGE HEADING
LINE-COUNT 65.
Thanks & Regards,
Judith.
05-19-2005 12:25 PM
Hi,
Thanks its working now I removed top-of-page.
Thanks & Regards,
Anil.