ALV Report DUMP

[Former Member]

Hi Experts,

I developed one alv report. Its executing properly. But once i select tab local file in application toolbar its going to dump.

im gettign this error:

Field symbol has not yet been assigned.

The current ABAP program "SAPLKKBL" had to be terminated because it has

come across a statement that unfortunately cannot be executed.

please help me in this regard.

Regards,

Vamsi.

[Former Member]

Hi Experts,

I developed one alv report. Its executing properly. But once i select tab local file in application toolbar its going to dump.

im gettign this error:

Field symbol has not yet been assigned.

The current ABAP program "SAPLKKBL" had to be terminated because it has

come across a statement that unfortunately cannot be executed.

please help me in this regard.

Regards,

Vamsi.

[Former Member]

hi,

give ur code....

[Former Member]

REPORT ZMM_PURCHREG.

TABLES: RBKP,RSEG,KONV,J_1IMOVEND.

TYPE-POOLS: SLIS.

DATA: IT_RBKP TYPE STANDARD TABLE OF RBKP WITH HEADER LINE.

DATA: IT_LFA1 TYPE STANDARD TABLE OF LFA1 WITH HEADER LINE.

DATA: IT_J_1IMOVEND TYPE STANDARD TABLE OF J_1IMOVEND WITH HEADER LINE.

DATA: IT_RSEG TYPE STANDARD TABLE OF RSEG WITH HEADER LINE.

TYPES: BEGIN OF IT_BAMT1 ,

RMWWR TYPE RBKP-RMWWR,

WMWST1 TYPE RBKP-WMWST1,

END OF IT_BAMT1.

DATA: IT_BAMT TYPE STANDARD TABLE OF IT_BAMT1.

DATA: G_BAMT TYPE RBKP-RMWWR.

DATA: G_RMAMT TYPE RBKP-RMWWR,

G_WMWST1 TYPE RBKP-WMWST1.

DATA: BEGIN OF IT_TAXCOM OCCURS 0.

INCLUDE STRUCTURE TAXCOM.

DATA: END OF IT_TAXCOM.

DATA: BEGIN OF IT_MAIN OCCURS 0.

INCLUDE STRUCTURE ZPO_REG.

DATA: END OF IT_MAIN.

DATA: BEGIN OF IT_EKKO OCCURS 0,

EBELN TYPE EKKO-EBELN,

KNUMV TYPE EKKO-KNUMV,

WAERS TYPE EKKO-WAERS,

LIFNR TYPE EKKO-LIFNR,

EKORG TYPE EKKO-EKORG,

LANDS TYPE EKKO-LANDS,

END OF IT_EKKO.

DATA: BEGIN OF IT_EKPO OCCURS 0,

EBELP TYPE EKPO-EBELP,

EBELN TYPE EKPO-EBELN,

MWSKZ TYPE EKPO-MWSKZ,

NETWR TYPE EKPO-NETWR,

TXJCD TYPE EKPO-TXJCD,

MATNR TYPE EKPO-MATNR,

MATKL TYPE EKPO-MATKL,

MTART TYPE EKPO-MTART,

WERKS TYPE EKPO-WERKS,

MEINS TYPE EKPO-MEINS,

MENGE TYPE EKPO-MENGE,

END OF IT_EKPO.

DATA : BEGIN OF it_xkomv OCCURS 0.

INCLUDE STRUCTURE komv.

DATA : END OF it_xkomv.

DATA : fieldcat TYPE slis_fieldcat_alv,

fieldcat_t TYPE slis_t_fieldcat_alv,

top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',

layout TYPE slis_layout_alv,

pos TYPE sy-tabix,

xhead(70).

DATA: lt_sort TYPE slis_t_sortinfo_alv,

lt_sp_group TYPE slis_t_sp_group_alv.

