run time error

[Former Member]

hi everone

am comipling d code but am getting runtime errors plzz help

vijay

REPORT ZX4 .

TABLES:LFA1,KNA1,MARA.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR,

KUNNR FOR KNA1-KUNNR,

MATNR FOR MARA-MATNR.

*DATA ITAB TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE.

*DATA JTAB TYPE STANDARD TABLE OF LFA1 WITH HEADER LINE.

*DATA ATAB TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.

DATA:BEGIN OF ITAB OCCURS 1,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

DATA:BEGIN OF JTAB OCCURS 1,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

NAME1 LIKE LFA1-NAME1,

END OF JTAB.

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MEINS LIKE MARA-MEINS,

END OF ATAB.

TYPE-POOLs SLIS.

DATA:REPID LIKE SY-REPID,

KNA1_B TYPE SLIS_T_FIELDCAT_ALV,

LAYOUT_B TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT.

REPID = SY-REPID.

SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO TABLE ITAB

UP TO 20 ROWS WHERE KUNNR IN KUNNR.

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO TABLE JTAB

UP TO 20 ROWS WHERE LIFNR IN LIFNR.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = REPID.

PERFORM APPENDBLOCK TABLES ITAB USING 'ITAB'.

PERFORM APPENDBLOCK TABLES ITAB USING 'JTAB'.

PERFORM APPENDBLOCK TABLES ITAB USING 'ATAB'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

FORM APPENDBLOCK TABLES KTAB USING ITAB.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = JTAB

I_INCLNAME = REPID

CHANGING

CT_FIELDCAT = KNA1_B.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT_B

IT_FIELDCAT = KNA1_B

I_TABNAME = JTAB

IT_EVENTS = EVENTS

TABLES

T_OUTTAB = KTAB.

ENDFORM.

[Former Member]

try using INTO CORRESPONDING FIELDS OF TABLE...

SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE ITAB

UP TO 20 ROWS WHERE KUNNR IN KUNNR.

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE JTAB

UP TO 20 ROWS WHERE LIFNR IN LIFNR.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

could u give the details of runtime error .. where it is getting triggered..

reward helpful answers...

sai ramesh

[Former Member]

Hello Vijay,

The dump occurs in this select stmt

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO TABLE JTAB
UP TO 20 ROWS WHERE LIFNR IN LIFNR.
" Here u r selecting 4 fields from LFA1 but there are only three fields in the JTAB

DATA:BEGIN OF JTAB OCCURS 1,
LIFNR LIKE LFA1-LIFNR,
LAND1 LIKE LFA1-LAND1,
NAME1 LIKE LFA1-NAME1,
ORT01 like lfa1-ort01 ,  " Addd this field
END OF JTAB.

If useful reward.

Vasanth

[Former Member]

Hi vijay,

your table JTAB has 3 fields but your select statement tries to add 4 fields.

Regards

Nicola

[Former Member]

am still getting d runtime error..plzz help

vijay

[Former Member]

Hello Vijay,

Check this:

DATA:BEGIN OF ATAB OCCURS 1 ,
MATNR LIKE MARA-MATNR,
MBRSH LIKE MARA-MBRSH,
MTART LIKE MARA-MTART,
MEINS LIKE MARA-MEINS,
END OF ATAB.
SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO TABLE ATAB UP TO 20 ROWS WHERE VBELN IN MATNR.

" Make the change to the ATAB

Vasanth

[Former Member]

hi vasanth

still getting d same runtime errors

vijay

[Former Member]

Hello Vijay,

Check this select

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO TABLE ATAB

UP TO 20 ROWS WHERE <b>VBELN IN MATNR</b>.

I have made the changes to the report and now it is giving the correct output. Make the chages whereever u want to make

REPORT ZV_TEST57 .
TABLES:LFA1,KNA1,MARA.
SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR,
KUNNR FOR KNA1-KUNNR,
MATNR FOR MARA-MATNR.



*DATA ITAB TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE.
*DATA JTAB TYPE STANDARD TABLE OF LFA1 WITH HEADER LINE.
*DATA ATAB TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.
DATA:BEGIN OF ITAB OCCURS 1,

