Solved: ABAP Dump while doing total(summing up)

Former Member · ‎2006 Oct 04

Hello Experts

I have a report: This program reads Sales Order and

Delivery information.

When i tried to sum the Order Quantity, an ABAP Dump is

coming. Can anyone help me in correcting my Code?

Program looks like following and DUMP follows.

*_________________________________________________________

_____________*

Global data declaration

*_________________________________________________________

_____________*

TYPE-POOLS: slis.

TABLES: vbap, vbrk, vbfa, vbak, vbrp, konv, kna1, bkpf,

bsad, bkpf_bsad,

knvv, pa0002, t005u, mvke, lips, likp, vbpa, vbep.

DATA: BEGIN OF i_list OCCURS 0,

vbeln LIKE vbak-vbeln,

posnr LIKE vbap-posnr,

etenr like vbep-etenr,

matnr LIKE vbap-matnr,

erdat LIKE vbap-erdat,

mvgr1 LIKE mvke-mvgr1,

wadat_ist LIKE likp-wadat_ist,

days TYPE i,

werks LIKE vbap-werks,

lgort LIKE vbap-lgort,

kwmeng LIKE vbap-kwmeng," CH01+

lfimg LIKE lips-lfimg," CH01+

pstyv LIKE vbap-pstyv," CH01+

obd LIKE lips-vbeln," CH01+

obd_pos LIKE lips-posnr," CH01+

soldto LIKE vbaK-kunnr," JR+

shipto LIKE vbpa-kunnr," JR+

edatu like vbep-edatu," PR+

END OF i_list.

DATA: i_list2 LIKE i_list OCCURS 0 WITH HEADER LINE,

i_list3 LIKE i_list OCCURS 0 WITH HEADER LINE.

DATA: i_list4 LIKE vbap OCCURS 0 WITH HEADER LINE.

*ALV Output Header

DATA: gt_list_top_of_page TYPE slis_t_listheader,

prognm LIKE sy-repid,

gc_formname_top_of_page TYPE slis_formname VALUE

'TOP_OF_PAGE',

gt_events TYPE slis_t_event,

is_layout TYPE slis_layout_alv,

is_variant LIKE disvariant,

it_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE.

DATA:gt_fieldcat TYPE slis_t_fieldcat_alv.

DATA:gt_outtab LIKE i_list OCCURS 0 WITH HEADER LINE.

DATA: g_repid LIKE sy-repid,

g_count LIKE sy-tabix.

SELECTION-SCREEN BEGIN OF BLOCK block0 WITH FRAME TITLE

text-t01.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(79) text-t10.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(79) text-t11.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(79) text-t12.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN END OF BLOCK block0.

*/ Selection and Input Parameters

SELECTION-SCREEN BEGIN OF BLOCK blocko WITH FRAME TITLE

text-001.

SELECT-OPTIONS: s_vbeln FOR vbap-vbeln, "SO

s_auart FOR vbak-auart DEFAULT 'KB' OBLIGATORY,

s_matnr FOR vbap-matnr," obligatory,

s_mvgr1 FOR mvke-mvgr1,

s_erdat FOR vbap-erdat OBLIGATORY,

s_werks FOR vbap-werks,

s_lgort FOR vbap-lgort,

s_edatu FOR vbep-edatu.

PARAMETERS: p_vkorg LIKE vbak-vkorg DEFAULT '5010'.

SELECTION-SCREEN SKIP 2.

*----

-

+EC1

Addition +EC1

*----

-

+EC1

PARAMETERS: p_vari LIKE disvariant-variant.

*----

-

+EC1

End Addition +EC1

*----

-

+EC1

SELECTION-SCREEN END OF BLOCK blocko.

*----

-

+EC1

Addition +EC1

*----

-

+EC1

DATA: g_save(1) TYPE c,

g_default(1) TYPE c,

g_exit(1) TYPE c,

gx_variant LIKE disvariant,

g_variant LIKE disvariant.

*----

-

+EC1

End Addition +EC1

*----

-

+EC1

Initialization fieldcatalog

INITIALIZATION.

PERFORM clear_tables.