==========================SELECTION SCREEN===========================

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: S_BELNR FOR RBKP-BELNR.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: P_BUKRS FOR RBKP-BUKRS NO INTERVALS.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: P_LIFNR FOR RBKP-LIFNR NO INTERVALS.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: P_BLDAT FOR RBKP-BLDAT NO INTERVALS.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: P_BUDAT FOR RBKP-BUDAT NO INTERVALS.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN END OF BLOCK b1.

===============AT SELECTION SCREEN==================================

AT SELECTION-SCREEN.

PERFORM VALIDATE_DATA.

===============START OF SELECTION===================================

START-OF-SELECTION.

PERFORM VENDORDETAILS.

*PERFORM BASICAMT.

PERFORM EXCISEDUTY.

PERFORM CONSTRUCT_FIELD_CATALOG.

PERFORM REUSE_ALV_GRID_DISPLAY.

&----

---

*& Form VALIDATE_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form VALIDATE_DATA .

SELECT BELNR BUKRS LIFNR

BLDAT BUDAT

FROM RBKP CLIENT SPECIFIED

INTO

CORRESPONDING FIELDS OF TABLE IT_RBKP

WHERE

MANDT = SY-MANDT

AND BELNR IN S_BELNR.

IF SY-SUBRC NE 0.

MESSAGE 'NOT A VALID DOCUMENT NO.' TYPE 'E'.

ELSE.

READ TABLE IT_RBKP INDEX 1.

ENDIF.

endform. " VALIDATE_DATA

&----

---

*& Form VENDORDETAILS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form VENDORDETAILS .

SELECT BELNR BUKRS LIFNR

BLDAT BUDAT XBLNR RMWWR WMWST1

FROM RBKP CLIENT SPECIFIED

INTO

CORRESPONDING FIELDS OF TABLE IT_RBKP

WHERE

MANDT = SY-MANDT

AND BELNR IN S_BELNR

AND BUKRS IN P_BUKRS

AND LIFNR IN P_LIFNR

AND BLDAT IN P_BLDAT

AND BUDAT IN P_BUDAT.

sort IT_RBKP by lifnr.

LOOP AT IT_RBKP.

SELECT SINGLE LIFNR J_1IEXCD J_1ICSTNO J_1ILSTNO

FROM J_1IMOVEND CLIENT SPECIFIED

INTO (IT_J_1IMOVEND-lifnr, IT_J_1IMOVEND-J_1IEXCD,

IT_J_1IMOVEND-J_1ICSTNO, IT_J_1IMOVEND-J_1ILSTNO)

WHERE

MANDT = SY-MANDT and

LIFNR = IT_RBKP-LIFNR.

APPEND IT_J_1IMOVEND.

ENDLOOP.

sort IT_J_1IMOVEND by lifnr.

delete adjacent duplicates from IT_J_1IMOVEND comparing lifnr.

LOOP AT IT_RBKP.

read table IT_J_1IMOVEND with key LIFNR = it_rbkp-lifnr.

G_BAMT = IT_RBKP-RMWWR - IT_RBKP-WMWST1.

IT_MAIN-BASICAMT = G_BAMT.

IT_MAIN-BUDAT = IT_RBKP-BUDAT.

IT_MAIN-BLDAT = IT_RBKP-BLDAT.

IT_MAIN-BELNR = IT_RBKP-BELNR.

IT_MAIN-XBLNR = IT_RBKP-XBLNR.

IT_MAIN-LIFNR = IT_RBKP-LIFNR.

IT_MAIN-XBLNR = IT_RBKP-XBLNR.

IT_MAIN-J_1IEXCD = IT_J_1IMOVEND-J_1IEXCD.

IT_MAIN-J_1ILSTNO = IT_J_1IMOVEND-J_1ILSTNO.

IT_MAIN-J_1ICSTNO = IT_J_1IMOVEND-J_1ICSTNO.

IT_MAIN-J_1ILSTNO = IT_J_1IMOVEND-J_1ILSTNO.

APPEND IT_MAIN.

CLEAR G_BAMT.

ENDLOOP.

• FOR CALCULATING VAT REG NO.

loop at it_main.

SELECT SINGLE STCEG FROM LFA1