KUNNR LIKE KNA1-KUNNR,
LAND1 LIKE KNA1-LAND1,
NAME1 LIKE KNA1-NAME1,
ORT01 LIKE KNA1-ORT01,
END OF ITAB.

DATA:BEGIN OF JTAB OCCURS 1,
LIFNR LIKE LFA1-LIFNR,
LAND1 LIKE LFA1-LAND1,
NAME1 LIKE LFA1-NAME1,
ORT01 LIKE LFA1-ORT01,
END OF JTAB.


DATA:BEGIN OF ATAB OCCURS 1 ,
MATNR LIKE MARA-MATNR,
MBRSH LIKE MARA-MBRSH,
MTART LIKE MARA-MTART,
MEINS LIKE MARA-MEINS,
END OF ATAB.

TYPE-POOLS SLIS.
DATA:REPID LIKE SY-REPID,
KNA1_B TYPE SLIS_T_FIELDCAT_ALV,
LAYOUT_B TYPE SLIS_LAYOUT_ALV,
EVENTS TYPE SLIS_T_EVENT.

REPID = SY-REPID.



SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO TABLE ITAB
UP TO 20 ROWS WHERE KUNNR IN KUNNR.

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO TABLE JTAB
UP TO 20 ROWS WHERE LIFNR IN LIFNR.


*SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO TABLE ATAB
*UP TO 20 ROWS WHERE VBELN IN MATNR.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
     EXPORTING
          I_CALLBACK_PROGRAM = REPID.
PERFORM APPENDBLOCK TABLES ITAB USING 'ITAB'.
PERFORM APPENDBLOCK TABLES ITAB USING 'JTAB'.
PERFORM APPENDBLOCK TABLES ITAB USING 'ATAB'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.
*---------------------------------------------------------------------*
*       FORM APPENDBLOCK                                              *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  KTAB                                                          *
*  -->  ITAB                                                          *
*---------------------------------------------------------------------*
FORM APPENDBLOCK TABLES KTAB USING ITAB.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_PROGRAM_NAME     = REPID
            I_INTERNAL_TABNAME = 'JTAB'
            I_INCLNAME         = REPID
       CHANGING
            CT_FIELDCAT        = KNA1_B.

  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
       EXPORTING
            IS_LAYOUT   = LAYOUT_B
            IT_FIELDCAT = KNA1_B
            I_TABNAME   = 'JTAB'
            IT_EVENTS   = EVENTS
       TABLES
            T_OUTTAB    = KTAB.
ENDFORM.

Reward Points

Vasanth

[Former Member]

hi...

Here in ur program ur selecting 4 fields into jtab and trying to insert in that,where as jtab has only 3 fields in its table definition.........so change the jtab to

DATA:BEGIN OF JTAB OCCURS 1,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

NAME1 LIKE LFA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF JTAB.

with regards

jay.

[Former Member]

Hi,

write INTO CORRESPONDING FIELDS in select statements...

KIshore.

[Former Member]

hi

i did dat still getting d runtime error..plz help

vijay

[Former Member]

heay vijay u paste all ur modified code once , we will check that and also the runtime error where ur getting this actually....

use <b>into corresponding fields of table</b> in each select statement.. and check..

[Former Member]

HI,

DUDE JUST DEBUG THE PROGRAM FROM THE START AND SEE WHERE THE ERROR IS OR THE STATEMENT WHICH IS TAKING SO MUCH TIME

[Former Member]

chk this select statement

SELECT MATNR MBRSH MTART MEIN FROM VBRP INTO TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

<b>ATAB fields do not match with that in the select fields</b>

[Former Member]

hi

its giving me mbrsh as unkown field

vijay

[Former Member]

Here is ur problem...

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MEINS LIKE MARA-MEINS,

END OF ATAB.

SELECT <b>MATNR VBELN FBUDA PSTYV </b> FROM VBRP INTO TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

Here ATAB does not contain these fields to place in the target area..

so chamge the declaration of ATAB...

[Former Member]

