Run in test mode call transaction

Question

I have written a bdc program using call transaction method. I am giving the option in the
selection screen like run in test mode.so i want to display the error mess
without actually updating the tables,
if there is a way to do this
please tell me how to run in test mode.
thank you so much for all the replies.

Answer 1

have written a bdc program using call transaction method. I am giving the option in the
selection screen like run in test mode.so i want to display the error mess
without actually updating the tables,
if there is a way to do this
please tell me how to run in test mode.
thank you so much for all the replies.
Hi
it is not possible, once u run call tranation the data is updated in table.
for ur requirement, put the option in test mode in selection screen, in this mode flat file data check with master data (flat file validations
) , if any errors it disaly errors in a report.
i provide some code, this is for fb60 check this code
      FORM validate                                                 *
FORM validate.
  delete t_record index 1.
  loop at t_record.
    delete t_record where accnt = ' '.
    translate t_record-bukrs to upper case.
    translate t_record-accnt to upper case.
    translate t_record-waers to upper case.
    translate t_record-xblnr to upper case.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
              INPUT  = t_record-accnt
         IMPORTING
              OUTPUT = t_record-accnt.
    move-corresponding t_record to n_record.
    append n_record.
    clear n_record.
  endloop.
  loop at t_record.
    clear flag.
    delete t_record where accnt = ' '.
vendor  and company code checking.
    translate t_record-accnt to upper case.
    translate t_record-bukrs to upper case.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
              INPUT  = t_record-accnt
         IMPORTING
              OUTPUT = t_record-accnt.
    select single * from lfb1 where bukrs = t_record-bukrs
                                  and  lifnr = t_record-accnt.
    if sy-subrc <> 0.
      flag = 'X'.
      error_record-rowno = sy-tabix + 1.
      move-corresponding t_record to error_record.
      error_record-text1 = 'The Vendor not Under this company Code'.
    endif.
With holding liability.
    select single * from lfbw where bukrs = t_record-bukrs
                                    and  lifnr = t_record-accnt
                                  and  WT_SUBJCT = 'X'.
    if sy-subrc <> 0.
      flag = 'X'.
      error_record-rowno = sy-tabix + 1.
      move-corresponding t_record to error_record.
error_record-text2 = 'The Vendor doesnt have Withholding Tax Liability'.
    endif.
G/L account check with company code*
    select single * from skb1 where bukrs = t_record-bukrs
                                  and saknr = t_record-hkont.
    if sy-subrc <> 0.
      flag = 'X'.
      error_record-rowno = sy-tabix + 1.
      move-corresponding t_record to error_record.
    error_record-text3 = 'The G/L acc not under the given company code'.
    endif.
*cost centre checking
this FM for leading zeros
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
              INPUT  = t_record-kostl
         IMPORTING
              OUTPUT = v_kostl.
select single kostl from csks into v_kostl where bukrs = t_record-bukrs
                                         and kostl = v_kostl.
    if sy-subrc <> 0.
      flag = 'X'.
      error_record-rowno = sy-tabix + 1.
      move-corresponding t_record to error_record.
error_record-text4 = 'The costcentre not under the given company code'.
    endif.
it check the invioce alredy posted or not.
    translate t_record-waers to upper case.
    translate t_record-xblnr to upper case.
select single belnr into v_belnr1 from bsip where bukrs = t_record-bukrs
                                          and   lifnr  = t_record-accnt
                                          and   waers  = t_record-waers
                                              and   bldat  = p_invdat
                                          and   xblnr  = t_record-xblnr.
    if sy-subrc = 0.
      day   =  p_invdat+6(2).
      month =  p_invdat+4(2).
      year  =  p_invdat+0(4).
      concatenate day month year into date1 SEPARATED BY '.'.
      error_record-rowno = sy-tabix + 1.
      move-corresponding t_record to error_record.
concatenate 'This document under number' v_belnr1 'already posted on '
      date1 into fld2  separated by space.
      error_record-text5 = fld2.
      flag = 'X'.
    endif.