g_repid = sy-repid.

PERFORM fieldcat_init USING gt_fieldcat[].

*----

-

+EC1

Addition +EC1

*----

-

+EC1

g_save = 'A'.

PERFORM variant_init.

Get default variant

gx_variant = g_variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = g_save

CHANGING

cs_variant = gx_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc = 0.

p_vari = gx_variant-variant.

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.

PERFORM f4_for_variant.

AT SELECTION-SCREEN.

PERFORM auth_check. "+ESC

PERFORM pai_of_selection_screen.

*----

-

+EC1

End Addition +EC1

*----

-

+EC1

START-OF-SELECTION.

PERFORM get_data.

PERFORM alv.

END-OF-SELECTION.

*----

-

FORM get_data *

*----

-

........ *

*----

-

FORM get_data.

*CH01 - Added kwmeng(order qty) to selection, excluded

rejects

*JR -added soldto and shipto code

SELECT a_{vbeln a}posnr a_{matnr a}erdat a_{werks a}lgort

a_{kwmeng a}pstyv b_{kunnr c}edatu

CH01+

INTO

(i_list-vbeln, i_list-posnr, i_list-matnr, i_list-erdat,

i_list-werks,

i_list-lgort,

i_list-kwmeng , i_list-pstyv, i_list-soldto,i_list-edatu)

CH01+

FROM vbap AS a INNER JOIN vbak AS b ON a_{vbeln = b}vbeln

INNER JOIN vbep AS c ON a_{vbeln = c}vbeln

WHERE b~vkorg = p_vkorg

AND a~werks IN s_werks

AND a~lgort IN s_lgort

AND b~auart IN s_auart

AND a~vbeln IN s_vbeln

AND a~erdat IN s_erdat

AND a~abgru = ''" CH01+

AND a~matnr IN s_matnr

AND c~edatu IN s_edatu.

APPEND i_list.

ENDSELECT.

COMMIT WORK AND WAIT.

SORT i_list BY VBELN POSNR EDATU.

DELETE ADJACENT DUPLICATES FROM i_list COMPARING vbeln

posnr.

LOOP AT i_list.

SELECT SINGLE mvgr1 INTO i_list-mvgr1 FROM mvke

WHERE matnr = i_list-matnr.

MODIFY i_list.

CLEAR: i_list.

ENDLOOP.

COMMIT WORK AND WAIT.

LOOP AT i_list.

IF i_list-mvgr1 IN s_mvgr1.

CONTINUE.

ELSE.

DELETE i_list.

COMMIT WORK AND WAIT.

ENDIF.

ENDLOOP.

CH01 - commented these lines out and redid logic below
LOOP AT i_list.

select single vbeln into lips-vbeln from lips
where vgbel = i_list-vbeln
and vgpos = i_list-posnr.
select single wadat_ist into i_list-wadat_ist from likp
where vbeln = lips-vbeln.

SELECT b~wadat_ist INTO i_list-wadat_ist
FROM lips AS a INNER JOIN
likp AS b ON a_{vbeln = b}vbeln WHERE a~vgbel =

i_list-vbeln

AND a~vgpos = i_list-posnr.
MODIFY i_list.
CLEAR: i_list, lips-vbeln.
ENDSELECT.
ENDLOOP.

CH01 - Changed to select multiple delivery lines & del

qty

summing the total deliveries per OBD# and date

LOOP AT i_list.

SELECT a_{vbeln sum( a}lfimg ) b~wadat_ist

INTO (i_list-obd , i_list-lfimg , i_list-wadat_ist)

FROM lips AS a INNER JOIN

likp AS b ON a_{vbeln = b}vbeln WHERE a~vgbel =

i_list-vbeln

AND a~vgpos = i_list-posnr

AND a~pstyv = i_list-pstyv

group by a_{vbeln b}wadat_ist.

i_list2 = i_list.

APPEND i_list2.

ENDSELECT.

IF sy-subrc <> 0.

i_list2 = i_list.

APPEND i_list2.

ENDIF.

ENDLOOP.

i_list[] = i_list2[].

*End CH01

COMMIT WORK AND WAIT.