Hi vijay,

One thing i would like to advise is please understand the requirement first and then start coding

If you are not aware what the fields you are using in the report , then it becomes difficult for you

debug the code at each and evry point and understand what is happening

[Former Member]

HI

AM STILL GETTING D SAME ERRORS..PLZZ CHEC D ALV MERGE FUNCTION

[Former Member]

Please check the number and order of fields in your internal and select statement

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO TABLE JTAB

UP TO 20 ROWS WHERE LIFNR IN LIFNR.

[Former Member]

hi

anyone der plzz help....

vijay

[Former Member]

hi

chk the declaration of the table atab. paste ur latest code ..

regards,

madhu

[Former Member]

HI ,

U R ATAB FIELD HAS ONLY MATNR FIELD THAT IS MATCHING U R SELECT QUERY

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MEINS LIKE MARA-MEINS,

END OF ATAB.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

CHANGE THE STRUCTURE OF ATAB AND INCLUDE THE FOLLOWING IN THAT VBELN ,FBUDA PSTYV .

CHEERS!

[Former Member]

hi everyone,,

dis is d latest code/...make any changes if neccessarryyyy

vijay

REPORT ZX4 .

TABLES:LFA1,KNA1,MARA.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR,

KUNNR FOR KNA1-KUNNR,

MATNR FOR MARA-MATNR.

*DATA ITAB TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE.

*DATA JTAB TYPE STANDARD TABLE OF LFA1 WITH HEADER LINE.

*DATA ATAB TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.

DATA:BEGIN OF ITAB OCCURS 1,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

DATA:BEGIN OF JTAB OCCURS 1,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

NAME1 LIKE LFA1-NAME1,

ORT01 LIKE LFA1-ORT01,

END OF JTAB.

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MEINS LIKE MARA-MEINS,

END OF ATAB.

TYPE-POOLs SLIS.

DATA:REPID LIKE SY-REPID,

KNA1_B TYPE SLIS_T_FIELDCAT_ALV,

LAYOUT_B TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT.

REPID = SY-REPID.

SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE ITAB

UP TO 20 ROWS WHERE KUNNR IN KUNNR.

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE JTAB

UP TO 20 ROWS WHERE LIFNR IN LIFNR.

*SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

• UP TO 20 ROWS WHERE VBELN IN MATNR.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

*SELECT MATNR MBRSH MTART MEIN FROM VBRP INTO TABLE ATAB

*UP TO 20 ROWS WHERE VBELN IN MATNR.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = REPID.

PERFORM APPENDBLOCK TABLES ITAB USING 'ITAB'.

PERFORM APPENDBLOCK TABLES ITAB USING 'JTAB'.

PERFORM APPENDBLOCK TABLES ITAB USING 'ATAB'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

FORM APPENDBLOCK TABLES KTAB USING ITAB.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = JTAB

I_INCLNAME = REPID

CHANGING

CT_FIELDCAT = KNA1_B.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT_B

IT_FIELDCAT = KNA1_B

I_TABNAME = JTAB

IT_EVENTS = EVENTS

TABLES

T_OUTTAB = KTAB.

ENDFORM.

[Former Member]

Here is ur problem...

Change either the structure of ATAB Or change the select stattement of ATAB...

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MEINS LIKE MARA-MEINS,

END OF ATAB.

SELECT <b>MATNR VBELN FBUDA PSTYV</b> FROM VBRP INTO TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

Here ATAB does not contain these fields MATNR VBELN FBUDA PSTYV to place in the target area..

so change the declaration of ATAB...

REWARD IF IT helps u..

sai ramesh

[Former Member]

hi

ur declaration for table atab is L:

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MEINS LIKE MARA-MEINS,

END OF ATAB.

and the selection goes like this:

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

select the fields which u hv declared.

chk the where clause too.

decide which table and the fields you are going to fetch.

regards,

madhu

[Former Member]

hi

i made d changes...but its still am getting d rintime error

vijay

[Former Member]

Hi guys ,

the problem is here...

For the function module .. 'REUSE_ALV_FIELDCATALOG_MERGE

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

