Short Dump

Former Member — Wed, 06 Jun 2007 19:21:33 GMT

Hello Friends,

I have developed this code for Open Items for Vendors.

It use the Logical Database KDF.

However I am having a short dump at the function module to call the ALV List DISPLAY.(CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY')

Attached is the code.

Any Suggestions.

[code]TABLES:

bsid,

bsak, "Accounting: 2nd index Customers

bsik, "Accounting: 2nd index Customers

faede, "I/O for Determining Due Date

lfa1, "General Data in Customer Master

lfb1, "Customer Master (Company Code)

t001, "Company Codes

vbrk. "Billing Header fgs05/15/02

----

S E L E C T - O P T I O N S / P A R A M E T E R S *

----

SELECTION-SCREEN BEGIN OF BLOCK s0

WITH FRAME TITLE text-000. "Processing Criteria:

PARAMETERS:

p_memid(20) TYPE c NO-DISPLAY,

p_commit(4) TYPE n

DEFAULT '5000'

NO-DISPLAY.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 01(31) text-025."Aging currency amount

SELECTION-SCREEN POSITION POS_LOW.

PARAMETERS: "Aging by currency.

p_$wrbtr "Amount in document currency

RADIOBUTTON GROUP age$.

SELECTION-SCREEN COMMENT (09) text-doc."Document

PARAMETERS:

p_$dmbtr "Amount in local currency

DEFAULT 'X'

RADIOBUTTON GROUP age$.

SELECTION-SCREEN COMMENT (09) text-loc."Local

PARAMETERS:

p_$dmbe2 "Amount in Second Local Currency

RADIOBUTTON GROUP age$.

SELECTION-SCREEN COMMENT (09) text-grp."Group

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 01(31) text-026."Aging breakdown

SELECTION-SCREEN POSITION POS_LOW.

PARAMETERS: p_age_1(2) TYPE p

DEFAULT -31.

PARAMETERS: p_age_2 LIKE rfpdo1-allgrogr DEFAULT '001'.

PARAMETERS: p_age_3 LIKE rfpdo1-allgrogr DEFAULT '031'.

PARAMETERS: p_age_4 LIKE rfpdo1-allgrogr DEFAULT '061'.

PARAMETERS: p_age_5 LIKE rfpdo1-allgrogr DEFAULT '091'.

PARAMETERS: p_age_6 LIKE rfpdo1-allgrogr DEFAULT '121'.

SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS: s_fkart FOR vbrk-fkart NO INTERVALS.

PARAMETER p_zgdp AS CHECKBOX.

SELECTION-SCREEN END OF BLOCK s0.

SELECTION-SCREEN BEGIN OF BLOCK a30

WITH FRAME TITLE text-030. "List layout

PARAMETERS:

variant LIKE disvariant-variant,

p_vari LIKE disvariant NO-DISPLAY.

SELECTION-SCREEN END OF BLOCK a30.

CONSTANTS: xfield VALUE 'X'.

INCLUDE zsi00001. "Common include for all programs.

INCLUDE rpr_alv_data.

DATA:

BEGIN OF w,

c LIKE syst-linsz,

jobname LIKE tbtco-jobname,

amount LIKE bseg-dmbtr,

tot_off LIKE bseg-dmbtr,

count LIKE syst-tabix,

commit_cnt(4) TYPE n,

num3(03) TYPE n,

numeric_12(12) TYPE n,

earnable LIKE bseg-dmbtr,

days(4) TYPE p,

first_sw(01) TYPE c,

seq(04) TYPE n,

date01 LIKE syst-datum,

past_inv_date LIKE syst-datum,

num03(03) TYPE n,

clear_rc LIKE syst-subrc,

rpt_no(01) TYPE n,

END OF w.

DATA:

BEGIN OF i_bsik OCCURS 0,

bukrs LIKE bsik-bukrs, "company code

lifnr LIKE bsik-lifnr, "customer number

adrnr LIKE lfa1-adrnr, "Address

name1 LIKE lfa1-name1, "Customer Name 1

telf1 LIKE lfa1-telf1, "First telephone number

gjahr LIKE bsik-gjahr, "fiscal year

belnr LIKE bsik-belnr, "accounting document number

buzei LIKE bsik-buzei, "line item number within t

budat LIKE bsik-budat, "posting date in the docum

bldat LIKE bsik-bldat, "Document date in document

xblnr LIKE bsik-xblnr, "reference document number

blart LIKE bsik-blart, "document type

monat LIKE bsik-monat, "fiscal period

bschl LIKE bsik-bschl, "posting key

shkzg LIKE bsik-shkzg, "debit/credit indicator

waers LIKE bsik-waers, "Currency key

wrbtr LIKE bsik-wrbtr, "Amount in document currency

dmbtr LIKE bsik-dmbtr, "amount in local currency

dmbe2 LIKE bsik-dmbe2, "Amount in Second Local Currency

hkont LIKE bsik-hkont, "g/l account

skfbt LIKE bsik-skfbt, "Amount eligible for cash

zfbdt LIKE bsik-zfbdt, "baseline date for due dat

zterm LIKE bsik-zterm, "Terms of payment key

zbd1t LIKE bsik-zbd1t, "days for first cash disco

zbd2t LIKE bsik-zbd2t, "days for second cash disc

zbd3t LIKE bsik-zbd3t, "net payment terms period

zbd1p LIKE bsik-zbd1p, "cash discount percentage

zbd2p LIKE bsik-zbd2p, "cash discount percentage

wskto LIKE bsik-wskto, "cash discount amount in d

a_dsc LIKE bsik-wskto, "Available disc.(Still earnable

rebzg LIKE bsik-rebzg, "Doc.no.of the invoice to which

rebzj LIKE bsik-rebzj, "Fiscal year of the relevant invo

rebzz LIKE bsik-rebzz, "Line item in the relevant invoic

sgtxt LIKE bsik-sgtxt, "Item text

days(3) TYPE p,

netdt LIKE faede-netdt, "Due date for net payment

bucket0 LIKE bsik-dmbtr, "Total

bucket1 LIKE bsik-dmbtr, "Future

bucket2 LIKE bsik-dmbtr, "Currrent

bucket3 LIKE bsik-dmbtr,

bucket4 LIKE bsik-dmbtr,

bucket5 LIKE bsik-dmbtr,

bucket6 LIKE bsik-dmbtr,

bucket7 LIKE bsik-dmbtr, "121 and over

xref1 LIKE bsik-xref1, "x-ref to sales order

xref2 LIKE bsik-xref2,

xref3 LIKE bsik-xref3,

rstgr LIKE bsik-rstgr,

END OF i_bsik.

DATA: BEGIN OF t_zgdp OCCURS 0,

xref1 LIKE bsik-xref1,

credit,

debit,

dmbtr like BSIK-dmbtr,

END OF t_zgdp.

DATA:

i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.

INITIALIZATION.

pgm = disvariant-report = sy-repid.

PERFORM assign_eom_date USING kd_stida.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'ITEM'.

PERFORM display_selected_item.

ENDCASE.

AT SELECTION-SCREEN.

AT SELECTION-SCREEN ON variant.

CLEAR p_vari.

CHECK NOT variant IS INITIAL.

PERFORM check_variant_existence USING variant 'A'.

p_vari-report = syst-repid.

p_vari-variant = variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

i_save = 'A'

CHANGING

cs_variant = p_vari.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR variant.

PERFORM f4_display_variant USING variant 'A'.

START-OF-SELECTION.

COMMIT WORK.

GET bsik.

MOVE-CORRESPONDING lfa1 TO i_bsik.

MOVE-CORRESPONDING bsik TO i_bsik.

APPEND i_bsik.

END-OF-SELECTION.

PERFORM reset_system_clock. " Reset task clock with COMMIT

PERFORM process_oi TABLES i_bsik

USING kd_stida.

COMMIT WORK.

IF p_memid IS INITIAL.

PERFORM: call_list_viewer.

ELSE.

LOOP AT i_bsik.

AT LAST.

SUM.

EXPORT i_bsik-bucket2 i_bsik-bucket3 i_bsik-bucket4

i_bsik-bucket5 i_bsik-bucket6 i_bsik-bucket7

TO MEMORY ID p_memid.

ENDAT.

ENDLOOP.

ENDIF.

TOP-OF-PAGE.

PERFORM top_of_page.

----

FORM TOP_OF_PAGE *

----

........ *

----

FORM top_of_page.

PERFORM standard_headings.

FORMAT COLOR COL_HEADING.

Individual report headings & columns.

WRITE:/001 'Key date -',

kd_stida.

FORMAT COLOR OFF.

FORMAT INTENSIFIED OFF.

ENDFORM. "TOP_OF_PAGE

----

FORM PROCESS_OI *

----

........ *

----

--> A_OI *
--> A_BUKRS *
--> A_HKONT *
--> A_AGEDTE *
--> A_TOTAL *
--> A_TOT_ERN *

----

FORM process_oi TABLES a_oi STRUCTURE i_bsik

USING a_agedte.

w-rpt_no = 2.

SORT a_oi. " by kunnr.

w-c = syst-linsz.

CLEAR: w-commit_cnt.

LOOP AT a_oi.

Reset system clock?

w-commit_cnt = w-commit_cnt + 1.

IF w-commit_cnt GE p_commit.

CLEAR w-commit_cnt.

PERFORM reset_system_clock. "Reset task clock with COMMIT

ENDIF.

PERFORM sign_amount USING a_oi-wrbtr

a_oi-shkzg.

PERFORM sign_amount USING a_oi-dmbtr

a_oi-shkzg.

PERFORM sign_amount USING a_oi-dmbe2

a_oi-shkzg.

CLEAR faede.

MOVE-CORRESPONDING a_oi TO faede.

faede-koart = 'D'.

CALL FUNCTION 'DETERMINE_DUE_DATE'

EXPORTING

i_faede = faede

IMPORTING

e_faede = faede

EXCEPTIONS

account_type_not_supported = 1

OTHERS = 2.

PERFORM disc_amt_earnable USING faede

a_agedte

a_oi-wskto

a_oi-skfbt

a_oi-zbd1p

a_oi-zbd2p

a_oi-a_dsc.

a_oi-days = a_agedte - faede-netdt.

a_oi-netdt = faede-netdt.

IF p_$wrbtr <> space.

a_oi-bucket0 = a_oi-wrbtr.

ELSEIF p_$dmbtr <> space.

a_oi-bucket0 = a_oi-dmbtr.

ELSE.

a_oi-bucket0 = a_oi-dmbe2.

ENDIF.

a_oi-bucket0 = a_oi-dmbtr.

IF a_oi-days < p_age_1.

a_oi-bucket1 = a_oi-bucket0.

ELSEIF a_oi-days < p_age_2.

a_oi-bucket2 = a_oi-bucket0.

ELSEIF a_oi-days < p_age_3.

a_oi-bucket3 = a_oi-bucket0.

ELSEIF a_oi-days < p_age_4.

a_oi-bucket4 = a_oi-bucket0.

ELSEIF a_oi-days < p_age_5.

a_oi-bucket5 = a_oi-bucket0.

ELSEIF a_oi-days < p_age_6.

a_oi-bucket6 = a_oi-bucket0.

ELSE.

a_oi-bucket7 = a_oi-bucket0.

ENDIF.

ENDLOOP.

IF p_zgdp EQ 'X'.

LOOP AT a_oi.

CHECK NOT a_oi-xref1 IS INITIAL.

READ TABLE t_zgdp WITH KEY xref1 = a_oi-xref1 BINARY SEARCH.

CHECK sy-subrc EQ 0.

IF t_zgdp-credit EQ 'X' AND t_zgdp-debit EQ ' '.

DELETE a_oi.

CONTINUE.

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM. "PROCESS_OI

----

FORM display_selected_item *

----

........ *

----

FORM display_selected_item.

DATA:

BEGIN OF l,

belnr LIKE bseg-belnr, " Belegnummer

END OF l.

GET CURSOR LINE syst-lilli.

READ LINE syst-lilli FIELD VALUE i_bsik-belnr INTO l-belnr.

IF l-belnr IS INITIAL.

MESSAGE s315(f4).

ELSE.

PERFORM view_fi_item USING i_bsik-bukrs

i_bsik-belnr

i_bsik-gjahr

i_bsik-buzei.

ENDIF.

ENDFORM. "display_selected_item

----

FORM ASSIGN_EOM_DATE *

----

........ *

----

--> A_EOM_DATE *

----

FORM assign_eom_date USING a_eom_date.

a_eom_date+06(02) = '01'. "Force in first day of month.

a_eom_date = a_eom_date - 1.

ENDFORM. "ASSIGN_EOM_DATE

----

FORM SIGN_AMOUNT *

----

........ *

----

--> A_AMOUNT *
--> A_SIGN *

----

FORM sign_amount USING a_amount

a_sign.

IF a_sign = 'H'.

a_amount = a_amount * -1.

ENDIF.

ENDFORM. "sign_amount

----

FORM view_fi_item *

----

........ *

----

FORM view_fi_item USING a_bukrs

a_belnr

a_gjahr

a_buzei.

Generic code lifted fro program SAPF101. Do a where used on dialog
"RF_ZEILEN_ANZEIGE".

DATA:

BEGIN OF buztab OCCURS 0,

bukrs LIKE bseg-bukrs, " Company code

belnr LIKE bseg-belnr, " Acct document number

gjahr LIKE bseg-gjahr, " Fiscal year

buzei LIKE bseg-buzei, " Line item number within t

flaen(1) TYPE c, " X = Posten geaendert

END OF buztab.

DATA:

buztab-zeile LIKE sy-tabix, " anzuzeigende Zeile

x_nochange(1) TYPE c, " keine Aenderung

x_commit(1) TYPE c. " Commit ausfuehren

buztab-buzei = buztab-zeile = a_buzei. " Line item number

buztab-bukrs = a_bukrs. " Company code

buztab-gjahr = a_gjahr. " Fiscal year

buztab-belnr = a_belnr. " Acct document number

APPEND buztab.

IF buztab-zeile IS INITIAL.

MESSAGE e315(f4).

ENDIF.

x_nochange = space. "<== On/Off "change" ICON.

CALL DIALOG 'RF_ZEILEN_ANZEIGE'

EXPORTING

buztab

buztab-zeile

tcode FROM 'FB03'

x_nochange

x_commit.

If some changes done ...
IF X_COMMIT EQ 'X'.

COMMIT WORK.

ENDIF.

ENDFORM. "view_fi_item

----

FORM WRT_ULINE *

----

........ *

----

FORM wrt_uline.

WRITE AT /001(syst-linsz) sy-uline.

ENDFORM. "wrt_uline

----

FORM BUILD_FIELDCAT

----

Build field catalog for ABAP listviewer

----

FORM build_fieldcat.

FIELD-SYMBOLS: <fs> LIKE fieldcat_ln.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = pgm

i_internal_tabname = 'I_BSIK'

i_inclname = pgm

CHANGING

ct_fieldcat = fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

ENDIF.

i_fieldcat[] = fieldcat[].

LOOP AT i_fieldcat.

CLEAR i_fieldcat-key.

CASE i_fieldcat-fieldname.

WHEN 'A_DSC'.

i_fieldcat-seltext_l = 'Avail.Dsc.'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BLART'.

i_fieldcat-seltext_l = 'DT'.

i_fieldcat-outputlen = 2.

WHEN 'BSCHL'.

i_fieldcat-seltext_l = 'PK'.

WHEN 'BUCKET0'.

i_fieldcat-seltext_l = 'Amount'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET1'.

i_fieldcat-seltext_l = 'Future'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET2'.

i_fieldcat-seltext_l = 'Current'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET3'.

w-num3 = p_age_3 - 1.

CONCATENATE p_age_2

'_'

w-num3

INTO i_fieldcat-seltext_l.

CONCATENATE i_fieldcat-seltext_l

'days'

INTO i_fieldcat-seltext_l SEPARATED BY space.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET4'.

w-num3 = p_age_4 - 1.

CONCATENATE p_age_3

'_'

w-num3

INTO i_fieldcat-seltext_l.

CONCATENATE i_fieldcat-seltext_l

'days'

INTO i_fieldcat-seltext_l SEPARATED BY space.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET5'.

w-num3 = p_age_5 - 1.

CONCATENATE p_age_4

'_'

w-num3

INTO i_fieldcat-seltext_l.

CONCATENATE i_fieldcat-seltext_l

'days'

INTO i_fieldcat-seltext_l SEPARATED BY space.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET6'.

w-num3 = p_age_6 - 1.

CONCATENATE p_age_5

'_'

w-num3

INTO i_fieldcat-seltext_l.

CONCATENATE i_fieldcat-seltext_l

'days'

INTO i_fieldcat-seltext_l SEPARATED BY space.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUCKET7'.

CONCATENATE p_age_6

'& over'

INTO i_fieldcat-seltext_l SEPARATED BY space.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'BUKRS'.

i_fieldcat-reprep = 'X'.

i_fieldcat-seltext_l = ' CC '.

i_fieldcat-outputlen = 4.

WHEN 'BUZEI'.

i_fieldcat-seltext_l = 'Itm'.

i_fieldcat-outputlen = 3.

WHEN 'DMBE2'.

i_fieldcat-seltext_l = 'Grp.Crcy.Amt'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'DMBTR'.

i_fieldcat-seltext_l = 'Loc.Crcy.Amt'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'KUNNR'.

i_fieldcat-reprep = 'X'.

WHEN 'WAERS'.

i_fieldcat-seltext_l = 'Curr.'.

WHEN 'WRBTR'.

i_fieldcat-seltext_l = 'Doc.Crcy.Amt'.

PERFORM numeric_alv USING i_fieldcat.

WHEN 'WSKTO'.

PERFORM numeric_alv USING i_fieldcat.

ENDCASE.

i_fieldcat-reptext_ddic = i_fieldcat-seltext_l.

MODIFY i_fieldcat.

ENDLOOP.

fieldcat[] = i_fieldcat[].

ENDFORM. "BUILD_FIELDCAT

----

FORM NUMERIC_ALV *

----

........ *

----

--> A *

----

FORM numeric_alv USING a STRUCTURE i_fieldcat.

a-do_sum = 'X'.

a-no_zero = 'X'.

ENDFORM. "NUMERIC_ALV

----

FORM CALL_LIST_VIEWER *

----

........ *

----

FORM call_list_viewer.

DATA:

excltab TYPE slis_t_extab,

i_events TYPE slis_t_event,

eventcat_ln LIKE LINE OF eventcat,

i_sort TYPE slis_t_sortinfo_alv,

h_sort TYPE slis_sortinfo_alv.

eventcat_ln-name = eventcat_ln-form = slis_ev_top_of_page.

APPEND eventcat_ln TO i_events.

REFRESH i_sort.

Sort 1

CLEAR h_sort.

h_sort-spos = 1.

h_sort-fieldname = 'BUKRS'.

h_sort-tabname = 'I_BSIK'.

h_sort-up = 'X'.

h_sort-group = 'X'.

h_sort-subtot = 'X'.

APPEND h_sort TO i_sort.

Sort 2

CLEAR h_sort.

h_sort-spos = 2.

h_sort-fieldname = 'KUNNR'.

h_sort-tabname = 'I_BSIK'.

h_sort-up = 'X'.

h_sort-group = 'X'.

h_sort-subtot = 'X'.

APPEND h_sort TO i_sort.

PERFORM: build_fieldcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = pgm

i_callback_user_command = 'USER_COMMAND'

it_fieldcat = fieldcat

it_sort = i_sort

it_events = i_events

i_save = 'A'

is_variant = p_vari

TABLES

t_outtab = i_bsik

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM. "CALL_LIST_VIEWER

----

FORM USER_COMMAND *

----

........ *

----

--> UCOMM *
--> SELFIELD *

----

FORM user_command USING ucomm LIKE sy-ucomm

selfield TYPE slis_selfield.

READ TABLE i_bsik INDEX selfield-tabindex.

IF sy-subrc <> 0.

Cursor is not positioned on a list line

EXIT.

ENDIF.

CASE ucomm.

WHEN '&IC1'.

F2 or double click on the list

PERFORM view_fi_item USING i_bsik-bukrs

i_bsik-belnr

i_bsik-gjahr

i_bsik-buzei.

ENDCASE.

ENDFORM. "USER_COMMAND

----

FORM DISC_AMT_EARNABLE *

----

........ *

----

--> FAEDE *
--> A_AGEDTE *
--> A_WSKTO *
--> A_SKFBT *
--> A_ZBD1P *
--> A_ZBD2P *
--> A_EARNABLE_DISC *

----

FORM disc_amt_earnable USING faede STRUCTURE faede

a_agedte

a_wskto

a_skfbt

a_zbd1p

a_zbd2p

a_earnable_disc.

DATA:

BEGIN OF l,

seitzfbdt TYPE i, " Tage seit ZFBDT (PGM RFEPOSSF

END OF l.

l-seitzfbdt = a_agedte - faede-zfbdt.

IF NOT faede-zfbdt IS INITIAL.

IF l-seitzfbdt <= faede-zbd1t.

IF a_wskto IS INITIAL.

a_earnable_disc = a_skfbt * a_zbd1p / 100.

ELSE.

a_earnable_disc = a_wskto.

ENDIF.

ELSE.

IF l-seitzfbdt <= faede-zbd2t.

a_earnable_disc = a_skfbt * a_zbd2p / 100.

ENDIF.

If a discount is earnable, then compute sign to match to open item.

IF a_earnable_disc IS INITIAL.

EXIT.

ELSE.

PERFORM sign_amount USING a_earnable_disc

faede-shkzg.

ENDIF.

ENDFORM. "DISC_AMT_EARNABLE[/code]

topic Re: Short Dump in Application Development and Automation Discussions

Short Dump

Re: Short Dump

Re: Short Dump

Re: Short Dump

Re: Short Dump

Re: Short Dump

Re: Short Dump