INTO it_main-STCEG

WHERE LIFNR = it_main-LIFNR.

MODIFY IT_MAIN.

ENDLOOP.

endform. " VENDORDETAILS

&----

---

*& Form EXCISEDUTY

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form EXCISEDUTY .

LOOP AT IT_RBKP.

SELECT belnr EBELN EBELP menge FROM RSEG

INTO corresponding fields of IT_RSEG

WHERE BELNR = IT_RBKP-BELNR.

APPEND IT_RSEG.

endselect.

endloop.

LOOP AT IT_MAIN.

READ TABLE IT_RSEG WITH KEY BELNR = IT_MAIN-BELNR.

IT_MAIN-EBELN = IT_RSEG-EBELN.

IT_MAIN-MENGE = IT_RSEG-MENGE.

MODIFY IT_MAIN.

ENDLOOP.

LOOP AT IT_MAIN.

SELECT SINGLE KNUMV FROM EKKO

INTO

IT_MAIN-KNUMV

WHERE EBELN = IT_MAIN-EBELN.

MODIFY IT_MAIN.

ENDLOOP.

LOOP AT IT_MAIN.

SELECT EBELP FROM EKPO

INTO TABLE IT_EKPO

WHERE EBELN = IT_MAIN-EBELN.

APPEND IT_EKPO.

ENDLOOP.

*************************************************

DATA: V_RATE TYPE KWERT,

V_RATE1 TYPE KWERT,

V_RATE2 TYPE KWERT,

V_RATE4 TYPE KWERT,

V_RATE5 TYPE KWERT,

V_RATE3 TYPE KWERT,

V_RATE6 TYPE KWERT.

• CLACULATING SECESS

LOOP AT IT_MAIN.

LOOP AT IT_RSEG where belnr = IT_MAIN-belnr

and ebeln = IT_MAIN-ebeln.

LOOP AT IT_EKPO WHERE EBELN = IT_MAIN-EBELN.

SELECT SINGLE kbetr FROM konv

INTO V_rate WHERE knumv = it_MAIN-knUMV

AND kposn = IT_EKPO-EBELP

AND ( kschl EQ 'JSEI' OR kschl EQ 'JSEP' ).

IF sy-subrc = 0.

IT_MAIN-SECESS = IT_MAIN-SECESS + ( V_RATE / IT_MAIN-MENGE ).

ENDIF.

ENDLOOP.

MODIFY it_main.

ENDLOOP.

ENDLOOP.

• Getting ECS

LOOP AT IT_MAIN.

LOOP AT IT_RSEG where belnr = IT_MAIN-belnr

and ebeln = IT_MAIN-ebeln.

SELECT SINGLE kbetr FROM konv

INTO V_rate1 WHERE knumv = it_MAIN-knumv

AND kposn = it_RSEG-ebelp

AND ( kschl EQ 'JEC1' OR kschl EQ 'JEC2' ).

IF sy-subrc = 0.

IT_MAIN-ECS = IT_MAIN-ECS + ( V_RATE1 / IT_MAIN-MENGE ).

CLEAR V_RATE1.

ENDIF.

ENDLOOP.

MODIFY it_main.

ENDLOOP.

• Excise Duty

LOOP AT IT_MAIN.

LOOP AT IT_RSEG where belnr = IT_MAIN-belnr

and ebeln = IT_MAIN-ebeln.

SELECT SINGLE kbetr FROM konv

INTO V_rate2 WHERE knumv = it_MAIN-knumv

AND kposn = it_RSEG-ebelp

AND ( kschl EQ 'JMOP' OR kschl EQ 'JMIP' ).

IF sy-subrc = 0.

IT_MAIN-EXCISE = IT_MAIN-EXCISE + ( V_RATE2 / IT_MAIN-MENGE ).

ENDIF.

CLEAR V_RATE2.

ENDLOOP.

MODIFY it_main.

ENDLOOP.

• Freight / Octroi

LOOP AT IT_MAIN.

LOOP AT IT_RSEG where belnr = IT_MAIN-belnr