<b>I_INTERNAL_TABNAME = 'JTAB'</b>

I_INCLNAME = REPID

CHANGING

CT_FIELDCAT = KNA1_B.

<u><b>U need to give the name of the table in quotes 'JTAB'.</b></u>

change the same in <b>next functionmodule </b>also....

this solves ur problem..

regards,

sai ramesh

[Former Member]

heay mannn!! what happend is ur problem solved or not????

Check my precious reply....

Check these...

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = 'JTAB'

I_INCLNAME = REPID

CHANGING

CT_FIELDCAT = KNA1_B.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT_B

IT_FIELDCAT = KNA1_B

I_TABNAME = 'JTAB'

IT_EVENTS = EVENTS

TABLES

T_OUTTAB = KTAB.

ENDFORM.

Even after changing these also if it gives error then problem is in your Fieldcat definition... I executed the same program .. and this part has no errror its correct...!!!!!

reward if it helps u...

sai ramesh

Message was edited by:

Sai ramesh

[Former Member]

<b>DUDE JUST SEE THE FOLLOWING CHANGES</b>

REPORT ZX4 .

TABLES:LFA1,KNA1,MARA,VBRP.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR,

KUNNR FOR KNA1-KUNNR,

MATNR FOR MARA-MATNR.

DATA ITAB TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE.

DATA JTAB TYPE STANDARD TABLE OF LFA1 WITH HEADER LINE

DATA ATAB TYPE STANDARD TABLE OF VBRP WITH HEADER LINE.

DATA:BEGIN OF ITAB OCCURS 1,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

DATA:BEGIN OF JTAB OCCURS 1,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

NAME1 LIKE LFA1-NAME1,

ORT01 LIKE LFA1-ORT01,

END OF JTAB.

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE VBRP-MATNR,

VBELN LIKE VBRP-VBELN,

FBUDA LIKE VBRP-FBUDA,

PSTYV LIKE VBRP-PSTYV,

END OF ATAB.

TYPE-POOLs SLIS.

DATA:REPID LIKE SY-REPID,

KNA1_B TYPE SLIS_T_FIELDCAT_ALV,

LAYOUT_B TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT.

REPID = SY-REPID.

SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE ITAB

UP TO 20 ROWS WHERE KUNNR IN KUNNR.

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE JTAB

UP TO 20 ROWS WHERE LIFNR IN LIFNR.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE VBELN IN MATNR.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = REPID.

PERFORM APPENDBLOCK TABLES ITAB USING 'ITAB'.

PERFORM APPENDBLOCK TABLES ITAB USING 'JTAB'.

PERFORM APPENDBLOCK TABLES ITAB USING 'ATAB'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

FORM APPENDBLOCK TABLES KTAB USING ITAB.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPID

I_INTERNAL_TABNAME = JTAB

I_INCLNAME = REPID

CHANGING

CT_FIELDCAT = KNA1_B.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT_B

IT_FIELDCAT = KNA1_B

I_TABNAME = JTAB

IT_EVENTS = EVENTS

TABLES

T_OUTTAB = KTAB.

ENDFORM.

<b>THIS IS THE FINAL CODE JUST DO IT COPY PASTE IT</b>

[Former Member]

change this too

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE <b>MATNR</b> IN MATNR.

[Former Member]

HI MADHU,

NO ALL HIS SELECT QUERIES ARE WORKING NOW NO NEED TO CHANGE IT

I JUST CHECKED IT

[Former Member]

HI

U HAD DECLARED ITAB TWICE ONCE IN <b> DATA ITAB TYPE STANDARD TABLE OF KNA1 WITH HEADER LINE.</b> AND ALSO IN

<b>DATA:BEGIN OF ITAB OCCURS 1,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.</b>

ITS GIVING ME ERRORS AND I ALSO COMMENTED D BEGIN OF STATEMENT DEN AM AGAIN GETTING RUNTIME ERRORS

VIJAY

[Former Member]

hi

chk this code..and reward if helpful

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR,

KUNNR FOR KNA1-KUNNR,

MATNR FOR MARA-MATNR.