LOOP AT i_list.

IF i_list-wadat_ist IS INITIAL.

CONTINUE.

ELSE.

i_list-days = i_list-wadat_ist - i_list-erdat.

ENDIF.

MODIFY i_list.

CLEAR: i_list.

COMMIT WORK AND WAIT.

ENDLOOP.

COMMIT WORK AND WAIT.

LOOP AT i_list.

IF i_list-vbeln IS INITIAL.

DELETE i_list.

ENDIF.

ENDLOOP.

COMMIT WORK AND WAIT.

*JR

LOOP AT i_list.

SELECT SINGLE KUNNR INTO i_list-shipto FROM vbpa

WHERE vbeln = i_list-vbeln

AND parvw = 'WE'.

MODIFY i_list.

ENDLOOP.

*END JR

gt_outtab[] = i_list[].

COMMIT WORK AND WAIT.

ENDFORM.

*----

-

FORM alv *

*----

-

........ *

*----

-

FORM alv.

PERFORM e03_eventtab_build USING gt_events[]. "+EC1

PERFORM e04_comment_build USING gt_list_top_of_page[].

"+EC1

prognm = sy-repid. "+EC1

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_user_command = 'USER_COMMAND'

i_callback_program = g_repid

it_fieldcat = gt_fieldcat[]

it_events = gt_events[] "+ESC

it_sort = it_sort[]

*----

-

+EC1

Addition +EC1

*----

-

+EC1

is_variant = g_variant

i_save = g_save

*----

-

+EC1

End Addition +EC1

*----

-

+EC1

TABLES

t_outtab = gt_outtab.

COMMIT WORK AND WAIT.

ENDFORM.

*----

-

FORM fieldcat_init *

*----

-

........ *

*----

-

--> I_FIELDCAT *

*----

-

FORM fieldcat_init

USING i_fieldcat TYPE slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

DATA: pos TYPE i VALUE 1.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'VBELN'.

ls_fieldcat-ref_tabname = 'VBAK'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'POSNR'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'MATNR'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'MVGR1'.

ls_fieldcat-ref_tabname = 'MVKE'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'WERKS'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'LGORT'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'ERDAT'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'WADAT_IST'.

ls_fieldcat-ref_tabname = 'LIKP'.

ls_fieldcat-key = 'X'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'DAYS'.

ls_fieldcat-ref_fieldname = 'DAYS'.

ls_fieldcat-seltext_s = '# Of Days'.

ls_fieldcat-seltext_m = '# Of Days'.

ls_fieldcat-seltext_l = '# Of Days'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

*Begin CH01

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'KWMENG'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-outputlen = 7.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'LFIMG'.

ls_fieldcat-ref_tabname = 'LIPS'.

ls_fieldcat-outputlen = 7.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'OBD'.

ls_fieldcat-seltext_s = 'OBD'.

ls_fieldcat-seltext_m = 'Outbound Del'.

ls_fieldcat-seltext_l = 'Outbound Delivery'.

ls_fieldcat-outputlen = 10.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'OBD_POS'.
ls_fieldcat-seltext_s = 'OBD Ln'.
ls_fieldcat-seltext_m = 'Outbound Del Ln'.
ls_fieldcat-seltext_l = 'Outbound Del Line'.
ls_fieldcat-outputlen = 10.
APPEND ls_fieldcat TO i_fieldcat.
CLEAR ls_fieldcat.

*End CH01

*JR

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'SOLDTO'.

ls_fieldcat-ref_tabname = 'VBAP'.

ls_fieldcat-seltext_m = 'Sold To'.

ls_fieldcat-seltext_l = 'Sold To'.

ls_fieldcat-outputlen = 10.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'SHIPTO'.

ls_fieldcat-ref_tabname = 'VBPA'.

ls_fieldcat-seltext_m = 'Ship To'.

ls_fieldcat-seltext_l = 'Ship To'.

ls_fieldcat-outputlen = 10.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'ETERN'.

ls_fieldcat-ref_tabname = 'VBEP'.

ls_fieldcat-seltext_m = 'Schedule line number'.

ls_fieldcat-seltext_l = 'Schedule line number'.

