HI gurus,
can any body help me solving this problem.during the activating the program i am getting problem.
REPORT ZSD_RDD0028_DELIVERY_OOP .
&----
*& STRUCTURE DECLARATION OF LIKP *
*& *
&----
TYPES : BEGIN OF TY_LIKP,
VBELN TYPE VBELN_VL, "Delivery NO"
VKORG TYPE VKORG, "Sales Organization"
LFART TYPE LFART, "Delivery Type"
KUNNR TYPE KUNNR, "Ship-To Party"
END OF TY_LIKP,
*STRUCTURE DECLARATION OF LIPS TABLE
BEGIN OF TY_LIPS,
VBELN TYPE VBELN_VL, "Delivery"
POSNR TYPE POSNR_VL, "Delivery item"
MATNR TYPE MATNR, "Material Number"
END OF TY_LIPS,
*STRUCTURE DECLARATION OF KNA1 TABLE
BEGIN OF TY_KNA1,
KUNNR TYPE KUNNR, "Ship-To Party"
NAME1 TYPE NAME1, "NAME"
ORT01 TYPE ORT01, "CITY"
PSTLZ TYPE PSTLZ, "POSTAL CODE"
END OF TY_KNA1,
STRUCTURE DECLARATION OF FINAL OUTPUT
BEGIN OF TY_OUTPUT,
VBELN TYPE VBELN_VL,
VKORG TYPE VKORG,
LFART TYPE LFART,
KUNNR TYPE KUNNR,
POSNR TYPE POSNR_VL,
MATNR TYPE MATNR,
NAME1 TYPE NAME1,
ORT01 TYPE ORT01,
PSTLZ TYPE PSTLZ,
END OF TY_OUTPUT.
INTERNAL TABLE DECLARATION FOR LIKP
DATA : T_LIKP TYPE STANDARD TABLE OF TY_LIKP INITIAL SIZE 0,
INTERNAL TABLE DECLARATION FOR LIPS
T_LIPS TYPE STANDARD TABLE OF TY_LIPS INITIAL SIZE 0,
INTERNAL TABLE DECLARATION FOR KNA1
T_KNA1 TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 0,
INTERNAL TABLE DECLARATION FOR OUTPUT.
T_OUTPUT TYPE STANDARD TABLE OF TY_OUTPUT INITIAL SIZE 0,
WORK-AREA DECLARATION FOR LIKP.
W_LIKP TYPE TY_LIKP,
WORK-AREA DECLARATION FOR LIPS.
W_LIPS TYPE TY_LIPS,
WORK-AREA DECLARATION FOR KNA1.
W_KNA1 TYPE TY_KNA1,
WORK-AREA DECLARATION FOR OUTPUT.
W_OUTPUT TYPE TY_OUTPUT,
DECLARATION OF CLASS.
G_MAIN TYPE REF TO ZCL_GET_SALES_DATA,
G_VBELN TYPE LIKP-VBELN.
SELECTION-SCREEN DECLARATION.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .
SELECT-OPTIONS : S_VBELN FOR G_VBELN .
SELECTION-SCREEN END OF BLOCK B1.
PARAMETERS : P_R1 as CHECKBOX .
INITIALIZATION.
INITIALIZATION.
CLEAR WORKAREA AND INTERNAL TABLE
CLEAR : W_LIKP ,
W_LIPS ,
W_OUTPUT,
W_KNA1 .
REFRESH WORK AREA AND INTERNAL TABLE
REFRESH : T_LIKP,
T_LIPS ,
T_OUTPUT,
T_KNA1 .
*==================
AT SELECTION-SCREEN
*----
AT SELECTION-SCREEN.
START-OF-SELECTION.
START-OF-SELECTION.
CREATING THE OBJECT FOR THE CLASS.
CREATE OBJECT G_MAIN.
GET THE LIKP DATA.
CALL METHOD G_MAIN->GET_LIKP
EXPORTING
VBELN_LOW = 'S_VBELN-LOW'
VBELN_HIGH = 'S_VBELN-HIGH'
CHANGING
T_LIKP = 'T_LIKP'.
GET THE LIPS DATA.
CALL METHOD G_MAIN->GET_LIPS
EXPORTING
T_LIKP = 'T_LIKP'
CHANGING
T_LIPS = 'T_LIPS'.
GET THE KNA1 DATA.
CALL METHOD G_MAIN->GET_KNA1
EXPORTING
T_LIKP = 'T_LIKP'
CHANGING
T_KNA1 = 'T_KNA1'.
*DISPLAY THE DATA .
PERFORM SUB_DISP_DATA.
&----
*& Form SUB_DISP_DATA
&----
text
----
--> p1 text
<-- p2 text
----
FORM SUB_DISP_DATA .
LOOP AT T_LIPS INTO W_LIPS.
CLEAR W_LIKP.
READ TABLE T_LIKP INTO W_LIKP WITH KEY VBELN = W_LIKP-VBELN.
CLEAR W_KNA1.
READ TABLE T_KNA1 INTO W_KNA1 WITH KEY KUNNR = W_LIKP-KUNNR.
WRITE :/ W_LIPS-VBELN,
W_LIPS-POSNR,
W_LIKP-VKORG,
W_LIKP-KUNNR,
W_KNA1-NAME1,
W_KNA1-ORT01,
W_LIPS-NTGEW.
ENDLOOP.
ENDFORM. " SUB_DISP_DATA