topic Re: how to display error message ?? in Application Development and Automation Discussions

how to display error message ??

Former Member — Mon, 12 Dec 2005 17:57:23 GMT

Hi,

I have a BDC program to upload data from an excel sheet. I could see that some records of data fail to pass and hence after my bdc run i would like to display error message for the failed records as follows:

costcenter:

cost element:

fiscal year:

etc etc

is it possible ?? how to do that ? please explain in detail.

for ur reference my program is pasted below.

thanks

&----

*& Report ZBDC_BUDGET_UPLOAD

&----

REPORT ZBDC_BUDGET_UPLOAD.

types: begin of tdata,

rec(150) type c,

end of tdata,

begin of tmtgp,

costcent LIKE CCSS-KOSTL,

costelem LIKE CCSS-KSTAR,

fisyear LIKE CCSS-GJAHR,

jan(10),

feb(10),

mar(10),

apr(10),

may(10),

jun(10),

jul(10),

aug(10),

sep(10),

oct(10),

nov(10),

dec(10),

end of tmtgp.

data: idata type table of tdata with header line.

data: imtgp type table of tmtgp with header line.

Data : fieldval(10) type c.

selection-screen begin of block b1 with frame title text-001.

parameters: p_file type localfile default 'C:\budget_data_csv.csv'.

selection-screen end of block b1.

include zbdcrecx1.

at selection-screen on value-request for p_file.

call function 'KD_GET_FILENAME_ON_F4'

exporting static = 'X'

changing file_name = p_file.

start-of-selection.

perform upload_data.

loop at imtgp.

Write imtgp-fisyear to fieldval.

perform open_group.

perform bdc_dynpro using 'SAPLKPP0' '1000'.

perform bdc_field using 'BDC_CURSOR'

'KPP0B-VALUE(04)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'KPP0B-VALUE(04)'

fieldval.

Write imtgp-costcent to fieldval.

perform bdc_dynpro using 'SAPLKPP0' '1000'.

perform bdc_field using 'BDC_CURSOR'

'KPP0B-VALUE(06)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'KPP0B-VALUE(06)'

fieldval.

perform bdc_dynpro using 'SAPLKPP0' '1000'.

perform bdc_field using 'BDC_CURSOR'

'KPP0B-VALUE(09)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-costelem to fieldval.

perform bdc_field using 'KPP0B-VALUE(09)'

fieldval.

perform bdc_dynpro using 'SAPLKPP0' '1000'.

perform bdc_field using 'BDC_CURSOR'

'KPP0B-VALUE(04)'.

perform bdc_field using 'BDC_OKCODE'

'=CSPB'.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(01)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-jan to fieldval.

perform bdc_field using 'Z-BDC03(01)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(02)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-feb to fieldval.

perform bdc_field using 'Z-BDC03(02)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(03)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-mar to fieldval.

perform bdc_field using 'Z-BDC03(03)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(04)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-apr to fieldval.

perform bdc_field using 'Z-BDC03(04)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(05)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-may to fieldval.

perform bdc_field using 'Z-BDC03(05)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(06)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-jun to fieldval.

perform bdc_field using 'Z-BDC03(06)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(07)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-jul to fieldval.

perform bdc_field using 'Z-BDC03(07)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(08)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-aug to fieldval.

perform bdc_field using 'Z-BDC03(08)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(09)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-sep to fieldval.

perform bdc_field using 'Z-BDC03(09)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(10)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-oct to fieldval.

perform bdc_field using 'Z-BDC03(10)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(11)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-nov to fieldval.

perform bdc_field using 'Z-BDC03(11)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(12)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

Write imtgp-dec to fieldval.

perform bdc_field using 'Z-BDC03(12)'

fieldval.

perform bdc_dynpro using 'SAPLKPP2' '0110'.

perform bdc_field using 'BDC_CURSOR'

'Z-BDC03(12)'.

perform bdc_field using 'BDC_OKCODE'

'=CBUC'.

perform bdc_transaction using 'KP06'.

perform close_group.

endloop.

form upload_data.

data: filename type string.

clear idata.

refresh idata.

filename = p_file.

call function 'GUI_UPLOAD'

exporting filename = filename