ls_fieldcat-key = 'Schedule line number'.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

*END JR

pos = pos + 1.

ls_fieldcat-col_pos = pos.

ls_fieldcat-fieldname = 'EDATU'.

ls_fieldcat-ref_tabname = 'VBEP'.

ls_fieldcat-seltext_m = 'Requested Delivery date'.

ls_fieldcat-seltext_l = 'Requested Delivery date'.

ls_fieldcat-outputlen = 20.

APPEND ls_fieldcat TO i_fieldcat.

CLEAR ls_fieldcat.

*FOR ALV SORT & SUBTOTAL

CLEAR it_sort.

it_sort-spos = '0'.

it_sort-fieldname = 'VBELN'.

it_sort-tabname = 'GT_OUTTAB'.

it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

CLEAR it_sort.

it_sort-spos = '1'.

it_sort-fieldname = 'POSNR'.

it_sort-tabname = 'GT_OUTTAB'.

it_sort-up = 'X'.

it_sort-subtot = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

CLEAR it_sort.

it_sort-spos = '2'.

it_sort-fieldname = 'MATNR'.

it_sort-tabname = 'GT_OUTTAB'.

it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

CLEAR it_sort.

it_sort-spos = '3'.

it_sort-fieldname = 'MVGR1'.

it_sort-tabname = 'GT_OUTTAB'.

it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

CLEAR it_sort.

it_sort-spos = '4'.

it_sort-fieldname = 'ERDAT'.

it_sort-tabname = 'GT_OUTTAB'.

it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

CLEAR it_sort.

it_sort-spos = '5'.

it_sort-fieldname = 'WADAT_IST'.

it_sort-tabname = 'GT_OUTTAB'.

it_sort-down = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

CLEAR it_sort.
it_sort-spos = '6'.
it_sort-fieldname = 'PERNR'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.
CLEAR it_sort.
it_sort-spos = '7'.
it_sort-fieldname = 'VORNA'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.
CLEAR it_sort.
it_sort-spos = '8'.
it_sort-fieldname = 'NACHN'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.
CLEAR it_sort.
it_sort-spos = '9'.
it_sort-fieldname = 'VKGRP'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.
CLEAR it_sort.
it_sort-spos = '10'.
it_sort-fieldname = 'VBELN'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.
CLEAR it_sort.
it_sort-spos = '11'.
it_sort-fieldname = 'ERDAT'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.
CLEAR it_sort.
it_sort-spos = '12'.
it_sort-fieldname = 'BEZEI'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.

it_sort-subtot = 'X'.

APPEND it_sort.

clear it_sort.
it_sort-spos = '1'.
it_sort-fieldname = 'BELNR'.
it_sort-tabname = 'GT_OUTTAB'.
it_sort-up = 'X'.
append it_sort.

ENDFORM.

*----

-

+EC1

Addition +EC1

*----

-

+EC1

*&----

-

*& Form VARIANT_INIT

*&----

-

text

*----

-

--> p1 text
<-- p2 text

*----

-

FORM variant_init.

CLEAR g_variant.

g_variant-report = g_repid.

ENDFORM. " VARIANT_INIT

*----

-

FORM f4_for_variant *

*----

-

........ *

*----

-

FORM f4_for_variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = g_variant

i_save = g_save

it_default_fieldcat =

IMPORTING

e_exit = g_exit

es_variant = gx_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

IF g_exit = space.

p_vari = gx_variant-variant.

ENDIF.

ENDFORM.

*&----

-

*& Form PAI_OF_SELECTION_SCREEN

*&----

-

text

*----

-

FORM pai_of_selection_screen.

IF NOT p_vari IS INITIAL.

MOVE g_variant TO gx_variant.

MOVE p_vari TO gx_variant-variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

i_save = g_save

CHANGING

cs_variant = gx_variant.

g_variant = gx_variant.

ELSE.

PERFORM variant_init.

ENDIF.

ENDFORM. " PAI_OF_SELECTION_SCREEN

*----

-

+EC1

End Addition +EC1

*----

-

+EC1

*----

-

FORM e03_eventtab_build *

