Application Development 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
Showing results for 
Search instead for 
Did you mean: 

Unable to scroll Report

Former Member
0 Kudos

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,

1 ACCEPTED SOLUTION

Former Member
0 Kudos

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.

9 REPLIES 9

0 Kudos

Hello Anil,

Just press the 'Page Down' (P+) button on the toolbar.

Regards,

Jitendar

Former Member
0 Kudos

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.

Former Member
0 Kudos

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.

Former Member
0 Kudos

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.

Former Member
0 Kudos

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.

0 Kudos

Hi,

Try this one

<b>REPORT ZSALREP2 NO STANDARD PAGE HEADING</b>.

Remove the rest and try.

Thanks & Regards,

Judith.

0 Kudos

Hi,

Its still not working.

Thanks,

Anil

0 Kudos

Hi,

Try removing the top-of-page.

Also add

REPORT ZZZZZZ NO STANDARD PAGE HEADING

LINE-COUNT 65.

Thanks & Regards,

Judith.

0 Kudos

Hi,

Thanks its working now I removed top-of-page.

Thanks & Regards,

Anil.