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
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.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.