*----

-

........ *

*----

-

--> E03_LT_EVENTS *

*----

-

FORM e03_eventtab_build USING e03_lt_events TYPE

slis_t_event.

DATA: ls_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = e03_lt_events.

READ TABLE e03_lt_events WITH KEY name =

slis_ev_top_of_page

INTO ls_event.

IF sy-subrc = 0.

MOVE gc_formname_top_of_page TO ls_event-form.

APPEND ls_event TO e03_lt_events.

ENDIF.

ENDFORM.

*----

-

FORM e04_comment_build *

*----

-

........ *

*----

-

--> E04_LT_TOP_OF_PAGE *

*----

-

FORM e04_comment_build USING e04_lt_top_of_page TYPE

slis_t_listheader.

DATA: ls_line TYPE slis_listheader.

*Report Title

CLEAR ls_line.

ls_line-typ = 'H'.

ls_line-info = text-007.

APPEND ls_line TO e04_lt_top_of_page.

**Doc Type Desc.

clear ls_line.
ls_line-typ = 'S'.
ls_line-key = text-008.

ls_line-info = p_matnr.

append ls_line to e04_lt_top_of_page.
clear ls_line.
ls_line-typ = 'S'.
ls_line-key = text-009.

ls_line-info = p_werks.

append ls_line to e04_lt_top_of_page.
clear ls_line.
ls_line-typ = 'S'.
ls_line-key = text-010.

ls_line-info = p_stlan.

append ls_line to e04_lt_top_of_page.
clear ls_line.
ls_line-typ = 'S'.
ls_line-key = text-011.

ls_line-info = p_stlal.

append ls_line to e04_lt_top_of_page.
clear ls_line.
ls_line-typ = 'S'.
ls_line-key = text-012.

ls_line-info = p_stlal.

append ls_line to e04_lt_top_of_page.

ENDFORM.

*----

-

FORM top_of_page *

*----

-

........ *

*----

-

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = gt_list_top_of_page.

ENDFORM.

*----

-

FORM auth_check *

*----

-

........ *

*----

-

FORM auth_check.

AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'

ID 'VKORG' FIELD p_vkorg.

IF sy-subrc NE 0.

MESSAGE e054 WITH p_vkorg.

ENDIF.

ENDFORM. " auth_check

*&----

-

*& Form USER_COMMAND

*&----

-

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN '&IC1'.

PERFORM display_so_order USING r_ucomm

rs_selfield.

ENDCASE.

ENDFORM.

*&----

-

*& Form display_sales_order

*&----

-

text

*----

-

-->P_R_UCOMM text
-->P_RS_SELFIELD text

*----

-

FORM display_so_order USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE rs_selfield-sel_tab_field.

WHEN '1-VBELN'.

SET PARAMETER ID 'AUN' FIELD rs_selfield-value.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

WHEN '1-MATNR'.

SET PARAMETER ID 'MAT' FIELD rs_selfield-value.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

WHEN '1-OBD'.

SET PARAMETER ID 'VL' FIELD rs_selfield-value.

CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.

WHEN OTHERS.

MESSAGE i000(z1) WITH 'Please Click on the Valid

Selection'.

EXIT.

ENDCASE.

ENDFORM. " display_sales_order

*----

-

FORM EDit_table *

*----

-

........ *

*----

-

DUMP

User, transaction...

Client.............. 400

User................ "SDNSAP"

Language key........ "E"

Transaction......... "ZSFRSR "

Program............. "SAPLSLVC "

Screen.............. "SAPLSLVC_FULLSCREEN 0500"

Screen line......... 5

nformation on where termination occurred

he termination occurred in the ABAP/4 program "SAPLSLVC "

in

LINE_OUT_NEW_2".

he main program was "ZSDR_FILL_RATE_SO_RPT ".

he termination occurred in line 923

f the source code of program "LSLVCF01 " (when calling the

editor 9230).

Source code extract

08930 gs_roid-row_id = rs_row-index * -1.

08940 endif.

08950 gs_roid-sub_row_id = rs_row-rowtype+7(10).

08960 gs_poid-row_id = gs_roid-row_id.