DATA:BEGIN OF ITAB OCCURS 1,

KUNNR LIKE KNA1-KUNNR,

LAND1 LIKE KNA1-LAND1,

NAME1 LIKE KNA1-NAME1,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

DATA:BEGIN OF JTAB OCCURS 1,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

NAME1 LIKE LFA1-NAME1,

ORT01 LIKE LFA1-ORT01,

END OF JTAB.

DATA:BEGIN OF ATAB OCCURS 1 ,

MATNR LIKE VBRP-MATNR,

VBELN LIKE VBRP-VBELN,

FBUDA LIKE VBRP-FBUDA,

PSTYV LIKE VBRP-PSTYV,

END OF ATAB.

TYPE-POOLs SLIS.

DATA:REPID LIKE SY-REPID,

KNA1_B TYPE SLIS_T_FIELDCAT_ALV,

LAYOUT_B TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT.

REPID = SY-REPID.

SELECT KUNNR LAND1 NAME1 ORT01 FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE ITAB

UP TO 20 ROWS WHERE KUNNR IN KUNNR.

SELECT LIFNR LAND1 NAME1 ORT01 FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE JTAB

UP TO 20 ROWS WHERE LIFNR IN LIFNR.

SELECT MATNR VBELN FBUDA PSTYV FROM VBRP INTO CORRESPONDING FIELDS OF TABLE ATAB

UP TO 20 ROWS WHERE MATNR IN MATNR.

regards,

madhu

[Former Member]

HI,

<b>SORRY I DIDNT COMMENT THAT

USE THIS NOW BUT SEE THE WARNING BELOW WHICH I HAVE WRITTEN</b>

TABLES:lfa1,kna1,mara,vbrp.

SELECT-OPTIONS:lifnr FOR lfa1-lifnr,

kunnr FOR kna1-kunnr,

matnr FOR mara-matnr.

*DATA : ITAB TYPE STANDARD TABLE OF KNA1 .

*DATA : JTAB TYPE STANDARD TABLE OF LFA1 .

*DATA : ATAB TYPE STANDARD TABLE OF VBRP .

DATA: BEGIN OF itab OCCURS 1,

kunnr LIKE kna1-kunnr,

land1 LIKE kna1-land1,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

END OF itab.

DATA:BEGIN OF jtab OCCURS 1,

lifnr LIKE lfa1-lifnr,

land1 LIKE lfa1-land1,

name1 LIKE lfa1-name1,

ort01 LIKE lfa1-ort01,

END OF jtab.

DATA:BEGIN OF atab OCCURS 1 ,

matnr LIKE vbrp-matnr,

vbeln LIKE vbrp-vbeln,

fbuda LIKE vbrp-fbuda,

pstyv LIKE vbrp-pstyv,

END OF atab.

TYPE-POOLS slis.

DATA:repid LIKE sy-repid,

kna1_b TYPE slis_t_fieldcat_alv,

layout_b TYPE slis_layout_alv,

events TYPE slis_t_event.

repid = sy-repid.

SELECT kunnr land1 name1 ort01 FROM kna1 INTO CORRESPONDING FIELDS OF TABLE itab

UP TO 20 ROWS WHERE kunnr IN kunnr.

SELECT lifnr land1 name1 ort01 FROM lfa1 INTO CORRESPONDING FIELDS OF TABLE jtab

UP TO 20 ROWS WHERE lifnr IN lifnr.

SELECT matnr vbeln fbuda pstyv FROM vbrp INTO CORRESPONDING FIELDS OF TABLE atab

UP TO 20 ROWS WHERE vbeln IN matnr.

SELECT matnr vbeln fbuda pstyv FROM vbrp INTO CORRESPONDING FIELDS OF TABLE atab

UP TO 20 ROWS WHERE vbeln IN matnr.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = repid.

PERFORM appendblock TABLES itab USING 'ITAB'.

PERFORM appendblock TABLES itab USING 'JTAB'.

PERFORM appendblock TABLES itab USING 'ATAB'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

&----

---

*& Form APPENDBLOCK

&----