*zero balance
    on change of t_record-accnt or t_record-xblnr.
      amount = 0.
      totalamount = 0.
      amount = t_record-wrbtr1.
      loop at n_record where bukrs = t_record-bukrs
                           and  accnt = t_record-accnt
                           and xblnr = t_record-xblnr
                           and wrbtr1 = t_record-wrbtr1
                           and waers = t_record-waers.
        totalamount = totalamount  + n_record-wrbtr2.
      endloop.
    endon.
    if amount ne totalamount.
      error_record-rowno = sy-tabix + 1.
      move-corresponding t_record to error_record.
      error_record-text6 = 'Posting only possible with zero balance'.
      flag = 'X'.
    endif.
    if flag = 'X'.
      error_record-flag = 'X'.
      append error_record.
    endif.
    if flag <> 'X'.
      move-corresponding t_record to f_record.
      append f_record.
    endif.
    clear f_record.
    clear error_record.
  endloop.
endform.
*&  Form  Table Control
FORM head_item .
  clear t_record.
  LOOP AT t_record.
    delete t_record where accnt = ' '.
    translate t_record-bukrs to upper case.
    translate t_record-accnt to upper case.
    translate t_record-waers to upper case.
    translate t_record-xblnr to upper case.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
              INPUT  = t_record-accnt
         IMPORTING
              OUTPUT = t_record-accnt.
    on change of t_record-accnt or t_record-xblnr or t_record-wrbtr1.
      MOVE-CORRESPONDING t_record TO t_head.
      APPEND t_head.
    endon.
    MOVE-CORRESPONDING t_record TO t_item.
    APPEND t_item.
    clear : t_item,t_head.
  ENDLOOP.
ENDFORM.
form disperrortestrun.
  loop at error_record.
    format color 2 intensified on.
    set left scroll-boundary column 70.
    write :   /'|',
             (6) error_record-rowno,         '|' no-gap,
             (14) error_record-bukrs,        '|' no-gap,
             (12) error_record-accnt,        '|' no-gap,
             (16) error_record-xblnr,        '|' no-gap,
             (16) error_record-wrbtr1,       '|' no-gap,
             (8)  error_record-waers,        '|' no-gap,
             (13) error_record-secco,        '|' no-gap,
             (20) error_record-sgtxt,        '|' no-gap,
             (14) error_record-hkont,        '|' no-gap,
             (15) error_record-wrbtr2,       '|' no-gap,
             (10) error_record-mwskz,        '|' no-gap,
             (20) error_record-gsber,        '|' no-gap,
             (12) error_record-kostl,        '|' no-gap,
             (5)  error_record-flag,         '|' no-gap,
             (50) error_record-text1,        '|' no-gap,
             (53) error_record-text2,        '|' no-gap,
             (50) error_record-text3,        '|' no-gap,
             (50) error_record-text4,        '|' no-gap,
             (67) error_record-text5,        '|' no-gap,
             (45) error_record-text6,        '|'  .
  endloop.
  uline at /1(538).
  format color off.
endform.
Report Header for Test Run                                          *
form header.
  set left scroll-boundary column 70.
  format color 5 .
  write: 'REPORT :', sy-repid,
38 'ERROR RECORDS DETAILS OF TEST RUN OF FB60(VENDOR INVIOCE POSTING)'
  ,123 'DATE :', sy-datum .
  format color off.
  skip 3.
  format color 1 intensified on.
  uline at 1(538).
  write : /'|',
          (6) 'Row No',                             '|' no-gap,
         (14) 'Company Code',                       '|' no-gap,
         (12) 'Vendor No',                          '|' no-gap,
         (16) 'Reference',                          '|' no-gap,
         (16) 'Invioce Amount',                     '|' no-gap,
         (8) 'Currency',                            '|' no-gap,
         (13) 'Section Code',                       '|' no-gap,
         (20) 'text',                               '|' no-gap,
         (14) 'G/L Account',                        '|' no-gap,
         (15) 'Item Amount',                        '|' no-gap,
         (10) 'Tax Code',                           '|' no-gap,
         (20) 'Business Area',                      '|' no-gap,
         (12) 'Cost Centre',                        '|' no-gap,
         (5)  'Error record Status',                '|' no-gap,
         (50) 'Company Code/Vendor',                '|' no-gap,
         (53) 'Vendor/With holding tax Liability',  '|' no-gap,
         (50) 'Company Code/ G/L Account',          '|' no-gap,
         (50) 'Company Code / Cost Centre',         '|' no-gap,
         (67) 'Invioce Status',                     '|' no-gap,
         (45) 'Invalid Balance',
        '|'.
  uline at /1(538).
  format color off.
endform.
thanks
sitaram.