08970 gs_poid-sub_row_id = gs_roid-sub_row_id.

08980 gs_poid-rowtype = rs_row-rowtype.

08990 gs_poid-index = rs_row-index.

09000 insert gs_poid into table rt_poid.

09010 endif.

09020 append gs_roid to rt_roid.

09030

09040 loop at rt_fieldcat assigning .

009220 if sy-subrc ne 0.

message x000(0k).

009240 endif.

009250

009260 g_col_counter = g_col_counter + 1.

009270

009280 gs_lvc_data-row_pos = r_row_counter.

009290 gs_lvc_data-col_pos = g_col_counter.

009300 gs_lvc_data-row_id = gs_roid-row_id.

009310 gs_lvc_data-sub_row_id = gs_roid-sub_row_id.

009320

009330 * Endtotal and average

009340 if rs_row-rowtype(1) ca 'T' and

-do_sum = 'C'.

009350 * save the actual grouplevel information

009360 gs_grouplevels = rs_grouplevels.

009370 clear g_lines.

009380

009390 * get number of lines of the collect table

009400 describe table rt_data lines g_lines.

009410 * if there is only one line or the field has

no references so

009420 * that only the first line has to be

considered

Contents of system fields

SY field contents..................... SY field

contents.....................

SY-SUBRC 4 SY-INDEX 1

SY-TABIX 15 SY-DBCNT 1

SY-FDPOS 1 SY-LSIND 0

SY-PAGNO 0 SY-LINNO 1

SY-COLNO 1

Chosen variables

Name..........................

Contents.1........2........3....+....4

%_ARCHIVE

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 40

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 80

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 120

44444444

0000000

-FIELDNAME ETERN

CECDD4444444444444444444444444

535950000000000000000000000000

T_DATA 00004082920002000000

00

FFFFFFFFFFFFFFFFFFFF444444444444444444FF

0000408292000200000000000000000000000000

.. + 40 000000 00000000#######

0.0.0.0.0.0.0.1.

FFFFFF444FFFFFFFF00000004444444400000000

000000000000000000000000000000000000000C

.. + 80 ####### 000000

000000044444444444444FFFFFF4444444444444

000000C000000000000000000000000000000000

.. + 120 00000000#

4444444F

0000000

S_DRAGDROP

0.0.0.1.

444444444444444444444444444444440000

000000000000000000000000000000000000

SY-SUBRC 4

0000

0004

SY-XPROG SAPCNVE

ECDCDEC444444444444444444444444444444444

2173555000000000000000000000000000000000

%_SPACE

0

SY-MSGID 0K

FD444444444444444444

02000000000000000000

%_PRINT 000

4444FFF444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 40

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 80 0 ########

4444444444F40000000044444444444444444444

0000000000000000000000000000000000000000

... + 120

44444444

0000000

SY-MSGNO 000

FFF

000

%_ITAB_MODIFY_LIST

###########################ø##Èø########

0000000000000000000000000007007700000000

0000000000000000000000004000004000000000

... + 40

###################################Ø#²#0

0001000100010000FFFF00000000020000083E0F

0009000900090000FFFF04000002900000000A50

... + 80

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.1.

0000000000000000000000000000000000000000

... + 120

0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.1.

00000000

0000000

SY-MSGV1

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 40

4444444444

0000000000

SY-MSGV2

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 40

4444444444

0000000000

SY-MSGV3

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 40

4444444444

0000000000

SY-MSGV4

4444444444444444444444444444444444444444

0000000000000000000000000000000000000000

... + 40

4444444444

0000000000

%_?NOT_ASSIGNED?

4444

0000

GS_LVC_DATA-ROW_POS 0

0000

R_ROW_COUNTER 2

0000

0002

RS_ROW-ROWTYPE+0(1) S

E

2

ALV_STYLE_COLOR_INV_HEADING ####

0001

0002

RichHeilman · ‎2006 Oct 04

Comment out this section of code as ETERN is not a field in the internal table.




