<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: BDC Code for F-02 in Application Development and Automation Discussions</title>
    <link>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669543#M883861</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;report zmna_csf_glc_f02&lt;/P&gt;&lt;P&gt;       no standard page heading&lt;/P&gt;&lt;P&gt;       message-id 38&lt;/P&gt;&lt;P&gt;       line-size  132&lt;/P&gt;&lt;P&gt;       line-count 62.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Program Name: ZMNA_CSF_GLC_F02                                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Author :      Tuan Pham                                              *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Company:      Motts North America                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Date   :      12/27/2001                                             *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Purpose:      This program uploads Premier general ledger and load   *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              them into R/3 via transaction F-02.                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Description:  Read Premier general ledger records and create BDC     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              statement to load them into R/3 Motts system via       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              traasaction F-02.                                      *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Requested By: Vic Alleva                                             *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Input:        N/A                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Output:       N/A                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Job:          N/A                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Transport/Correction #: MRDK902592 / MRDK902593                      *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;======================================================================&lt;/STRONG&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;           M O D I F I C A T I O N   H I S T O R Y                   *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;======================================================================&lt;/STRONG&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Date     User      Description                                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;12/27/01 PHAMT     Initial                                           *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************&lt;STRONG&gt;START M2MR&lt;/STRONG&gt;************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Date          : 09-Jan-05                                          *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Changed By    : Nilesh Shete                                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Change code   : M2MR                                               *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Transport. Req: SD5K911567                                         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  RevTrac No.   : 5000054                                            *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Ticket No.    : 16581306&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Description   :  Analysis of code indicated impact due to M2MR     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   conversion ; however, it was determined to be     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   out of scope  after business review .All          *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   impacted out of scope programs have been          *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   updated with Function Module ZCSS_M2MR_EXCEPTIONS *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   to prevent execution and provide the user         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   with the following message:                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   Please note that this program was identified      *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   as being impacted by the M2MR project but not     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   made M2MR  compliant as a result of being         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   removed from scope per the Business.Please        *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   contact the helpdesk if you wish to utilize       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   this program as it will need to be altered to     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   be made M2MR complaint. Thank you.                *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************&lt;STRONG&gt;END M2MR&lt;/STRONG&gt;************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;tables: t100,&lt;/P&gt;&lt;P&gt;        anla.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;STRONG&gt;-----  PARAMETERS AND SELECT-OPTIONS DEFINITION  -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="------------------" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;parameters:      p_monat like bkpf-monat default '13'     obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_bldat like bkpf-bldat default sy-datum obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_budat like bkpf-budat default sy-datum obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_blart like bkpf-blart default 'SA'     obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_bukrs like bkpf-bukrs default '0140'   obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_waers like bkpf-waers default 'USD'    obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_bktxt like bkpf-bktxt obligatory&lt;/P&gt;&lt;P&gt;                              default 'Premier Initial Load'.&lt;/P&gt;&lt;P&gt;parameters:      p_xblnr like bkpf-xblnr obligatory&lt;/P&gt;&lt;P&gt;                              default 'Premier Load'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen begin of block b1 with frame title text-001.&lt;/P&gt;&lt;P&gt;parameters: p_glfle(70) default 'C:\Motts\IBC_122001.PRN'.&lt;/P&gt;&lt;P&gt;selection-screen end   of block b1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen begin of block b2 with frame title text-002.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_bdce     radiobutton group mod.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-003.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_bdca     radiobutton group mod.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-004.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_bdcn     radiobutton group mod.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-005.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen skip 1.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_test     radiobutton group upd.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-006.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_stop     radiobutton group upd.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-007.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_upd      radiobutton group upd.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-012.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen end of block b2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;STRONG&gt;-----  INTERNAL TABLES                                         -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of bdc_data     occurs 100.&lt;/P&gt;&lt;P&gt;         include structure bdcdata.&lt;/P&gt;&lt;P&gt;data: end of bdc_data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of i_inrec      occurs 0,&lt;/P&gt;&lt;P&gt;         line(500)          type c,&lt;/P&gt;&lt;P&gt;      end of   i_inrec.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of i_glrec      occurs 0,            "General ledger recs&lt;/P&gt;&lt;P&gt;         budat              like bkpf-budat,     "Posting date&lt;/P&gt;&lt;P&gt;         newbs              like rf05a-newbs,    "Posting key&lt;/P&gt;&lt;P&gt;         newko              like rf05a-newko,    "Account&lt;/P&gt;&lt;P&gt;         wrbtr(15)          type c,              "Amount&lt;/P&gt;&lt;P&gt;         bldate(10)         type c,              "Base line date&lt;/P&gt;&lt;P&gt;         invoice(10)        type c,              "Invoice&lt;/P&gt;&lt;P&gt;         po(20)             type c,              "P.O&lt;/P&gt;&lt;P&gt;         name(40)           type c,              "Customer name&lt;/P&gt;&lt;P&gt;         kunnr              like bseg-kunnr,     "Sold-to number&lt;/P&gt;&lt;P&gt;         kostl              like bseg-kostl,     "Cost center&lt;/P&gt;&lt;P&gt;         mwskz              like bseg-mwskz,     "Tax code&lt;/P&gt;&lt;P&gt;         txjcd              like bset-txjcd,     "Tax jurisdiction&lt;/P&gt;&lt;P&gt;         sales_grp(3)       type c,              "Sales group&lt;/P&gt;&lt;P&gt;         prod_hier(27)      type c,              "Product hierarchy&lt;/P&gt;&lt;P&gt;         zuonr              like bseg-zuonr,     "Allocation&lt;/P&gt;&lt;P&gt;         sgtxt              like bseg-sgtxt,     "Text&lt;/P&gt;&lt;P&gt;         aufnr              like bseg-aufnr,     "Internal order&lt;/P&gt;&lt;P&gt;         newbk              like rf05a-newbk,    "New company code&lt;/P&gt;&lt;P&gt;         werks              like cobl-werks,     "Plant&lt;/P&gt;&lt;P&gt;         profit(10)         type c,              "Profit center&lt;/P&gt;&lt;P&gt;         custhier(10)       type c,              "Customer hierarchy 1&lt;/P&gt;&lt;P&gt;         salesoff(4)        type c,              "Sales office&lt;/P&gt;&lt;P&gt;         cotrade(3)         type c,              "Class of trade&lt;/P&gt;&lt;P&gt;         custhie3(10)       type c,              "Customer hierarchy 3&lt;/P&gt;&lt;P&gt;      end   of i_glrec.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of i_errec      occurs 0,            "Error recs&lt;/P&gt;&lt;P&gt;         budat              like bkpf-budat,     "Posting date&lt;/P&gt;&lt;P&gt;         newbs              like rf05a-newbs,    "Posting key&lt;/P&gt;&lt;P&gt;         newko              like rf05a-newko,    "Account&lt;/P&gt;&lt;P&gt;         wrbtr(15)          type c,              "Amount&lt;/P&gt;&lt;P&gt;         bldate(10)         type c,              "Base line date&lt;/P&gt;&lt;P&gt;         invoice(10)        type c,              "Invoice&lt;/P&gt;&lt;P&gt;         po(20)             type c,              "P.O&lt;/P&gt;&lt;P&gt;         name(40)           type c,              "Customer name&lt;/P&gt;&lt;P&gt;         kunnr              like bseg-kunnr,     "Sold-to number&lt;/P&gt;&lt;P&gt;      end   of i_errec.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;STRONG&gt;-----  VARIABLES &amp;amp; DATA FIELDS                                 -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;data: head0(60)         type c.&lt;/P&gt;&lt;P&gt;data: head1(80)         type c.&lt;/P&gt;&lt;P&gt;data: head2(80)         type c.&lt;/P&gt;&lt;P&gt;data: title(60)         type c.&lt;/P&gt;&lt;P&gt;data: stop_flag         type c.&lt;/P&gt;&lt;P&gt;data: rec_cnt           type i.&lt;/P&gt;&lt;P&gt;data: v_move_type(3)    type c.&lt;/P&gt;&lt;P&gt;data: v_bldat(10)       type c.&lt;/P&gt;&lt;P&gt;data: v_budat(10)       type c.&lt;/P&gt;&lt;P&gt;data: v_pk(2)           type c.&lt;/P&gt;&lt;P&gt;data: v_hdr_pk(2)       type c.&lt;/P&gt;&lt;P&gt;data: v_hdr_accnt(10)   type c.&lt;/P&gt;&lt;P&gt;data: v_tot(12)         type c.&lt;/P&gt;&lt;P&gt;data: v_rc              like sy-subrc.&lt;/P&gt;&lt;P&gt;data: v_hdr_amt(12)     type c.&lt;/P&gt;&lt;P&gt;data: v_itm_amt(12)     type c.&lt;/P&gt;&lt;P&gt;data: v_itm_bldte(10)   type c.&lt;/P&gt;&lt;P&gt;data: v_hdr_asgm(18)    type c.&lt;/P&gt;&lt;P&gt;data: v_itm_asgm(18)    type c.&lt;/P&gt;&lt;P&gt;data: v_itm_txt(40)     type c.&lt;/P&gt;&lt;P&gt;data: request           type c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: v_glrec_cnt       type i.&lt;/P&gt;&lt;P&gt;data: req_541_rec       type i.&lt;/P&gt;&lt;P&gt;data: req_502_rec       type i.&lt;/P&gt;&lt;P&gt;data: zmode             type c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: message_tab       like bdcmsgcoll occurs 0 with header line.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: outfile(50)       type c,&lt;/P&gt;&lt;P&gt;      msgtext(70)       type c,&lt;/P&gt;&lt;P&gt;      errcode(10)       type c,&lt;/P&gt;&lt;P&gt;      msg(12)           type c,&lt;/P&gt;&lt;P&gt;      err_found         type c,&lt;/P&gt;&lt;P&gt;      chr_flag          type c,&lt;/P&gt;&lt;P&gt;      wsfile            like rlgrap-filename,&lt;/P&gt;&lt;P&gt;      w_length          type p,&lt;/P&gt;&lt;P&gt;      othclien(3)       type c value '000',&lt;/P&gt;&lt;P&gt;      upiclien(3)       type c,&lt;/P&gt;&lt;P&gt;      tlines            like sy-index,&lt;/P&gt;&lt;P&gt;      error(1)          type c value 'F'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: duplicate_cntr    type i,&lt;/P&gt;&lt;P&gt;      bad_cntr          type i,&lt;/P&gt;&lt;P&gt;      new_acc_cnt       type i,&lt;/P&gt;&lt;P&gt;      good_cntr         type i,&lt;/P&gt;&lt;P&gt;      download_cntr     type i,&lt;/P&gt;&lt;P&gt;      upload_cntr       type i,&lt;/P&gt;&lt;P&gt;      loop_cntr         type i,&lt;/P&gt;&lt;P&gt;      w_subcont(1)      type c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*************************&lt;STRONG&gt;START M2MR&lt;/STRONG&gt;**********************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*In the Initialization part of the Program the function module is used&lt;/P&gt;&lt;P&gt;*ZCSS_M2MR_EXCEPTIONS to avoid the execution of the program .&lt;/P&gt;&lt;P&gt;Load-of-program.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'ZCSS_M2MR_EXCEPTIONS'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************&lt;STRONG&gt;END M2MR&lt;/STRONG&gt;***********************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;initialization.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;-----  START-OF_SELECTION                                       -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;start-of-selection.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 100_upload_glrec using p_glfle.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   if stop_flag ne 'Y'.&lt;/P&gt;&lt;P&gt;      perform 200_trans_f02.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;end-of-selection.&lt;/P&gt;&lt;P&gt;   skip 2.&lt;/P&gt;&lt;P&gt;   write: /05 'Control Status'.&lt;/P&gt;&lt;P&gt;   write: /08 'Total G/L   records read            ',    50 ':',&lt;/P&gt;&lt;P&gt;              v_glrec_cnt.&lt;/P&gt;&lt;P&gt;   write: /08 'Total G/L   records created         ',    50 ':',&lt;/P&gt;&lt;P&gt;              new_acc_cnt.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   skip.&lt;/P&gt;&lt;P&gt;   write: /01 sy-uline(25), 'E N D - O F - R E P O R T', sy-uline(25).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 200_TRANS_F02                                            --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form 200_trans_f02.&lt;/P&gt;&lt;P&gt;   if p_bdce     ne ' '.&lt;/P&gt;&lt;P&gt;      zmode       =  'E'.&lt;/P&gt;&lt;P&gt;   elseif p_bdca ne ' '.&lt;/P&gt;&lt;P&gt;      zmode       = 'A'.&lt;/P&gt;&lt;P&gt;   else.&lt;/P&gt;&lt;P&gt;      zmode       = 'N'.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   rec_cnt        = 0.&lt;/P&gt;&lt;P&gt;   describe table i_glrec lines v_glrec_cnt.&lt;/P&gt;&lt;P&gt;   clear bdc_data.&lt;/P&gt;&lt;P&gt;   refresh: bdc_data, message_tab.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   read table i_glrec index 1.&lt;/P&gt;&lt;P&gt;   perform 310_f02_screen_0100.&lt;/P&gt;&lt;P&gt;   perform 320_f02_screen_0300.&lt;/P&gt;&lt;P&gt;   perform 710_write-header.&lt;/P&gt;&lt;P&gt;   concatenate i_glrec-invoice i_glrec-po    into v_itm_asgm&lt;/P&gt;&lt;P&gt;               separated by ' '.&lt;/P&gt;&lt;P&gt;   concatenate i_glrec-name    i_glrec-kunnr into v_itm_txt&lt;/P&gt;&lt;P&gt;               separated by ' '.&lt;/P&gt;&lt;P&gt;   v_itm_amt   = i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;   v_itm_bldte = i_glrec-bldate.&lt;/P&gt;&lt;P&gt;   perform 700_write-detail.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   loop at i_glrec from 2.&lt;/P&gt;&lt;P&gt;      perform 320_f02_screen_0301.&lt;/P&gt;&lt;P&gt;      perform 700_write-detail.&lt;/P&gt;&lt;P&gt;      concatenate i_glrec-invoice i_glrec-po    into v_itm_asgm&lt;/P&gt;&lt;P&gt;                  separated by ' '.&lt;/P&gt;&lt;P&gt;      concatenate i_glrec-name    i_glrec-kunnr into v_itm_txt&lt;/P&gt;&lt;P&gt;                  separated by ' '.&lt;/P&gt;&lt;P&gt;      v_itm_amt   = i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;      v_itm_bldte = i_glrec-bldate.&lt;/P&gt;&lt;P&gt;   endloop.&lt;/P&gt;&lt;P&gt;   perform 350_f02_screen_0301.&lt;/P&gt;&lt;P&gt;   perform 340_f02_screen_0301.&lt;/P&gt;&lt;P&gt;   call transaction 'F-02' using bdc_data mode zmode update 'S'&lt;/P&gt;&lt;P&gt;        messages into  message_tab.&lt;/P&gt;&lt;P&gt;   perform 800_get_bdc_error.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 600_DYNPRO                                               --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form 600_dynpro using dynbegin fnam fval.&lt;/P&gt;&lt;P&gt;   clear bdc_data.&lt;/P&gt;&lt;P&gt;   if dynbegin = 'X'.&lt;/P&gt;&lt;P&gt;      move fnam to bdc_data-program.&lt;/P&gt;&lt;P&gt;      move fval to bdc_data-dynpro.&lt;/P&gt;&lt;P&gt;   else.&lt;/P&gt;&lt;P&gt;      move fnam to bdc_data-fnam.&lt;/P&gt;&lt;P&gt;      move fval to bdc_data-fval.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   move dynbegin to bdc_data-dynbegin.&lt;/P&gt;&lt;P&gt;   append bdc_data.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      FORM 700_WRITE-DETAIL                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 700_write-detail.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   write: /01 i_glrec-newbs,&lt;/P&gt;&lt;P&gt;           11 i_glrec-newko,&lt;/P&gt;&lt;P&gt;           21 i_glrec-wrbtr,&lt;/P&gt;&lt;P&gt;           37 i_glrec-bldate,&lt;/P&gt;&lt;P&gt;           48 i_glrec-invoice,&lt;/P&gt;&lt;P&gt;           59 i_glrec-po,&lt;/P&gt;&lt;P&gt;           80 i_glrec-kunnr,&lt;/P&gt;&lt;P&gt;           90 i_glrec-name.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      FORM 710_WRITE-HEADER                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 710_write-header.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   write: /01 v_hdr_pk,&lt;/P&gt;&lt;P&gt;           11 v_hdr_Accnt,&lt;/P&gt;&lt;P&gt;           21 v_hdr_amt,&lt;/P&gt;&lt;P&gt;           37 p_budat,&lt;/P&gt;&lt;P&gt;           48 p_monat,&lt;/P&gt;&lt;P&gt;           59 p_bukrs,&lt;/P&gt;&lt;P&gt;           80 v_hdr_accnt,&lt;/P&gt;&lt;P&gt;           90 p_xblnr.&lt;/P&gt;&lt;P&gt;   skip 1.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 100_UPLOAD_GLREC                                         --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 100_upload_glrec using f_name.&lt;/P&gt;&lt;P&gt;   move f_name to wsfile.&lt;/P&gt;&lt;P&gt;   stop_flag = 'N'.&lt;/P&gt;&lt;P&gt;   call function 'WS_UPLOAD'&lt;/P&gt;&lt;P&gt;       exporting&lt;/P&gt;&lt;P&gt;            filename            = wsfile&lt;/P&gt;&lt;P&gt;            filetype            = 'ASC'&lt;/P&gt;&lt;P&gt;       importing&lt;/P&gt;&lt;P&gt;            filesize            = w_length&lt;/P&gt;&lt;P&gt;       tables&lt;/P&gt;&lt;P&gt;            data_tab            = i_inrec&lt;/P&gt;&lt;P&gt;       exceptions&lt;/P&gt;&lt;P&gt;            conversion_error    = 1&lt;/P&gt;&lt;P&gt;            file_open_error     = 2&lt;/P&gt;&lt;P&gt;            file_read_error     = 3&lt;/P&gt;&lt;P&gt;            invalid_table_width = 4&lt;/P&gt;&lt;P&gt;            invalid_type        = 5&lt;/P&gt;&lt;P&gt;            no_batch            = 6&lt;/P&gt;&lt;P&gt;            unknown_error       = 7&lt;/P&gt;&lt;P&gt;            others              = 8.&lt;/P&gt;&lt;P&gt;   if sy-subrc &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;P&gt;      call function 'UPLOAD'&lt;/P&gt;&lt;P&gt;         exporting&lt;/P&gt;&lt;P&gt;            filename            = wsfile&lt;/P&gt;&lt;P&gt;            filetype            = 'ASC'&lt;/P&gt;&lt;P&gt;         importing&lt;/P&gt;&lt;P&gt;            filesize            = w_length&lt;/P&gt;&lt;P&gt;         tables&lt;/P&gt;&lt;P&gt;            data_tab            = i_inrec&lt;/P&gt;&lt;P&gt;         exceptions&lt;/P&gt;&lt;P&gt;            conversion_error    = 1&lt;/P&gt;&lt;P&gt;            file_open_error     = 2&lt;/P&gt;&lt;P&gt;            file_read_error     = 3&lt;/P&gt;&lt;P&gt;            invalid_table_width = 4&lt;/P&gt;&lt;P&gt;            invalid_type        = 5&lt;/P&gt;&lt;P&gt;            no_batch            = 6&lt;/P&gt;&lt;P&gt;            unknown_error       = 7&lt;/P&gt;&lt;P&gt;            others              = 8.&lt;/P&gt;&lt;P&gt;      if sy-subrc ne 0.&lt;/P&gt;&lt;P&gt;         message e999(fg) with 'Upload G/L file' wsfile&lt;/P&gt;&lt;P&gt;                               'has error. Check your file.'.&lt;/P&gt;&lt;P&gt;         stop_flag = 'Y'.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   describe table i_inrec lines rec_cnt.&lt;/P&gt;&lt;P&gt;   if rec_cnt = 0.&lt;/P&gt;&lt;P&gt;      stop_flag = 'Y'.&lt;/P&gt;&lt;P&gt;      exit.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   clear:   v_hdr_accnt,&lt;/P&gt;&lt;P&gt;            v_hdr_pk,&lt;/P&gt;&lt;P&gt;            v_tot,&lt;/P&gt;&lt;P&gt;            v_hdr_amt,&lt;/P&gt;&lt;P&gt;            v_hdr_asgm.&lt;/P&gt;&lt;P&gt;   refresh: i_glrec, i_errec.&lt;/P&gt;&lt;P&gt;   loop at i_inrec.&lt;/P&gt;&lt;P&gt;      v_pk    = i_inrec-line+7(2).&lt;/P&gt;&lt;P&gt;      if v_pk co '0123456789'.&lt;/P&gt;&lt;P&gt;         if v_hdr_accnt     = ' '.&lt;/P&gt;&lt;P&gt;            v_hdr_accnt     = i_inrec-line+13(07).&lt;/P&gt;&lt;P&gt;            v_hdr_pk        = v_pk.&lt;/P&gt;&lt;P&gt;            v_hdr_amt       = i_inrec-line+18(12).&lt;/P&gt;&lt;P&gt;            v_hdr_asgm      = i_inrec-line+40(40).&lt;/P&gt;&lt;P&gt;         else.&lt;/P&gt;&lt;P&gt;            i_glrec-newbs   = v_pk.&lt;/P&gt;&lt;P&gt;            i_glrec-newko   = i_inrec-line+10(07).&lt;/P&gt;&lt;P&gt;            i_glrec-wrbtr   = i_inrec-line+18(12).&lt;/P&gt;&lt;P&gt;            search i_glrec-wrbtr for '('.&lt;/P&gt;&lt;P&gt;            if sy-subrc = 0 and v_pk ne '11'.&lt;/P&gt;&lt;P&gt;               concatenate '-' i_glrec-wrbtr into i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;               i_errec  =  i_glrec.&lt;/P&gt;&lt;P&gt;               append i_errec.&lt;/P&gt;&lt;P&gt;            endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;            translate i_glrec-wrbtr using ', '.&lt;/P&gt;&lt;P&gt;            condense  i_glrec-wrbtr no-gaps.&lt;/P&gt;&lt;P&gt;            translate i_glrec-wrbtr using '( '.&lt;/P&gt;&lt;P&gt;            translate i_glrec-wrbtr using ') '.&lt;/P&gt;&lt;P&gt;            i_glrec-bldate  = i_inrec-line+32(08).&lt;/P&gt;&lt;P&gt;            i_glrec-invoice = i_inrec-line+42(08).&lt;/P&gt;&lt;P&gt;            i_glrec-po      = i_inrec-line+51(12).&lt;/P&gt;&lt;P&gt;            i_glrec-name    = i_inrec-line+64(40).&lt;/P&gt;&lt;P&gt;            i_glrec-kunnr   = i_inrec-line+108(6).&lt;/P&gt;&lt;P&gt;            append i_glrec.&lt;/P&gt;&lt;P&gt;            if v_pk = '01'.&lt;/P&gt;&lt;P&gt;               v_tot = v_tot + i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;            else.&lt;/P&gt;&lt;P&gt;               v_tot = v_tot - i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;            endif.&lt;/P&gt;&lt;P&gt;         endif.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;   endloop.&lt;/P&gt;&lt;P&gt;   describe table i_errec lines rec_cnt.&lt;/P&gt;&lt;P&gt;   write v_hdr_amt to v_hdr_amt    right-justified.&lt;/P&gt;&lt;P&gt;   write v_tot     to v_tot        right-justified.&lt;/P&gt;&lt;P&gt;   if rec_cnt &amp;gt; 0.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      write: /05 'Negative number found for posting key not 11.'.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      loop at i_errec.&lt;/P&gt;&lt;P&gt;         write: /01 i_errec-newbs,&lt;/P&gt;&lt;P&gt;                 11 i_errec-newko,&lt;/P&gt;&lt;P&gt;                 21 i_errec-wrbtr,&lt;/P&gt;&lt;P&gt;                 37 i_errec-bldate,&lt;/P&gt;&lt;P&gt;                 48 i_errec-invoice,&lt;/P&gt;&lt;P&gt;                 59 i_errec-po,&lt;/P&gt;&lt;P&gt;                 80 i_errec-kunnr,&lt;/P&gt;&lt;P&gt;                 90 i_errec-name.&lt;/P&gt;&lt;P&gt;      endloop.&lt;/P&gt;&lt;P&gt;   elseif v_tot ne v_hdr_amt.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      write: /05 'Total header amount', v_hdr_amt, 'is not equal to',&lt;/P&gt;&lt;P&gt;                 'total item amount', v_tot.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      message i999(fg) with 'Total header amount' v_hdr_amt&lt;/P&gt;&lt;P&gt;                            'not equal total item amount' v_tot.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 320_F02_SCREEN_0301.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 320_f02_screen_0301.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0301',&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-WRBTR'  v_itm_amt,       "Item amount&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZFBDT'  v_itm_bldte,     "Base line dt&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZUONR'  v_itm_asgm,      "Assignment&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-SGTXT'  v_itm_txt,       "text&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWBS' i_glrec-newbs,   "Pstky&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWKO' i_glrec-newko,   "Account&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/00'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 350_F02_SCREEN_0301.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 350_f02_screen_0301.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0301',&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-WRBTR'  v_itm_amt,       "Item amount&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZFBDT'  v_itm_bldte,     "Base line dt&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZUONR'  v_itm_asgm,      "Assignment&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-SGTXT'  v_itm_txt.       "text&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 340_F02_SCREEN_0301.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 340_f02_screen_0301.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   if p_upd ne ' '.&lt;/P&gt;&lt;P&gt;      perform 600_dynpro&lt;/P&gt;&lt;P&gt;                  using: ' ' 'BDC_OKCODE'    '/11'.&lt;/P&gt;&lt;P&gt;   elseif p_test ne ' '.&lt;/P&gt;&lt;P&gt;      perform 600_dynpro&lt;/P&gt;&lt;P&gt;                  using:  ' ' 'BDC_OKCODE'  '/N'.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 310_F02_SCREEN_0100.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 310_f02_screen_0100.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   concatenate p_bldat&lt;EM&gt;4(2) '/' p_bldat&lt;/EM&gt;6(2) '/' p_bldat(4)&lt;/P&gt;&lt;P&gt;          into v_bldat.&lt;/P&gt;&lt;P&gt;   concatenate p_budat&lt;EM&gt;4(2) '/' p_budat&lt;/EM&gt;6(2) '/' p_budat(4)&lt;/P&gt;&lt;P&gt;          into v_budat.&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0100',&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BLDAT'  v_bldat,         "Document date&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BUDAT'  v_budat,         "Posting date&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BLART'  'SA',            "Doc. type&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BUKRS'  p_bukrs,         "Company code&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-MONAT'  p_monat,         "Period&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BKTXT'  p_bktxt,         "Header text&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-XBLNR'  p_xblnr,         "Reference&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-WAERS'  p_waers,         "Currency&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWBS' v_hdr_pk,        "Pstky&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWKO' v_hdr_accnt,     "Account&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/00'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 320_F02_SCREEN_0300.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 320_f02_screen_0300.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0300',&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-WRBTR'  v_hdr_amt,       "Header amount&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-SGTXT'  p_bktxt,         "Header text&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZUONR'  p_xblnr,         "Assignment: Refer&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWBS' i_glrec-newbs,   "Pstky&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWKO' i_glrec-newko,   "Account&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/00'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPLKACB'    '0002',&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/08'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 800_GET_BDC_ERROR                                        --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form 800_get_bdc_error.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   clear: errcode, msgtext, err_found.&lt;/P&gt;&lt;P&gt;   msg  = 'BDC status:'.&lt;/P&gt;&lt;P&gt;   read table message_tab with key msgtyp = 'S'&lt;/P&gt;&lt;P&gt;                                   msgnr  = '312'&lt;/P&gt;&lt;P&gt;                                   msgid  = 'F5'.&lt;/P&gt;&lt;P&gt;   loop at message_tab.&lt;/P&gt;&lt;P&gt;      get time.&lt;/P&gt;&lt;P&gt;      select single * from  t100&lt;/P&gt;&lt;P&gt;       where sprsl  = message_tab-msgspra&lt;/P&gt;&lt;P&gt;         and arbgb  = message_tab-msgid&lt;/P&gt;&lt;P&gt;         and msgnr  = message_tab-msgnr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      shift: message_tab-msgv1 left deleting leading space,&lt;/P&gt;&lt;P&gt;             message_tab-msgv2 left deleting leading space,&lt;/P&gt;&lt;P&gt;             message_tab-msgv3 left deleting leading space,&lt;/P&gt;&lt;P&gt;             message_tab-msgv4 left deleting leading space.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      msgtext  = t100-text.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv1(20) into msgtext.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv2(20) into msgtext.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv3(20) into msgtext.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv4(20) into msgtext.&lt;/P&gt;&lt;P&gt;      condense  msgtext.&lt;/P&gt;&lt;P&gt;      concatenate message_tab-msgtyp&lt;/P&gt;&lt;P&gt;                  message_tab-msgnr '('&lt;/P&gt;&lt;P&gt;                  message_tab-msgid '):' into errcode.&lt;/P&gt;&lt;P&gt;      if message_tab-msgtyp = 'S'.&lt;/P&gt;&lt;P&gt;         new_acc_cnt =  new_acc_cnt + 1.&lt;/P&gt;&lt;P&gt;         if message_tab-msgnr = '312' and message_tab-msgid = 'F5'.&lt;/P&gt;&lt;P&gt;            format color col_positive intensified on.&lt;/P&gt;&lt;P&gt;         else.&lt;/P&gt;&lt;P&gt;            format color col_total intensified off.&lt;/P&gt;&lt;P&gt;         endif.&lt;/P&gt;&lt;P&gt;      elseif message_tab-msgtyp = 'W'.&lt;/P&gt;&lt;P&gt;         format color col_positive intensified off.&lt;/P&gt;&lt;P&gt;      else.&lt;/P&gt;&lt;P&gt;         format color col_negative.&lt;/P&gt;&lt;P&gt;         err_found = 'Y'.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;      write: /01 msg, errcode, msgtext.&lt;/P&gt;&lt;P&gt;      msg = ' '.&lt;/P&gt;&lt;P&gt;      format color col_background.&lt;/P&gt;&lt;P&gt;   endloop.&lt;/P&gt;&lt;P&gt;   if err_found = 'Y'.&lt;/P&gt;&lt;P&gt;      good_cntr = good_cntr + 1.&lt;/P&gt;&lt;P&gt;   else.&lt;/P&gt;&lt;P&gt;      bad_cntr  = bad_cntr  + 1.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;endform.                               "800_GET_BDC_ERROR&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;*&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-------------" /&gt; TOP OF PAGE  ROUTINE  -&lt;HR originaltext="--------------------------" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;top-of-page.&lt;/P&gt;&lt;P&gt;   format color col_heading intensified on.&lt;/P&gt;&lt;P&gt;   title = 'Premier Material Load'.&lt;/P&gt;&lt;P&gt;   head1 = 'BDC Load Status'.&lt;/P&gt;&lt;P&gt;   perform 1000_top_of_page using title head1.&lt;/P&gt;&lt;P&gt;   format color col_background.&lt;/P&gt;&lt;P&gt;   write: /01 'Post-Key', 11 'Account', 21 'Amount',   37 'Post-Date',&lt;/P&gt;&lt;P&gt;           48 'Document', 59 'P.O',     80 'Customer', 90 'Name'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   uline: /01(9), 11(09),  21(09), 21(12), 37(10), 48(9), 59(20),&lt;/P&gt;&lt;P&gt;           80(9), 90(40).&lt;/P&gt;&lt;P&gt;   skip 1.&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  1000_TOP_OF_PAGE&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 1000_top_of_page using text1 text2.&lt;/P&gt;&lt;P&gt;   data: wl_title(50) value 'MOTTS'.&lt;/P&gt;&lt;P&gt;   data: wf_len1 type i,&lt;/P&gt;&lt;P&gt;         wf_len2 type i,&lt;/P&gt;&lt;P&gt;         wf_len3 type i,&lt;/P&gt;&lt;P&gt;         wf_off1 type i,&lt;/P&gt;&lt;P&gt;         wf_off2 type i,&lt;/P&gt;&lt;P&gt;         wf_off3 type i,&lt;/P&gt;&lt;P&gt;         wf_of11 type i,&lt;/P&gt;&lt;P&gt;         wf_of12 type i,&lt;/P&gt;&lt;P&gt;         wf_of13 type i,&lt;/P&gt;&lt;P&gt;         wf_of14 type i.&lt;/P&gt;&lt;P&gt;   data: wf_linsz like syst-linsz.&lt;/P&gt;&lt;P&gt;   data: wf_pagno(4),&lt;/P&gt;&lt;P&gt;         z_system_id(10).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   move syst-linsz to wf_linsz.&lt;/P&gt;&lt;P&gt;   compute wf_len1 = strlen( wl_title ).&lt;/P&gt;&lt;P&gt;   compute wf_len2 = strlen( text1 ).&lt;/P&gt;&lt;P&gt;   compute wf_len3 = strlen( text2 ).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   compute wf_off1 = ( wf_linsz - wf_len1 ) / 2.&lt;/P&gt;&lt;P&gt;   compute wf_off2 = ( wf_linsz - wf_len2 ) / 2.&lt;/P&gt;&lt;P&gt;   compute wf_off3 = ( wf_linsz - wf_len3 ) / 2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   compute wf_of11 = ( wf_linsz - 10 ).&lt;/P&gt;&lt;P&gt;   compute wf_of12 = ( wf_linsz - 16 ).&lt;/P&gt;&lt;P&gt;   compute wf_of13 = ( wf_linsz - wf_len3 ).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   move syst-pagno to wf_pagno.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   concatenate syst-sysid '-' syst-mandt into z_system_id.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   write:/ 'Report:', syst-cprog. position wf_off1.&lt;/P&gt;&lt;P&gt;   write:  wl_title. position wf_of12.&lt;/P&gt;&lt;P&gt;   write: 'Page:', wf_pagno, '      '.&lt;/P&gt;&lt;P&gt;   write:/ 'System:',  z_system_id. position wf_off2.&lt;/P&gt;&lt;P&gt;   write:  text1.position wf_of12.&lt;/P&gt;&lt;P&gt;   write: 'Date:', syst-datum.&lt;/P&gt;&lt;P&gt;   write:/ 'User  :', syst-uname. position wf_off3.&lt;/P&gt;&lt;P&gt;   write:  text2. position wf_of12.&lt;/P&gt;&lt;P&gt;   write: 'Time:', syst-uzeit.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.                    " 1000_TOP_OF_PAGE&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Mon, 21 Apr 2008 07:03:42 GMT</pubDate>
    <dc:creator>Former Member</dc:creator>
    <dc:date>2008-04-21T07:03:42Z</dc:date>
    <item>
      <title>BDC Code for F-02</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669542#M883860</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Any one please send the sample bdc code for tcode f-02&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks &lt;/P&gt;&lt;P&gt;Amiya&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 21 Apr 2008 06:58:44 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669542#M883860</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-04-21T06:58:44Z</dc:date>
    </item>
    <item>
      <title>Re: BDC Code for F-02</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669543#M883861</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;report zmna_csf_glc_f02&lt;/P&gt;&lt;P&gt;       no standard page heading&lt;/P&gt;&lt;P&gt;       message-id 38&lt;/P&gt;&lt;P&gt;       line-size  132&lt;/P&gt;&lt;P&gt;       line-count 62.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Program Name: ZMNA_CSF_GLC_F02                                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Author :      Tuan Pham                                              *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Company:      Motts North America                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Date   :      12/27/2001                                             *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Purpose:      This program uploads Premier general ledger and load   *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              them into R/3 via transaction F-02.                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Description:  Read Premier general ledger records and create BDC     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              statement to load them into R/3 Motts system via       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;              traasaction F-02.                                      *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Requested By: Vic Alleva                                             *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Input:        N/A                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Output:       N/A                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Job:          N/A                                                    *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Transport/Correction #: MRDK902592 / MRDK902593                      *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;======================================================================&lt;/STRONG&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;           M O D I F I C A T I O N   H I S T O R Y                   *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;======================================================================&lt;/STRONG&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;Date     User      Description                                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;12/27/01 PHAMT     Initial                                           *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************&lt;STRONG&gt;START M2MR&lt;/STRONG&gt;************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Date          : 09-Jan-05                                          *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Changed By    : Nilesh Shete                                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Change code   : M2MR                                               *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Transport. Req: SD5K911567                                         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  RevTrac No.   : 5000054                                            *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Ticket No.    : 16581306&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;  Description   :  Analysis of code indicated impact due to M2MR     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   conversion ; however, it was determined to be     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   out of scope  after business review .All          *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   impacted out of scope programs have been          *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   updated with Function Module ZCSS_M2MR_EXCEPTIONS *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   to prevent execution and provide the user         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   with the following message:                       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   Please note that this program was identified      *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   as being impacted by the M2MR project but not     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   made M2MR  compliant as a result of being         *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   removed from scope per the Business.Please        *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   contact the helpdesk if you wish to utilize       *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   this program as it will need to be altered to     *&lt;/P&gt;&lt;/LI&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                   be made M2MR complaint. Thank you.                *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************&lt;STRONG&gt;END M2MR&lt;/STRONG&gt;************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;tables: t100,&lt;/P&gt;&lt;P&gt;        anla.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;STRONG&gt;-----  PARAMETERS AND SELECT-OPTIONS DEFINITION  -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="------------------" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;parameters:      p_monat like bkpf-monat default '13'     obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_bldat like bkpf-bldat default sy-datum obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_budat like bkpf-budat default sy-datum obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_blart like bkpf-blart default 'SA'     obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_bukrs like bkpf-bukrs default '0140'   obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_waers like bkpf-waers default 'USD'    obligatory.&lt;/P&gt;&lt;P&gt;parameters:      p_bktxt like bkpf-bktxt obligatory&lt;/P&gt;&lt;P&gt;                              default 'Premier Initial Load'.&lt;/P&gt;&lt;P&gt;parameters:      p_xblnr like bkpf-xblnr obligatory&lt;/P&gt;&lt;P&gt;                              default 'Premier Load'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen begin of block b1 with frame title text-001.&lt;/P&gt;&lt;P&gt;parameters: p_glfle(70) default 'C:\Motts\IBC_122001.PRN'.&lt;/P&gt;&lt;P&gt;selection-screen end   of block b1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen begin of block b2 with frame title text-002.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_bdce     radiobutton group mod.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-003.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_bdca     radiobutton group mod.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-004.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_bdcn     radiobutton group mod.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-005.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;selection-screen skip 1.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_test     radiobutton group upd.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-006.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_stop     radiobutton group upd.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-007.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen begin of line.&lt;/P&gt;&lt;P&gt;parameters: p_upd      radiobutton group upd.&lt;/P&gt;&lt;P&gt;selection-screen comment 04(76) text-012.&lt;/P&gt;&lt;P&gt;selection-screen end   of line.&lt;/P&gt;&lt;P&gt;selection-screen end of block b2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;STRONG&gt;-----  INTERNAL TABLES                                         -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of bdc_data     occurs 100.&lt;/P&gt;&lt;P&gt;         include structure bdcdata.&lt;/P&gt;&lt;P&gt;data: end of bdc_data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of i_inrec      occurs 0,&lt;/P&gt;&lt;P&gt;         line(500)          type c,&lt;/P&gt;&lt;P&gt;      end of   i_inrec.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of i_glrec      occurs 0,            "General ledger recs&lt;/P&gt;&lt;P&gt;         budat              like bkpf-budat,     "Posting date&lt;/P&gt;&lt;P&gt;         newbs              like rf05a-newbs,    "Posting key&lt;/P&gt;&lt;P&gt;         newko              like rf05a-newko,    "Account&lt;/P&gt;&lt;P&gt;         wrbtr(15)          type c,              "Amount&lt;/P&gt;&lt;P&gt;         bldate(10)         type c,              "Base line date&lt;/P&gt;&lt;P&gt;         invoice(10)        type c,              "Invoice&lt;/P&gt;&lt;P&gt;         po(20)             type c,              "P.O&lt;/P&gt;&lt;P&gt;         name(40)           type c,              "Customer name&lt;/P&gt;&lt;P&gt;         kunnr              like bseg-kunnr,     "Sold-to number&lt;/P&gt;&lt;P&gt;         kostl              like bseg-kostl,     "Cost center&lt;/P&gt;&lt;P&gt;         mwskz              like bseg-mwskz,     "Tax code&lt;/P&gt;&lt;P&gt;         txjcd              like bset-txjcd,     "Tax jurisdiction&lt;/P&gt;&lt;P&gt;         sales_grp(3)       type c,              "Sales group&lt;/P&gt;&lt;P&gt;         prod_hier(27)      type c,              "Product hierarchy&lt;/P&gt;&lt;P&gt;         zuonr              like bseg-zuonr,     "Allocation&lt;/P&gt;&lt;P&gt;         sgtxt              like bseg-sgtxt,     "Text&lt;/P&gt;&lt;P&gt;         aufnr              like bseg-aufnr,     "Internal order&lt;/P&gt;&lt;P&gt;         newbk              like rf05a-newbk,    "New company code&lt;/P&gt;&lt;P&gt;         werks              like cobl-werks,     "Plant&lt;/P&gt;&lt;P&gt;         profit(10)         type c,              "Profit center&lt;/P&gt;&lt;P&gt;         custhier(10)       type c,              "Customer hierarchy 1&lt;/P&gt;&lt;P&gt;         salesoff(4)        type c,              "Sales office&lt;/P&gt;&lt;P&gt;         cotrade(3)         type c,              "Class of trade&lt;/P&gt;&lt;P&gt;         custhie3(10)       type c,              "Customer hierarchy 3&lt;/P&gt;&lt;P&gt;      end   of i_glrec.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: begin of i_errec      occurs 0,            "Error recs&lt;/P&gt;&lt;P&gt;         budat              like bkpf-budat,     "Posting date&lt;/P&gt;&lt;P&gt;         newbs              like rf05a-newbs,    "Posting key&lt;/P&gt;&lt;P&gt;         newko              like rf05a-newko,    "Account&lt;/P&gt;&lt;P&gt;         wrbtr(15)          type c,              "Amount&lt;/P&gt;&lt;P&gt;         bldate(10)         type c,              "Base line date&lt;/P&gt;&lt;P&gt;         invoice(10)        type c,              "Invoice&lt;/P&gt;&lt;P&gt;         po(20)             type c,              "P.O&lt;/P&gt;&lt;P&gt;         name(40)           type c,              "Customer name&lt;/P&gt;&lt;P&gt;         kunnr              like bseg-kunnr,     "Sold-to number&lt;/P&gt;&lt;P&gt;      end   of i_errec.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;*&lt;STRONG&gt;-----  VARIABLES &amp;amp; DATA FIELDS                                 -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;data: head0(60)         type c.&lt;/P&gt;&lt;P&gt;data: head1(80)         type c.&lt;/P&gt;&lt;P&gt;data: head2(80)         type c.&lt;/P&gt;&lt;P&gt;data: title(60)         type c.&lt;/P&gt;&lt;P&gt;data: stop_flag         type c.&lt;/P&gt;&lt;P&gt;data: rec_cnt           type i.&lt;/P&gt;&lt;P&gt;data: v_move_type(3)    type c.&lt;/P&gt;&lt;P&gt;data: v_bldat(10)       type c.&lt;/P&gt;&lt;P&gt;data: v_budat(10)       type c.&lt;/P&gt;&lt;P&gt;data: v_pk(2)           type c.&lt;/P&gt;&lt;P&gt;data: v_hdr_pk(2)       type c.&lt;/P&gt;&lt;P&gt;data: v_hdr_accnt(10)   type c.&lt;/P&gt;&lt;P&gt;data: v_tot(12)         type c.&lt;/P&gt;&lt;P&gt;data: v_rc              like sy-subrc.&lt;/P&gt;&lt;P&gt;data: v_hdr_amt(12)     type c.&lt;/P&gt;&lt;P&gt;data: v_itm_amt(12)     type c.&lt;/P&gt;&lt;P&gt;data: v_itm_bldte(10)   type c.&lt;/P&gt;&lt;P&gt;data: v_hdr_asgm(18)    type c.&lt;/P&gt;&lt;P&gt;data: v_itm_asgm(18)    type c.&lt;/P&gt;&lt;P&gt;data: v_itm_txt(40)     type c.&lt;/P&gt;&lt;P&gt;data: request           type c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: v_glrec_cnt       type i.&lt;/P&gt;&lt;P&gt;data: req_541_rec       type i.&lt;/P&gt;&lt;P&gt;data: req_502_rec       type i.&lt;/P&gt;&lt;P&gt;data: zmode             type c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: message_tab       like bdcmsgcoll occurs 0 with header line.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: outfile(50)       type c,&lt;/P&gt;&lt;P&gt;      msgtext(70)       type c,&lt;/P&gt;&lt;P&gt;      errcode(10)       type c,&lt;/P&gt;&lt;P&gt;      msg(12)           type c,&lt;/P&gt;&lt;P&gt;      err_found         type c,&lt;/P&gt;&lt;P&gt;      chr_flag          type c,&lt;/P&gt;&lt;P&gt;      wsfile            like rlgrap-filename,&lt;/P&gt;&lt;P&gt;      w_length          type p,&lt;/P&gt;&lt;P&gt;      othclien(3)       type c value '000',&lt;/P&gt;&lt;P&gt;      upiclien(3)       type c,&lt;/P&gt;&lt;P&gt;      tlines            like sy-index,&lt;/P&gt;&lt;P&gt;      error(1)          type c value 'F'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data: duplicate_cntr    type i,&lt;/P&gt;&lt;P&gt;      bad_cntr          type i,&lt;/P&gt;&lt;P&gt;      new_acc_cnt       type i,&lt;/P&gt;&lt;P&gt;      good_cntr         type i,&lt;/P&gt;&lt;P&gt;      download_cntr     type i,&lt;/P&gt;&lt;P&gt;      upload_cntr       type i,&lt;/P&gt;&lt;P&gt;      loop_cntr         type i,&lt;/P&gt;&lt;P&gt;      w_subcont(1)      type c.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*************************&lt;STRONG&gt;START M2MR&lt;/STRONG&gt;**********************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*In the Initialization part of the Program the function module is used&lt;/P&gt;&lt;P&gt;*ZCSS_M2MR_EXCEPTIONS to avoid the execution of the program .&lt;/P&gt;&lt;P&gt;Load-of-program.&lt;/P&gt;&lt;P&gt;CALL FUNCTION 'ZCSS_M2MR_EXCEPTIONS'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************&lt;STRONG&gt;END M2MR&lt;/STRONG&gt;***********************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;initialization.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;-----  START-OF_SELECTION                                       -&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;                                                                     *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;start-of-selection.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 100_upload_glrec using p_glfle.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   if stop_flag ne 'Y'.&lt;/P&gt;&lt;P&gt;      perform 200_trans_f02.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;end-of-selection.&lt;/P&gt;&lt;P&gt;   skip 2.&lt;/P&gt;&lt;P&gt;   write: /05 'Control Status'.&lt;/P&gt;&lt;P&gt;   write: /08 'Total G/L   records read            ',    50 ':',&lt;/P&gt;&lt;P&gt;              v_glrec_cnt.&lt;/P&gt;&lt;P&gt;   write: /08 'Total G/L   records created         ',    50 ':',&lt;/P&gt;&lt;P&gt;              new_acc_cnt.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   skip.&lt;/P&gt;&lt;P&gt;   write: /01 sy-uline(25), 'E N D - O F - R E P O R T', sy-uline(25).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 200_TRANS_F02                                            --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form 200_trans_f02.&lt;/P&gt;&lt;P&gt;   if p_bdce     ne ' '.&lt;/P&gt;&lt;P&gt;      zmode       =  'E'.&lt;/P&gt;&lt;P&gt;   elseif p_bdca ne ' '.&lt;/P&gt;&lt;P&gt;      zmode       = 'A'.&lt;/P&gt;&lt;P&gt;   else.&lt;/P&gt;&lt;P&gt;      zmode       = 'N'.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   rec_cnt        = 0.&lt;/P&gt;&lt;P&gt;   describe table i_glrec lines v_glrec_cnt.&lt;/P&gt;&lt;P&gt;   clear bdc_data.&lt;/P&gt;&lt;P&gt;   refresh: bdc_data, message_tab.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   read table i_glrec index 1.&lt;/P&gt;&lt;P&gt;   perform 310_f02_screen_0100.&lt;/P&gt;&lt;P&gt;   perform 320_f02_screen_0300.&lt;/P&gt;&lt;P&gt;   perform 710_write-header.&lt;/P&gt;&lt;P&gt;   concatenate i_glrec-invoice i_glrec-po    into v_itm_asgm&lt;/P&gt;&lt;P&gt;               separated by ' '.&lt;/P&gt;&lt;P&gt;   concatenate i_glrec-name    i_glrec-kunnr into v_itm_txt&lt;/P&gt;&lt;P&gt;               separated by ' '.&lt;/P&gt;&lt;P&gt;   v_itm_amt   = i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;   v_itm_bldte = i_glrec-bldate.&lt;/P&gt;&lt;P&gt;   perform 700_write-detail.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   loop at i_glrec from 2.&lt;/P&gt;&lt;P&gt;      perform 320_f02_screen_0301.&lt;/P&gt;&lt;P&gt;      perform 700_write-detail.&lt;/P&gt;&lt;P&gt;      concatenate i_glrec-invoice i_glrec-po    into v_itm_asgm&lt;/P&gt;&lt;P&gt;                  separated by ' '.&lt;/P&gt;&lt;P&gt;      concatenate i_glrec-name    i_glrec-kunnr into v_itm_txt&lt;/P&gt;&lt;P&gt;                  separated by ' '.&lt;/P&gt;&lt;P&gt;      v_itm_amt   = i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;      v_itm_bldte = i_glrec-bldate.&lt;/P&gt;&lt;P&gt;   endloop.&lt;/P&gt;&lt;P&gt;   perform 350_f02_screen_0301.&lt;/P&gt;&lt;P&gt;   perform 340_f02_screen_0301.&lt;/P&gt;&lt;P&gt;   call transaction 'F-02' using bdc_data mode zmode update 'S'&lt;/P&gt;&lt;P&gt;        messages into  message_tab.&lt;/P&gt;&lt;P&gt;   perform 800_get_bdc_error.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 600_DYNPRO                                               --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form 600_dynpro using dynbegin fnam fval.&lt;/P&gt;&lt;P&gt;   clear bdc_data.&lt;/P&gt;&lt;P&gt;   if dynbegin = 'X'.&lt;/P&gt;&lt;P&gt;      move fnam to bdc_data-program.&lt;/P&gt;&lt;P&gt;      move fval to bdc_data-dynpro.&lt;/P&gt;&lt;P&gt;   else.&lt;/P&gt;&lt;P&gt;      move fnam to bdc_data-fnam.&lt;/P&gt;&lt;P&gt;      move fval to bdc_data-fval.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   move dynbegin to bdc_data-dynbegin.&lt;/P&gt;&lt;P&gt;   append bdc_data.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      FORM 700_WRITE-DETAIL                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 700_write-detail.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   write: /01 i_glrec-newbs,&lt;/P&gt;&lt;P&gt;           11 i_glrec-newko,&lt;/P&gt;&lt;P&gt;           21 i_glrec-wrbtr,&lt;/P&gt;&lt;P&gt;           37 i_glrec-bldate,&lt;/P&gt;&lt;P&gt;           48 i_glrec-invoice,&lt;/P&gt;&lt;P&gt;           59 i_glrec-po,&lt;/P&gt;&lt;P&gt;           80 i_glrec-kunnr,&lt;/P&gt;&lt;P&gt;           90 i_glrec-name.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;      FORM 710_WRITE-HEADER                                         *&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 710_write-header.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   write: /01 v_hdr_pk,&lt;/P&gt;&lt;P&gt;           11 v_hdr_Accnt,&lt;/P&gt;&lt;P&gt;           21 v_hdr_amt,&lt;/P&gt;&lt;P&gt;           37 p_budat,&lt;/P&gt;&lt;P&gt;           48 p_monat,&lt;/P&gt;&lt;P&gt;           59 p_bukrs,&lt;/P&gt;&lt;P&gt;           80 v_hdr_accnt,&lt;/P&gt;&lt;P&gt;           90 p_xblnr.&lt;/P&gt;&lt;P&gt;   skip 1.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 100_UPLOAD_GLREC                                         --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 100_upload_glrec using f_name.&lt;/P&gt;&lt;P&gt;   move f_name to wsfile.&lt;/P&gt;&lt;P&gt;   stop_flag = 'N'.&lt;/P&gt;&lt;P&gt;   call function 'WS_UPLOAD'&lt;/P&gt;&lt;P&gt;       exporting&lt;/P&gt;&lt;P&gt;            filename            = wsfile&lt;/P&gt;&lt;P&gt;            filetype            = 'ASC'&lt;/P&gt;&lt;P&gt;       importing&lt;/P&gt;&lt;P&gt;            filesize            = w_length&lt;/P&gt;&lt;P&gt;       tables&lt;/P&gt;&lt;P&gt;            data_tab            = i_inrec&lt;/P&gt;&lt;P&gt;       exceptions&lt;/P&gt;&lt;P&gt;            conversion_error    = 1&lt;/P&gt;&lt;P&gt;            file_open_error     = 2&lt;/P&gt;&lt;P&gt;            file_read_error     = 3&lt;/P&gt;&lt;P&gt;            invalid_table_width = 4&lt;/P&gt;&lt;P&gt;            invalid_type        = 5&lt;/P&gt;&lt;P&gt;            no_batch            = 6&lt;/P&gt;&lt;P&gt;            unknown_error       = 7&lt;/P&gt;&lt;P&gt;            others              = 8.&lt;/P&gt;&lt;P&gt;   if sy-subrc &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;P&gt;      call function 'UPLOAD'&lt;/P&gt;&lt;P&gt;         exporting&lt;/P&gt;&lt;P&gt;            filename            = wsfile&lt;/P&gt;&lt;P&gt;            filetype            = 'ASC'&lt;/P&gt;&lt;P&gt;         importing&lt;/P&gt;&lt;P&gt;            filesize            = w_length&lt;/P&gt;&lt;P&gt;         tables&lt;/P&gt;&lt;P&gt;            data_tab            = i_inrec&lt;/P&gt;&lt;P&gt;         exceptions&lt;/P&gt;&lt;P&gt;            conversion_error    = 1&lt;/P&gt;&lt;P&gt;            file_open_error     = 2&lt;/P&gt;&lt;P&gt;            file_read_error     = 3&lt;/P&gt;&lt;P&gt;            invalid_table_width = 4&lt;/P&gt;&lt;P&gt;            invalid_type        = 5&lt;/P&gt;&lt;P&gt;            no_batch            = 6&lt;/P&gt;&lt;P&gt;            unknown_error       = 7&lt;/P&gt;&lt;P&gt;            others              = 8.&lt;/P&gt;&lt;P&gt;      if sy-subrc ne 0.&lt;/P&gt;&lt;P&gt;         message e999(fg) with 'Upload G/L file' wsfile&lt;/P&gt;&lt;P&gt;                               'has error. Check your file.'.&lt;/P&gt;&lt;P&gt;         stop_flag = 'Y'.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   describe table i_inrec lines rec_cnt.&lt;/P&gt;&lt;P&gt;   if rec_cnt = 0.&lt;/P&gt;&lt;P&gt;      stop_flag = 'Y'.&lt;/P&gt;&lt;P&gt;      exit.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;   clear:   v_hdr_accnt,&lt;/P&gt;&lt;P&gt;            v_hdr_pk,&lt;/P&gt;&lt;P&gt;            v_tot,&lt;/P&gt;&lt;P&gt;            v_hdr_amt,&lt;/P&gt;&lt;P&gt;            v_hdr_asgm.&lt;/P&gt;&lt;P&gt;   refresh: i_glrec, i_errec.&lt;/P&gt;&lt;P&gt;   loop at i_inrec.&lt;/P&gt;&lt;P&gt;      v_pk    = i_inrec-line+7(2).&lt;/P&gt;&lt;P&gt;      if v_pk co '0123456789'.&lt;/P&gt;&lt;P&gt;         if v_hdr_accnt     = ' '.&lt;/P&gt;&lt;P&gt;            v_hdr_accnt     = i_inrec-line+13(07).&lt;/P&gt;&lt;P&gt;            v_hdr_pk        = v_pk.&lt;/P&gt;&lt;P&gt;            v_hdr_amt       = i_inrec-line+18(12).&lt;/P&gt;&lt;P&gt;            v_hdr_asgm      = i_inrec-line+40(40).&lt;/P&gt;&lt;P&gt;         else.&lt;/P&gt;&lt;P&gt;            i_glrec-newbs   = v_pk.&lt;/P&gt;&lt;P&gt;            i_glrec-newko   = i_inrec-line+10(07).&lt;/P&gt;&lt;P&gt;            i_glrec-wrbtr   = i_inrec-line+18(12).&lt;/P&gt;&lt;P&gt;            search i_glrec-wrbtr for '('.&lt;/P&gt;&lt;P&gt;            if sy-subrc = 0 and v_pk ne '11'.&lt;/P&gt;&lt;P&gt;               concatenate '-' i_glrec-wrbtr into i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;               i_errec  =  i_glrec.&lt;/P&gt;&lt;P&gt;               append i_errec.&lt;/P&gt;&lt;P&gt;            endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;            translate i_glrec-wrbtr using ', '.&lt;/P&gt;&lt;P&gt;            condense  i_glrec-wrbtr no-gaps.&lt;/P&gt;&lt;P&gt;            translate i_glrec-wrbtr using '( '.&lt;/P&gt;&lt;P&gt;            translate i_glrec-wrbtr using ') '.&lt;/P&gt;&lt;P&gt;            i_glrec-bldate  = i_inrec-line+32(08).&lt;/P&gt;&lt;P&gt;            i_glrec-invoice = i_inrec-line+42(08).&lt;/P&gt;&lt;P&gt;            i_glrec-po      = i_inrec-line+51(12).&lt;/P&gt;&lt;P&gt;            i_glrec-name    = i_inrec-line+64(40).&lt;/P&gt;&lt;P&gt;            i_glrec-kunnr   = i_inrec-line+108(6).&lt;/P&gt;&lt;P&gt;            append i_glrec.&lt;/P&gt;&lt;P&gt;            if v_pk = '01'.&lt;/P&gt;&lt;P&gt;               v_tot = v_tot + i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;            else.&lt;/P&gt;&lt;P&gt;               v_tot = v_tot - i_glrec-wrbtr.&lt;/P&gt;&lt;P&gt;            endif.&lt;/P&gt;&lt;P&gt;         endif.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;   endloop.&lt;/P&gt;&lt;P&gt;   describe table i_errec lines rec_cnt.&lt;/P&gt;&lt;P&gt;   write v_hdr_amt to v_hdr_amt    right-justified.&lt;/P&gt;&lt;P&gt;   write v_tot     to v_tot        right-justified.&lt;/P&gt;&lt;P&gt;   if rec_cnt &amp;gt; 0.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      write: /05 'Negative number found for posting key not 11.'.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      loop at i_errec.&lt;/P&gt;&lt;P&gt;         write: /01 i_errec-newbs,&lt;/P&gt;&lt;P&gt;                 11 i_errec-newko,&lt;/P&gt;&lt;P&gt;                 21 i_errec-wrbtr,&lt;/P&gt;&lt;P&gt;                 37 i_errec-bldate,&lt;/P&gt;&lt;P&gt;                 48 i_errec-invoice,&lt;/P&gt;&lt;P&gt;                 59 i_errec-po,&lt;/P&gt;&lt;P&gt;                 80 i_errec-kunnr,&lt;/P&gt;&lt;P&gt;                 90 i_errec-name.&lt;/P&gt;&lt;P&gt;      endloop.&lt;/P&gt;&lt;P&gt;   elseif v_tot ne v_hdr_amt.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      write: /05 'Total header amount', v_hdr_amt, 'is not equal to',&lt;/P&gt;&lt;P&gt;                 'total item amount', v_tot.&lt;/P&gt;&lt;P&gt;      skip 1.&lt;/P&gt;&lt;P&gt;      message i999(fg) with 'Total header amount' v_hdr_amt&lt;/P&gt;&lt;P&gt;                            'not equal total item amount' v_tot.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 320_F02_SCREEN_0301.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 320_f02_screen_0301.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0301',&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-WRBTR'  v_itm_amt,       "Item amount&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZFBDT'  v_itm_bldte,     "Base line dt&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZUONR'  v_itm_asgm,      "Assignment&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-SGTXT'  v_itm_txt,       "text&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWBS' i_glrec-newbs,   "Pstky&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWKO' i_glrec-newko,   "Account&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/00'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 350_F02_SCREEN_0301.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 350_f02_screen_0301.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0301',&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-WRBTR'  v_itm_amt,       "Item amount&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZFBDT'  v_itm_bldte,     "Base line dt&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZUONR'  v_itm_asgm,      "Assignment&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-SGTXT'  v_itm_txt.       "text&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 340_F02_SCREEN_0301.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form: 340_f02_screen_0301.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   if p_upd ne ' '.&lt;/P&gt;&lt;P&gt;      perform 600_dynpro&lt;/P&gt;&lt;P&gt;                  using: ' ' 'BDC_OKCODE'    '/11'.&lt;/P&gt;&lt;P&gt;   elseif p_test ne ' '.&lt;/P&gt;&lt;P&gt;      perform 600_dynpro&lt;/P&gt;&lt;P&gt;                  using:  ' ' 'BDC_OKCODE'  '/N'.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 310_F02_SCREEN_0100.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 310_f02_screen_0100.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   concatenate p_bldat&lt;EM&gt;4(2) '/' p_bldat&lt;/EM&gt;6(2) '/' p_bldat(4)&lt;/P&gt;&lt;P&gt;          into v_bldat.&lt;/P&gt;&lt;P&gt;   concatenate p_budat&lt;EM&gt;4(2) '/' p_budat&lt;/EM&gt;6(2) '/' p_budat(4)&lt;/P&gt;&lt;P&gt;          into v_budat.&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0100',&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BLDAT'  v_bldat,         "Document date&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BUDAT'  v_budat,         "Posting date&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BLART'  'SA',            "Doc. type&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BUKRS'  p_bukrs,         "Company code&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-MONAT'  p_monat,         "Period&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-BKTXT'  p_bktxt,         "Header text&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-XBLNR'  p_xblnr,         "Reference&lt;/P&gt;&lt;P&gt;                  ' ' 'BKPF-WAERS'  p_waers,         "Currency&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWBS' v_hdr_pk,        "Pstky&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWKO' v_hdr_accnt,     "Account&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/00'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 320_F02_SCREEN_0300.                                     --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 320_f02_screen_0300.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPMF05A'   '0300',&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-WRBTR'  v_hdr_amt,       "Header amount&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-SGTXT'  p_bktxt,         "Header text&lt;/P&gt;&lt;P&gt;                  ' ' 'BSEG-ZUONR'  p_xblnr,         "Assignment: Refer&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWBS' i_glrec-newbs,   "Pstky&lt;/P&gt;&lt;P&gt;                  ' ' 'RF05A-NEWKO' i_glrec-newko,   "Account&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/00'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   perform 600_dynpro&lt;/P&gt;&lt;P&gt;           using: 'X' 'SAPLKACB'    '0002',&lt;/P&gt;&lt;P&gt;                  ' ' 'BDC_OKCODE'  '/08'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;**-- FORM: 800_GET_BDC_ERROR                                        --**&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;form 800_get_bdc_error.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   clear: errcode, msgtext, err_found.&lt;/P&gt;&lt;P&gt;   msg  = 'BDC status:'.&lt;/P&gt;&lt;P&gt;   read table message_tab with key msgtyp = 'S'&lt;/P&gt;&lt;P&gt;                                   msgnr  = '312'&lt;/P&gt;&lt;P&gt;                                   msgid  = 'F5'.&lt;/P&gt;&lt;P&gt;   loop at message_tab.&lt;/P&gt;&lt;P&gt;      get time.&lt;/P&gt;&lt;P&gt;      select single * from  t100&lt;/P&gt;&lt;P&gt;       where sprsl  = message_tab-msgspra&lt;/P&gt;&lt;P&gt;         and arbgb  = message_tab-msgid&lt;/P&gt;&lt;P&gt;         and msgnr  = message_tab-msgnr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      shift: message_tab-msgv1 left deleting leading space,&lt;/P&gt;&lt;P&gt;             message_tab-msgv2 left deleting leading space,&lt;/P&gt;&lt;P&gt;             message_tab-msgv3 left deleting leading space,&lt;/P&gt;&lt;P&gt;             message_tab-msgv4 left deleting leading space.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      msgtext  = t100-text.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv1(20) into msgtext.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv2(20) into msgtext.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv3(20) into msgtext.&lt;/P&gt;&lt;P&gt;      replace '&amp;amp;' with  message_tab-msgv4(20) into msgtext.&lt;/P&gt;&lt;P&gt;      condense  msgtext.&lt;/P&gt;&lt;P&gt;      concatenate message_tab-msgtyp&lt;/P&gt;&lt;P&gt;                  message_tab-msgnr '('&lt;/P&gt;&lt;P&gt;                  message_tab-msgid '):' into errcode.&lt;/P&gt;&lt;P&gt;      if message_tab-msgtyp = 'S'.&lt;/P&gt;&lt;P&gt;         new_acc_cnt =  new_acc_cnt + 1.&lt;/P&gt;&lt;P&gt;         if message_tab-msgnr = '312' and message_tab-msgid = 'F5'.&lt;/P&gt;&lt;P&gt;            format color col_positive intensified on.&lt;/P&gt;&lt;P&gt;         else.&lt;/P&gt;&lt;P&gt;            format color col_total intensified off.&lt;/P&gt;&lt;P&gt;         endif.&lt;/P&gt;&lt;P&gt;      elseif message_tab-msgtyp = 'W'.&lt;/P&gt;&lt;P&gt;         format color col_positive intensified off.&lt;/P&gt;&lt;P&gt;      else.&lt;/P&gt;&lt;P&gt;         format color col_negative.&lt;/P&gt;&lt;P&gt;         err_found = 'Y'.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;      write: /01 msg, errcode, msgtext.&lt;/P&gt;&lt;P&gt;      msg = ' '.&lt;/P&gt;&lt;P&gt;      format color col_background.&lt;/P&gt;&lt;P&gt;   endloop.&lt;/P&gt;&lt;P&gt;   if err_found = 'Y'.&lt;/P&gt;&lt;P&gt;      good_cntr = good_cntr + 1.&lt;/P&gt;&lt;P&gt;   else.&lt;/P&gt;&lt;P&gt;      bad_cntr  = bad_cntr  + 1.&lt;/P&gt;&lt;P&gt;   endif.&lt;/P&gt;&lt;P&gt;endform.                               "800_GET_BDC_ERROR&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;*&lt;STRONG&gt;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="-------------" /&gt; TOP OF PAGE  ROUTINE  -&lt;HR originaltext="--------------------------" /&gt;*&lt;P&gt;&lt;/P&gt;&lt;P&gt;************************************************************************&lt;/P&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;top-of-page.&lt;/P&gt;&lt;P&gt;   format color col_heading intensified on.&lt;/P&gt;&lt;P&gt;   title = 'Premier Material Load'.&lt;/P&gt;&lt;P&gt;   head1 = 'BDC Load Status'.&lt;/P&gt;&lt;P&gt;   perform 1000_top_of_page using title head1.&lt;/P&gt;&lt;P&gt;   format color col_background.&lt;/P&gt;&lt;P&gt;   write: /01 'Post-Key', 11 'Account', 21 'Amount',   37 'Post-Date',&lt;/P&gt;&lt;P&gt;           48 'Document', 59 'P.O',     80 'Customer', 90 'Name'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   uline: /01(9), 11(09),  21(09), 21(12), 37(10), 48(9), 59(20),&lt;/P&gt;&lt;P&gt;           80(9), 90(40).&lt;/P&gt;&lt;P&gt;   skip 1.&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;      Form  1000_TOP_OF_PAGE&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;&amp;amp;----&lt;/STRONG&gt;&lt;/P&gt;&lt;HR originaltext="----------------------------------------------------------------" /&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;form 1000_top_of_page using text1 text2.&lt;/P&gt;&lt;P&gt;   data: wl_title(50) value 'MOTTS'.&lt;/P&gt;&lt;P&gt;   data: wf_len1 type i,&lt;/P&gt;&lt;P&gt;         wf_len2 type i,&lt;/P&gt;&lt;P&gt;         wf_len3 type i,&lt;/P&gt;&lt;P&gt;         wf_off1 type i,&lt;/P&gt;&lt;P&gt;         wf_off2 type i,&lt;/P&gt;&lt;P&gt;         wf_off3 type i,&lt;/P&gt;&lt;P&gt;         wf_of11 type i,&lt;/P&gt;&lt;P&gt;         wf_of12 type i,&lt;/P&gt;&lt;P&gt;         wf_of13 type i,&lt;/P&gt;&lt;P&gt;         wf_of14 type i.&lt;/P&gt;&lt;P&gt;   data: wf_linsz like syst-linsz.&lt;/P&gt;&lt;P&gt;   data: wf_pagno(4),&lt;/P&gt;&lt;P&gt;         z_system_id(10).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   move syst-linsz to wf_linsz.&lt;/P&gt;&lt;P&gt;   compute wf_len1 = strlen( wl_title ).&lt;/P&gt;&lt;P&gt;   compute wf_len2 = strlen( text1 ).&lt;/P&gt;&lt;P&gt;   compute wf_len3 = strlen( text2 ).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   compute wf_off1 = ( wf_linsz - wf_len1 ) / 2.&lt;/P&gt;&lt;P&gt;   compute wf_off2 = ( wf_linsz - wf_len2 ) / 2.&lt;/P&gt;&lt;P&gt;   compute wf_off3 = ( wf_linsz - wf_len3 ) / 2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   compute wf_of11 = ( wf_linsz - 10 ).&lt;/P&gt;&lt;P&gt;   compute wf_of12 = ( wf_linsz - 16 ).&lt;/P&gt;&lt;P&gt;   compute wf_of13 = ( wf_linsz - wf_len3 ).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   move syst-pagno to wf_pagno.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   concatenate syst-sysid '-' syst-mandt into z_system_id.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;   write:/ 'Report:', syst-cprog. position wf_off1.&lt;/P&gt;&lt;P&gt;   write:  wl_title. position wf_of12.&lt;/P&gt;&lt;P&gt;   write: 'Page:', wf_pagno, '      '.&lt;/P&gt;&lt;P&gt;   write:/ 'System:',  z_system_id. position wf_off2.&lt;/P&gt;&lt;P&gt;   write:  text1.position wf_of12.&lt;/P&gt;&lt;P&gt;   write: 'Date:', syst-datum.&lt;/P&gt;&lt;P&gt;   write:/ 'User  :', syst-uname. position wf_off3.&lt;/P&gt;&lt;P&gt;   write:  text2. position wf_of12.&lt;/P&gt;&lt;P&gt;   write: 'Time:', syst-uzeit.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;endform.                    " 1000_TOP_OF_PAGE&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 21 Apr 2008 07:03:42 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669543#M883861</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-04-21T07:03:42Z</dc:date>
    </item>
    <item>
      <title>Re: BDC Code for F-02</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669544#M883862</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;HI,&lt;/P&gt;&lt;P&gt;  Refer&lt;/P&gt;&lt;P&gt;&lt;A href="https://forums.sdn.sap.com/click.jspa?searchID=10948381&amp;amp;messageID=1538409" target="test_blank"&gt;https://forums.sdn.sap.com/click.jspa?searchID=10948381&amp;amp;messageID=1538409&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;A href="https://forums.sdn.sap.com/click.jspa?searchID=10948381&amp;amp;messageID=1420619" target="test_blank"&gt;https://forums.sdn.sap.com/click.jspa?searchID=10948381&amp;amp;messageID=1420619&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards&lt;/P&gt;&lt;P&gt;Kiran Sure&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 21 Apr 2008 07:09:43 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669544#M883862</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-04-21T07:09:43Z</dc:date>
    </item>
    <item>
      <title>Re: BDC Code for F-02</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669545#M883863</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Thanks Guys&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 21 Apr 2008 07:22:39 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/bdc-code-for-f-02/m-p/3669545#M883863</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2008-04-21T07:22:39Z</dc:date>
    </item>
  </channel>
</rss>