and ebeln = IT_MAIN-ebeln.

SELECT SINGLE kbetr FROM konv

INTO V_rate3 WHERE knumv = it_MAIN-knumv

AND kposn = it_RSEG-ebelp

AND ( kschl EQ 'FRA1' OR kschl EQ 'FRB1'

OR KSCHL EQ 'FRC1').

IF sy-subrc = 0.

SELECT SINGLE KBETR FROM KONV

INTO V_RATE4 WHERE KNUMV = IT_MAIN-KNUMV

AND KPOSN = IT_RSEG-EBELP

AND KSCHL EQ 'JOCM'.

IF SY-SUBRC = 0.

V_RATE5 = V_RATE3 + V_RATE4.

IT_MAIN-OCTROI = IT_MAIN-OCTROI + ( V_RATE5 / IT_MAIN-MENGE ).

ENDIF.

ENDIF.

CLEAR: V_RATE3,

V_RATE4,

V_RATE5.

ENDLOOP.

MODIFY it_main.

ENDLOOP.

• Other Charges

LOOP AT IT_MAIN.

LOOP AT IT_RSEG where belnr = IT_MAIN-belnr

and ebeln = IT_MAIN-ebeln.

SELECT SINGLE kbetr FROM konv

INTO V_rate6 WHERE knumv = it_MAIN-knumv

AND kposn = it_RSEG-ebelp

AND ( kschl EQ 'ZOTC' ).

IF sy-subrc = 0.

IT_MAIN-OTC = IT_MAIN-OTC + ( V_RATE6 / IT_MAIN-MENGE ).

ENDIF.

CLEAR V_RATE6.

ENDLOOP.

MODIFY it_main.

ENDLOOP.

ENDFORM.

&----

---

*& Form CONSTRUCT_FIELD_CATALOG

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form CONSTRUCT_FIELD_CATALOG .

CLEAR : fieldcat_t,pos.

layout-colwidth_optimize = 'X'.

CLEAR fieldcat.

fieldcat-fieldname = 'BUDAT'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'DOC DATE'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'BLDAT'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'BILL DATE'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'BELNR'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'INVOICE RECIEPT NO.'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'XBLNR'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'BILL NO.'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'LIFNR'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'VENDOR NAME'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

• CLEAR fieldcat.

• fieldcat-fieldname = 'STCEG'.

• fieldcat-tabname = 'IT_MAIN'.

• fieldcat-seltext_l = 'VAT REG NO.'.

• fieldcat-just = 'L'.

• fieldcat-col_pos = pos.

• pos = pos + 1.

• APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'J_1IEXCD'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'ECC REG NO.'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'J_1ILSTNO'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'PAN REG NO.'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'J_1ICSTNO'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'CST REG NO.'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'J_1ILSTNO'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'LST REG NO.'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'BASICAMT'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'BASIC AMOUNT'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'EXCISE'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'EXCISE AMOUNT'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'ECSS'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'ECSS'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'SECESS'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'SECESS'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'VAT'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'VAT'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'OCTROI'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'Octroi'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'OTC'.

fieldcat-tabname = 'IT_MAIN'.

fieldcat-seltext_l = 'Other charges'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

endform. " CONSTRUCT_FIELD_CATALOG

&----

---

*& Form REUSE_ALV_GRID_DISPLAY

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form REUSE_ALV_GRID_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-REPID

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_TOP_OF_PAGE = TOP_OF_PAGE

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME = 'ZPO_REG'

• I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'PURCHASE REGISTER'

• I_GRID_SETTINGS =

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FIELDCAT_T

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

I_SAVE = 'A'

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = IT_MAIN

• EXCEPTIONS

• PROGRAM_ERROR = 1

• OTHERS = 2

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

[Former Member]

Hi,

This is because your layout is blank.

CLEAR : fieldcat_t,pos.
layout-colwidth_optimize = 'X'.
append layout. "Newly added code.

Thanks,

Sriram Ponna.

[Former Member]