pos = pos + 1. 
ls_fieldcat-col_pos = pos. 
ls_fieldcat-fieldname = 'SHIPTO'. 
ls_fieldcat-ref_tabname = 'VBPA'. 
ls_fieldcat-seltext_m = 'Ship To'. 
ls_fieldcat-seltext_l = 'Ship To'. 
ls_fieldcat-outputlen = 10. 
APPEND ls_fieldcat TO i_fieldcat. 
CLEAR ls_fieldcat. 

<b>*pos = pos + 1. 
*ls_fieldcat-col_pos = pos. 
*ls_fieldcat-fieldname = 'ETERN'. 
*ls_fieldcat-ref_tabname = 'VBEP'. 
*ls_fieldcat-seltext_m = 'Schedule line number'. 
*ls_fieldcat-seltext_l = 'Schedule line number'. 
** ls_fieldcat-key = 'Schedule line number'. 
*APPEND ls_fieldcat TO i_fieldcat. 
*CLEAR ls_fieldcat.</b> 

*END JR 

pos = pos + 1. 
ls_fieldcat-col_pos = pos. 
ls_fieldcat-fieldname = 'EDATU'. 
ls_fieldcat-ref_tabname = 'VBEP'. 
ls_fieldcat-seltext_m = 'Requested Delivery date'. 
ls_fieldcat-seltext_l = 'Requested Delivery date'. 
ls_fieldcat-outputlen = 20. 
APPEND ls_fieldcat TO i_fieldcat. 
CLEAR ls_fieldcat.

After doing so, your program will work fine. Just tested it. Working good for me.

Regards,

Rich Heilman

Former Member · ‎2006 Oct 04

What do the first couple of sections of the dump say?

Rob

RichHeilman · ‎2006 Oct 04

Comment out this section of code as ETERN is not a field in the internal table.




pos = pos + 1. 
ls_fieldcat-col_pos = pos. 
ls_fieldcat-fieldname = 'SHIPTO'. 
ls_fieldcat-ref_tabname = 'VBPA'. 
ls_fieldcat-seltext_m = 'Ship To'. 
ls_fieldcat-seltext_l = 'Ship To'. 
ls_fieldcat-outputlen = 10. 
APPEND ls_fieldcat TO i_fieldcat. 
CLEAR ls_fieldcat. 

<b>*pos = pos + 1. 
*ls_fieldcat-col_pos = pos. 
*ls_fieldcat-fieldname = 'ETERN'. 
*ls_fieldcat-ref_tabname = 'VBEP'. 
*ls_fieldcat-seltext_m = 'Schedule line number'. 
*ls_fieldcat-seltext_l = 'Schedule line number'. 
** ls_fieldcat-key = 'Schedule line number'. 
*APPEND ls_fieldcat TO i_fieldcat. 
*CLEAR ls_fieldcat.</b> 

*END JR 

pos = pos + 1. 
ls_fieldcat-col_pos = pos. 
ls_fieldcat-fieldname = 'EDATU'. 
ls_fieldcat-ref_tabname = 'VBEP'. 
ls_fieldcat-seltext_m = 'Requested Delivery date'. 
ls_fieldcat-seltext_l = 'Requested Delivery date'. 
ls_fieldcat-outputlen = 20. 
APPEND ls_fieldcat TO i_fieldcat. 
CLEAR ls_fieldcat.

After doing so, your program will work fine. Just tested it. Working good for me.

Regards,

Rich Heilman

RichHeilman · ‎2006 Oct 04

I suppose this could be a typo as well since there is a field ETENR in your itab. Change to ETENR and see.




  pos = pos + 1.
  ls_fieldcat-col_pos = pos.
  ls_fieldcat-fieldname = <b>'ETENR'.</b>
  ls_fieldcat-ref_tabname = 'VBEP'.
  ls_fieldcat-seltext_m = 'Schedule line number'.
  ls_fieldcat-seltext_l = 'Schedule line number'.
* ls_fieldcat-key = 'Schedule line number'.
  append ls_fieldcat to i_fieldcat.
  clear ls_fieldcat.

Regards,

Rich Heilman

Former Member · ‎2006 Oct 04

Amazing Rich

it works

Thanks

SP

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

ABAP Dump while doing total(summing up)