Skip to Content
0
Former Member
Jan 17, 2008 at 06:45 AM

Kindly resolve this issue..

328 Views

Hi Experts,

I'm getting dump if i click on print preview button in the output list of the following program. The dump says field symbol is not assigned. Kindly resolve this issue.

Here's the report.

REPORT z_payment_register_report line-count 65(3) line-size 255.

TYPE-POOLS: slis.

DATA: it_fldcat TYPE slis_fieldcat_alv OCCURS 0,

wa_fldcat TYPE slis_fieldcat_alv.

DATA : it_sort TYPE slis_sortinfo_alv OCCURS 0,

wa_sort TYPE slis_sortinfo_alv.

TABLES: payr,

lfbk.

DATA : BEGIN OF itab5 OCCURS 0, "PAYR TABLE

zbukr LIKE payr-zbukr, "paying company code

hbkid LIKE payr-hbkid, "house bank id

hktid LIKE payr-hktid, "account id

checf LIKE payr-checf, "check number

waers LIKE payr-waers, "currency

*rwbtr like payr-waers, "amount

bancd LIKE payr-bancd, "check encashment date

vblnr LIKE payr-vblnr,

"payment document no

pernr LIKE payr-pernr, "personnel number

voidr LIKE payr-voidr, "void reason code

rzawe LIKE payr-rzawe, "payment method

laufd LIKE payr-laufd, "checks from payment run

empfg LIKE payr-empfg, "payee code

gjahr LIKE payr-gjahr, "fiscal year

zaldt LIKE payr-zaldt, "payment date

znme1 LIKE payr-znme1, "payee name

rec_belnr LIKE payr-rec_belnr, " voucher number

bankl LIKE lfbk-bankl, "bank key

duedt LIKE t51r5-duedt, "Due date

bankn LIKE lfbk-bankn, "bank accoun

END OF itab5.

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

SELECT-OPTIONS : szbukr FOR payr-zbukr OBLIGATORY,

srzawe FOR payr-rzawe,

szaldt FOR payr-zaldt.

SELECTION-SCREEN END OF BLOCK b1.

SELECT a~zbukr

a~hbkid

a~hktid

a~checf

a~waers

a~bancd

a~vblnr

a~pernr

a~voidr

a~rzawe

a~laufd

a~empfg

a~gjahr

a~znme1

a~rec_belnr

b~bankl

b~bankn

*c~duedt

INTO CORRESPONDING FIELDS OF TABLE itab5 FROM payr AS a INNER JOIN

lfbk AS b ON alifnr = blifnr WHERE a~zbukr IN szbukr and rzawe in srzawe and zaldt in szaldt.

DEFINE bld_fcat. "Macro to create manual field catalog

wa_fldcat-col_pos = &1.

wa_fldcat-fieldname = &2.

wa_fldcat-outputlen = &3.

wa_fldcat-seltext_l = &4.

wa_fldcat-ddictxt = &5.

append wa_fldcat to it_fldcat.

clear wa_fldcat.

END-OF-DEFINITION.

bld_fcat 1 'ZBUKR' 4 'Payee Company Code' 'L'.

bld_fcat 2 'HBKID' 5 'Short Key for a house' 'L'.

bld_fcat 3 'HKTID' 5 'ID for account details' 'L'.

bld_fcat 4 'CHECF' 13 'Check number from' 'L'.

bld_fcat 5 'WAERS' 5 'Currency Key' 'L'.

bld_fcat 6 'BANCD' 8 'Check encashment date' 'L'.

bld_fcat 7 'VBLNR' 10 'Document number of the paymt' 'L'.

bld_fcat 8 'PERNR' 8 'Personnel number' 'L'.

bld_fcat 9 'VOIDR' 2 'Check region code' 'L'.

bld_fcat 10 'RZAWE' 1 'Payment Method' 'L'.

bld_fcat 11 'LAUFD' 8 'Date on which the program is to be run' 'L'.

bld_fcat 12 'EMPFG' 16 'Payee code' 'L'.

bld_fcat 13 'GJAHR' 4 'Fiscal Year' 'L'.

bld_fcat 14 'ZALDT' 8 'Probable Payment Date' 'L'.

bld_fcat 15 'ZNMEL' 35 'Payee Name' 'L'.

bld_fcat 16 'REC_BELNR' 10 'Accounting Document Number Ref to Vocher Number' 'L'.

bld_fcat 17 'BANKL' 15 'Bank Key' 'L'.

bld_fcat 18 'BANKN' 18 'Bank Account Number' 'L'.

bld_fcat 19 'DUEDT' 8 'Due Date' 'L'.

LOOP AT it_fldcat INTO wa_fldcat.

IF wa_fldcat-fieldname = 'LIFNR'.

wa_fldcat-key = 'X'.

ELSEIF wa_fldcat-fieldname = 'DMBTR'.

wa_fldcat-do_sum = 'X'.

ELSEIF wa_fldcat-fieldname = 'WRBTR'.

wa_fldcat-do_sum = 'X'.

ENDIF.

MODIFY it_fldcat FROM wa_fldcat.

CLEAR wa_fldcat.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

it_fieldcat = it_fldcat "fieldcatalog

  • it_sort = it_sort[] "Sort

  • it_events = it_events

TABLES

t_outtab = itab5 "internal table to output

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.

*ENDFORM.

END-OF-SELECTION.