filetype = 'ASC'

tables data_tab = idata

exceptions file_open_error = 1

file_read_error = 2

no_authority = 6

others = 17.

check sy-subrc = 0.

loop at idata.

clear imtgp.

split idata at ',' into imtgp-costcent imtgp-costelem imtgp-fisyear

imtgp-jan imtgp-feb imtgp-mar imtgp-apr imtgp-may imtgp-jun imtgp-jul

imtgp-aug imtgp-sep imtgp-oct imtgp-nov imtgp-dec.

append imtgp.

endloop.

endform.

Re: how to display error message ??

RichHeilman — Mon, 12 Dec 2005 18:06:24 GMT

You can do something like this. Here I have commented out your call to PERFORM BDC_TRANSACTION. It writes all of the messages for the transaction, so I didn't want that. Here I'm calling the transaction directly, then check sy-subrc. If 0, then it was successful, of not, then it failed.




*    perform bdc_transaction using 'KP06'.

    call transaction 'KP06'  using bdcdata
                 mode   ctumode
                 update cupdate
                 messages into messtab.
    if sy-subrc = 0.

      write:/ 'Cost Center:', at 20 imtgp-costcent ,
            / 'Cost Element:', at 20 imtgp-costelem ,
            / 'Fiscal Year:', at 20 imtgp-fisyear,
            / 'Transaction Completed Successfully'.

    else.

      write:/ 'Cost Center:', at 20 imtgp-costcent ,
            / 'Cost Element:', at 20 imtgp-costelem ,
            / 'Fiscal Year:', at 20 imtgp-fisyear,
            / 'Transaction Failed'.

    endif.

Regards,

Rich Heilman

Re: how to display error message ??

Former Member — Mon, 12 Dec 2005 18:07:31 GMT

If you create and run a batch input session, you won't be able to display the errors because the session is run in a separate process, generally after the program finishes. The errors are available for re-processing in the batch input log.

If you want to display messages in the program, you have to use the call transaction method, but since you can't process the errors using this method, batch input is generally used.

Rob

Re: how to display error message ??

Former Member — Mon, 12 Dec 2005 18:08:57 GMT

check the below code,.,

DATA : t_bdcmsgcoll TYPE STANDARD TABLE OF bdcmsgcoll WITH HEADER LINE.
 
  CALL TRANSACTION '<DELIVERYTRANSACTION>' USING t_bdctab
                          mode 'N'
                          MESSAGES INTO t_bdcmsgcoll.
 
  DESCRIBE TABLE t_bdcmsgcoll LINES g_lines.
  READ TABLE t_bdcmsgcoll INDEX g_lines.
 
  IF t_bdcmsgcoll-msgtyp = 'S' AND
     t_bdcmsgcoll-msgid = <Msg id> AND
     t_bdcmsgcoll-msgnr = <Msg number>.
* Trap your Call Transaction messages
    t_success-deliverynumber = t_bdcmsgcoll-msgv1.
* You can format the message returned by call transaction using function 'FORMAT_MESSAGE' which will return g_mesg
    t_success-message = g_mesg.
    APPEND t_success.
    CLEAR  t_success.
  ELSE.
* If there an Error-Do this..
    READ TABLE t_bdcmsgcoll WITH KEY msgtyp = 'E'.
    IF sy-subrc = 0.
* Format your message using FORMAT_MESSAGE "FM
     CLEAR g_mesg.
     t_error-msg   = g_mesg_incl.
     APPEND t_error.
     CLEAR  t_error.
   ENDIF.
 ENDIF.
 
* Clear for next run
  CLEAR: t_bdcmsgcoll,
         t_bdctab.
  REFRESH: t_bdcmsgcoll[],
           t_bdctab[].

Re: how to display error message ??

Former Member — Mon, 12 Dec 2005 18:11:46 GMT

The message tab table messtab used in the call transaction will have all the success and failure messages for the BDc run. You can display the messages looping through the BDC message table messtab.

Hope this helps.

Re: how to display error message ??

Former Member — Mon, 12 Dec 2005 18:19:10 GMT

Thanks Rich. Your solution was crystal clear and worked fine !!

Thanks to all others too for giving me useful tips on handling error messages.