---

• text

----

---

• -->KTAB text

• -->ITAB text

----

---

FORM appendblock TABLES ktab USING itab.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = repid

i_internal_tabname = jtab

i_inclname = repid

CHANGING

ct_fieldcat = kna1_b.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout_b

it_fieldcat = kna1_b

i_tabname = jtab

it_events = events

TABLES

t_outtab = ktab.

<b>NOW U R ALL SELECT QUERIES ARE WORKING THE PROBLEM IS IN FIELDCATALOG MERGE JUST CHECK IT</b>

[Former Member]

UFFFF

AM SORRY 2 SAY ITS GIVING D SAME RUN TIME ERRORS

IF U R BYSY LEAVE IT..THANKS FOR D SUPPORT

VIJAY

[Former Member]

this is because of the type mismatch while calling the function...check the previous replies and modify the code accordingly.

chk the alv function calling...which is already posted ..

regards,

madhu

[Former Member]

<b>HI VIJAY ,

I HAVE IMPLEMENTED THE SAME CODE AND NOW THE ALV LIST IS COMING PROPERLY

CHECK THIS CODE COPY PASTE IT OK </b>

TABLES:lfa1,kna1,mara,vbrp.

SELECT-OPTIONS:lifnr FOR lfa1-lifnr,

kunnr FOR kna1-kunnr,

matnr FOR mara-matnr.

DATA: BEGIN OF itab OCCURS 1,

kunnr LIKE kna1-kunnr,

land1 LIKE kna1-land1,

name1 LIKE kna1-name1,

ort01 LIKE kna1-ort01,

END OF itab.

DATA:BEGIN OF jtab OCCURS 1,

lifnr LIKE lfa1-lifnr,

land1 LIKE lfa1-land1,

name1 LIKE lfa1-name1,

ort01 LIKE lfa1-ort01,

END OF jtab.

DATA:BEGIN OF atab OCCURS 1 ,

matnr LIKE vbrp-matnr,

vbeln LIKE vbrp-vbeln,

fbuda LIKE vbrp-fbuda,

pstyv LIKE vbrp-pstyv,

END OF atab.

TYPE-POOLS slis.

DATA:repid LIKE sy-repid,

kna1_b TYPE slis_t_fieldcat_alv,

layout_b TYPE slis_layout_alv,

events TYPE slis_t_event.

repid = sy-repid.

SELECT kunnr land1 name1 ort01 FROM kna1 INTO CORRESPONDING FIELDS OF

TABLE itab

UP TO 20 ROWS WHERE kunnr IN kunnr.

SELECT lifnr land1 name1 ort01 FROM lfa1 INTO CORRESPONDING FIELDS OF

TABLE jtab

UP TO 20 ROWS WHERE lifnr IN lifnr.

SELECT matnr vbeln fbuda pstyv FROM vbrp INTO CORRESPONDING FIELDS OF

TABLE atab

UP TO 20 ROWS WHERE vbeln IN matnr.

SELECT matnr vbeln fbuda pstyv FROM vbrp INTO CORRESPONDING FIELDS OF

TABLE atab

UP TO 20 ROWS WHERE vbeln IN matnr.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = repid.

PERFORM appendblock TABLES itab USING 'ITAB'.

PERFORM appendblock TABLES itab USING 'JTAB'.

PERFORM appendblock TABLES itab USING 'ATAB'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

&----

---

*& Form APPENDBLOCK

*&----

---

• text

----

---

• -->KTAB text

• -->ITAB text

----

---

FORM appendblock TABLES ktab USING itab.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = repid

i_internal_tabname = 'JTAB'

i_inclname = repid

CHANGING

ct_fieldcat = kna1_b.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = layout_b

it_fieldcat = kna1_b

i_tabname = 'JTAB'

it_events = events

TABLES

t_outtab = ktab.

ENDFORM. "APPENDBLOCK

[Former Member]

hi

[Former Member]

hi vijay,

problem solved????

regards,

madhu

[Former Member]

hi

nopes but left it as now..no need of d module as of now...wil luk at it later

thank u

vijay