User talk:Venkateshntw

HI, THIS IS VENKATESH,POSTING A PROBLEM,EXPECTING THE SOLUTION.


 * & Report ZSAMPLE00
 * & Report ZSAMPLE00

REPORT ZSAMPLE00 NO STANDARD PAGE HEADING LINE-COUNT 65(3) LINE-SIZE 100 MESSAGE-ID MSG001. TABLES:LIKP,LIPS. DATA:V_FILE(40). DATA:V_ND(4) TYPE N. DATA:V_LINE. PARAMETERS:C AS CHECKBOX. DATA:BEGIN OF IT_LIKP OCCURS 0 , VBELN LIKE LIKP-VBELN, VSTEL LIKE LIKP-VSTEL, KUNNR LIKE LIKP-KUNNR, END OF IT_LIKP.
 * TABLES
 * TABLES
 * TABLES
 * DECLARATION OF VARIABLES
 * DECLARATION OF VARIABLES
 * DECLARATION OF INTERNAL TABLES
 * DECLARATION OF INTERNAL TABLES

DATA:BEGIN OF IT_LIPS OCCURS 0, VBELN LIKE LIPS-VBELN, POSNR LIKE LIPS-POSNR, MATNR LIKE LIPS-MATNR, ARKTX LIKE LIPS-ARKTX, BPMNG LIKE LIPS-BPMNG, END OF IT_LIPS.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS :S_VBELN FOR LIKP-VBELN NO INTERVALS. PARAMETERS:P_ND LIKE V_ND. SELECTION-SCREEN END OF BLOCK B1. AT SELECTION-SCREEN. SELECT SINGLE VBELN FROM LIKP INTO LIKP WHERE VBELN IN S_VBELN. IF SY-SUBRC NE 0. MESSAGE: 'CHOOSE A VALID DELIVERY NUMBER' TYPE 'S'. ENDIF.
 * SELECT-OPTIONS
 * SELECT-OPTIONS
 * AT SELECTION-SCREEN
 * AT SELECTION-SCREEN

START-OF-SELECTION. SELECT VBELN VSTEL KUNNR FROM LIKP INTO TABLE IT_LIKP WHERE VBELN IN S_VBELN. LOOP AT IT_LIKP. WRITE:/ SY-VLINE, C,         3 IT_LIKP-VBELN COLOR 4, 15 SY-VLINE, 16 IT_LIKP-VSTEL COLOR 5, 26 SY-VLINE, 27 IT_LIKP-KUNNR COLOR 6, 37 SY-VLINE.
 * START-OF-SELECTION
 * START-OF-SELECTION
 * ULINE (37).

ENDLOOP. SET PF-STATUS 'DISPLAY'. END-OF-SELECTION.

AT LINE-SELECTION. SET PF-STATUS SPACE. AT USER-COMMAND.
 * AT USER-COMMAND
 * AT USER-COMMAND

CASE SY-UCOMM.

WHEN 'DISPLAY'. READ LINE SY-LILLI LINE VALUE INTO SY-LISEL. SY-LISEL = SY-LISEL+0(1). C = SY-LISEL. IF C = 'X'. SELECT VBELN POSNR MATNR BPMNG ARKTX FROM LIPS INTO TABLE IT_LIPS. LOOP AT IT_LIPS. WRITE:/ IT_LIPS-VBELN, IT_LIPS-POSNR, IT_LIPS-MATNR, IT_LIPS-BPMNG, IT_LIPS-ARKTX. ENDLOOP. ENDIF. WHEN OTHERS. WRITE:/ 'THIS IS NOT WORKING'. ENDCASE.

TOP-OF-PAGE. FORMAT COLOR 7. ULINE (37). WRITE:/ SY-VLINE, 2 'DOC NUMBER', 15 SY-VLINE, 16 'SHIPPOINT', 26 SY-VLINE, 27 'SHIPTOPARTY', 37 SY-VLINE. FORMAT COLOR OFF. END-OF-PAGE. ULINE (37). WRITE:/ 'PAGE NO:',SY-PAGNO COLOR 3.
 * TOP-OF-PAGE
 * TOP-OF-PAGE
 * END-OF-PAGE
 * END-OF-PAGE

WTIH REGARDS IN ADVANCE , VENKATESH