No man,

CLEAR : fieldcat_t,pos.

layout-colwidth_optimize = 'X'.

append layout. "Newly added code.

i written above code,

please checkout my code.

its very urgent.

[Former Member]

In ALV, IS_Layout is structure not an internal table.

[Former Member]

Hi Vamshi,

try without passing layout parameter to ALV FM .Generally download to local file should be taken care by SAP itself, it is not realted to any Layout problem.

Regards,

Somesh

[Former Member]

See the structure "ZPO_REG" in data dictionary.Check all field name and give all name in capital letter in field catalogue. You can use this code.

Z_COL_POS = Z_COL_POS + 1."80
  ZFIELDCAT_LN-REF_TABNAME = 'EKPO'. 
  ZFIELDCAT_LN-REF_FIELDNAME = 'ELIKZ'.
  ZFIELDCAT_LN-TABNAME = 'T_REP_OUT'. "intenal table
  ZFIELDCAT_LN-FIELDNAME = 'ELIKZ'. " field Name in internal table
  ZFIELDCAT_LN-COL_POS = Z_COL_POS.
*  zfieldcat_ln-hotspot = 'X'.
  ZFIELDCAT_LN-OUTPUTLEN = '1'.
  ZFIELDCAT_LN-SELTEXT_M = 'Delivery Compt'.
  ZFIELDCAT_LN-DDICTXT = 'M'.
  APPEND ZFIELDCAT_LN TO T_FIELDCAT.
  CLEAR ZFIELDCAT_LN.

[Former Member]

HI,

Just define all the fields as type CHAR (Length corresponding length of the field) and try. If the field type is CHAR then no need to change but change which are of not CHAR type.

Regards,

Atish

[Former Member]

hi

i have also faced this kind of problem

This problem happens when you are displaying quantity or amount fields in the alv.

For confirming just try not to display the quantity or amount fileds and then try to download, it will work.

So to overcome problem, declare all the filed of type char and then move values to them, I mean use another internal table with all filed of type char and pass this table to your alv.

Regards

Sukhi..

[Former Member]

I

you can try another solution

When you are building fielcatalog

for the fields of tye amount or quantity use S407 in table name and FKONDFLA in field name.

for example

CLEAR fieldcat.

fieldcat-fieldname = 'FKONDFLA'.

fieldcat-tabname = 'S407'.

fieldcat-seltext_l = 'BASIC AMOUNT'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

CLEAR fieldcat.

fieldcat-fieldname = 'FKONDFLA'.

fieldcat-tabname = 'S407'.

fieldcat-seltext_l = 'EXCISE AMOUNT'.

fieldcat-just = 'L'.

fieldcat-col_pos = pos.

pos = pos + 1.

APPEND fieldcat TO fieldcat_t.

but here the position of the field in the internal table and catalog matters , should be same.

I think this will solve your problem..

<REMOVED BY MODERATOR>

Regards

sukhi

Edited by: Alvaro Tejada Galindo on Mar 10, 2008 3:21 PM

[Former Member]

hi vamshi,

Try to put breakpoints after regular intervals of ur code to find the location of the problem.

moreover see the short dump ,slide down to find the place exactly where it has gone for short dumps.

u can also analyse the same through transaction code ST22 , it can suggest u a reason for same too

the problem or erronous code may or may not be at location of occuring of short dump . there may be problem with the declaration of objects which u r using at the location.

[Former Member]

Hi,

Check your field names which are hardcoded in Field-Catalog with Final Intrnal table field names. If there is any incorrect field names it will give dump.

Regards,

Balavardhan.K

[Former Member]

HI VAMSI ,

SAME TYPE OF DUMP IS COMING FOR ME,WHILE DOWLOADING INTO EXCELL IF U FIND SOME SOLUTION PLEASE MAIL ME BACK

[Former Member]

Hi,

this is just because of the program ID. Do the following.

data : repid like sy-repid.

initialization.

repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

I_callback_program = repid.

Now it will work.

Regards,

Sanki.