Hi abap experts (one help)

Question

hi
1. please send standard data base table names related to    fi/co?
2.  please send any objects related to fi/co (weather its   reports bdc, scripts or smarforms)?

Answer 1

Hi,
Please go through the below mention code where you can find the data related to FICO.
This program is mainly used for F-53 BDC Document clearance.
REPORT ZCITI_F53_WIPRO no standard page heading line-count 255.
TABLES: BSIK,        " Accounting: Secondary Index for Vendors
        LFA1,        " Vendor Master (General Section)
        LFB1,        " Vendor Master (Company Code)
        BKPF,        " Accounting Document Header
        bsak,        " Acctg:Secondary Index for Vendors (Cleared Items)
         t077k.
DATA:  Z_FNAME LIKE RLGRAP-FILENAME,
       Z_PATH LIKE RLGRAP-FILENAME,
       MASK(10).
begin of mod01 +
TYPES : BEGIN OF W_TAB1,
        BELNR LIKE BSIK-BELNR,
        WRBTR LIKE BSIK-WRBTR,
        END OF W_TAB1.
TYPES : BEGIN OF W_TAB,
        BELNR LIKE BSIK-BELNR,
        WRBTR LIKE BSIK-WRBTR,
        lifnr like bsik-lifnr,
        END OF W_TAB.
end of mod01 -
DATA : BEGIN OF IT_BSIK OCCURS 0,
       BUKRS LIKE BSIK-BUKRS,
       LIFNR LIKE BSIK-LIFNR,
       GJAHR LIKE BSIK-GJAHR,
       BELNR LIKE BSIK-BELNR,
       WRBTR LIKE BSIK-WRBTR,
       REBZG LIKE BSIK-REBZG,
       ZLSPR LIKE BSIK-ZLSPR,
       SHKZG LIKE BSIK-SHKZG,
       PARTL LIKE BSIK-WRBTR,
       NTAMT LIKE BSIK-WRBTR,
       XPORE LIKE LFB1-XPORE,
       END OF IT_BSIK.
data : file_path like rlgrap-filename.
DATA : BEGIN OF IT_LFA1 OCCURS 0,
       LIFNR LIKE LFA1-LIFNR,
       END OF IT_LFA1.
DATA : BEGIN OF it_error OCCURS 0,
             bukrs LIKE bsik-bukrs,
             lifnr LIKE bsik-lifnr,
             belnr LIKE bsik-belnr,
             gjahr LIKE bsik-gjahr,
             rej(1),
        END OF it_error.
DATA : IT_TAB TYPE STANDARD TABLE OF W_TAB
       INITIAL SIZE 0 WITH HEADER LINE,
       IT_TAB1 TYPE STANDARD TABLE OF W_TAB1
       INITIAL SIZE 0 WITH HEADER LINE.
DATA : BEGIN OF IT_INVN OCCURS 0,
       BUKRS LIKE BSIK-BUKRS,
       LIFNR LIKE BSIK-LIFNR,
       GJAHR LIKE BSIK-GJAHR,
       BELNR LIKE BSIK-BELNR,
       WRBTR LIKE BSIK-WRBTR,
       REBZG LIKE BSIK-REBZG,
       ZLSPR LIKE BSIK-ZLSPR,
       SHKZG LIKE BSIK-SHKZG,
       PARTL LIKE BSIK-WRBTR,
       NTAMT LIKE BSIK-WRBTR,
       XPORE LIKE LFB1-XPORE,
       END OF IT_INVN.
data : str type string.
DATA : m_wrbtr_h LIKE bsik-wrbtr,
       m_wrbtr_s LIKE bsik-wrbtr,
       m_wrbtr_net LIKE bsik-wrbtr,
       m_amnt  like bsik-wrbtr,
       m_pamnt like bsik-wrbtr,
       M_NTAMNT LIKE BSIK-WRBTR,
       M_PNTAMNT LIKE BSIK-WRBTR.
data : t_bdc_tab like standard table of bdcdata
      initial size 0 with header line.
data : dat(10).
data : flag(1),
       FLAGE(1),
       count(4) type n,
       counter(4) type n.
DATA : FSYR LIKE BSIK-GJAHR.
DATA : M_PARTL type string,
       M_AMOUNT type string,
       mt_ntamnt type string,
       MT_PNTAMNT type string.
data: m_file LIKE rlgrap-filename.
DATA: id1(3) TYPE n.
  TABLES rfcdes.
  DATA: file_count  TYPE i,
        dir_count   TYPE i.
  DATA: file_table  LIKE sdokpath OCCURS 0 WITH HEADER LINE,
        dir_table   LIKE sdokpath OCCURS 0 WITH HEADER LINE,
        source      LIKE rlgrap-filename,
        destination LIKE rlgrap-filename,
        dest_path   like rlgrap-filename,
        return TYPE i.
data : begin of it_bsak occurs 0,
       augbl like bsak-augbl,
       end of it_bsak.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME.
    PARAMETERS : P_CMCD LIKE BSIK-BUKRS OBLIGATORY DEFAULT 'WT01'.
    PARAMETERS : P_FLNM LIKE RLGRAP-FILENAME OBLIGATORY.
    PARAMETERS : P_FSYR LIKE BSIK-GJAHR OBLIGATORY. "ADDED mod01
SELECTION-SCREEN SKIP.
    PARAMETERS : PX_TEST AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK BK1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECTION-SCREEN COMMENT 1(70) m_info.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT 1(70) m_info1.
SELECTION-SCREEN SKIP.
    PARAMETERS : PX_MOVE AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FLNM.
  Z_FNAME = 'regular.txt'.
  Z_PATH = 'c:\citibank\liabilitydoc\regular.txt'.
  MASK = ',.,..'.
  CALL FUNCTION 'WS_FILENAME_GET'
      EXPORTING
           DEF_FILENAME     = Z_FNAME
           DEF_PATH         = Z_PATH
           MASK             = MASK
           MODE             = 'O'
        TITLE            = ' '
      IMPORTING
           FILENAME         = P_FLNM
        RC               =
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.
  IF SY-SUBRC <> 0.
    MESSAGE I000(E4) WITH 'File Upload Error'.
  ENDIF.
AT SELECTION-SCREEN OUTPUT.
  m_info =
    'Before BDC Run - First move all the files from directory'.
M_INFO1 ='C:\CITIBANK\PAYDOC_IMPORT\ to C:\CITIBANK\PAYDOC_PROCESSED'.
P_FLNM = 'c:\citibank\liabilitydoc\regular.txt'.
START-OF-SELECTION.
  CALL FUNCTION 'WS_UPLOAD'
       EXPORTING
            FILENAME                = P_FLNM
            FILETYPE                = 'DAT'
       TABLES
            DATA_TAB                = IT_TAB1[]
       EXCEPTIONS
            CONVERSION_ERROR        = 1
            FILE_OPEN_ERROR         = 2
            FILE_READ_ERROR         = 3
            INVALID_TYPE            = 4
            NO_BATCH                = 5
            UNKNOWN_ERROR           = 6
            INVALID_TABLE_WIDTH     = 7
            GUI_REFUSE_FILETRANSFER = 8
            CUSTOMER_ERROR          = 9
            OTHERS                  = 10.
START-OF-SELECTION.
CALL FUNCTION 'Z_GET_FISCALYEAR'
     EXPORTING
          PDATE   = sy-datum
    IMPORTING
         PYEAR   = FSYR
begin of mod01 +
loop at it_tab1.
select single lifnr into it_tab-lifnr from bseg
                          where bukrs = p_cmcd and
                          belnr = it_tab1-belnr and
                          gjahr = p_fsyr.
if sy-subrc <> 0.
        MOVE P_CMCD TO IT_ERROR-BUKRS.
        MOVE IT_TAB1-BELNR TO IT_ERROR-BELNR.
        MOVE FSYR TO IT_ERROR-GJAHR.
        MOVE 'A' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_tab1.
else.
    it_tab-belnr = it_tab1-belnr.
    it_tab-wrbtr = it_tab1-wrbtr.
    append it_tab.
    clear it_tab.
endif.
endloop.
end of mod01 + ************
SORT IT_TAB BY BELNR.
LOOP AT IT_TAB.
      select SINGLE bukrs
                    lifnr
                    gjahr
                    belnr
                    wrbtr
                    rebzg
                    zlspr
                    shkzg into
                   (it_bsik-bukrs,
                   it_bsik-lifnr,
                   it_bsik-gjahr,
                   It_bsik-belnr,
                   it_bsik-wrbtr,
                   it_bsik-rebzg,
                   it_bsik-zlspr,
                   it_bsik-SHKZG)
            from bsik where
             bukrs = P_CMCD and
            gjahr = fsyr and    " MOD01 -
            lifnr = it_tab-lifnr and
             gjahr = P_FSYR and     "MOD01 +
             belnr = it_tab-belnr.
      IF SY-SUBRC <> 0.
        MOVE P_CMCD TO IT_ERROR-BUKRS.
        MOVE IT_TAB-BELNR TO IT_ERROR-BELNR.
        MOVE FSYR TO IT_ERROR-GJAHR.
        MOVE 'A' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_tab.
      ELSE.
          APPEND IT_BSIK.
          CLEAR IT_BSIK.
      ENDIF.
ENDLOOP.
SORT IT_BSIK BY LIFNR.
LOOP AT IT_BSIK.
select single ktokk from lfa1 into lfa1-ktokk.
select single xcpds from t077k into t077k-xcpds where ktokk = lfa1-ktokk
    IF IT_BSIK-ZLSPR <> ''.
        MOVE IT_BSIK TO IT_ERROR-BUKRS.
        MOVE IT_BSIK-BELNR TO IT_ERROR-BELNR.
        MOVE IT_BSIK-GJAHR TO IT_ERROR-GJAHR.
        MOVE 'B' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_bsik.
    elseif t077k-xcpds = 'X'.
        MOVE IT_BSIK TO IT_ERROR-BUKRS.
        MOVE IT_BSIK-BELNR TO IT_ERROR-BELNR.
        MOVE IT_BSIK-GJAHR TO IT_ERROR-GJAHR.
        MOVE 'G' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_bsik.
    ENDIF.
ENDLOOP.
SORT IT_BSIK BY LIFNR BELNR.
LOOP AT IT_BSIK.
SELECT SINGLE ZLSPR FROM BSIK INTO BSIK-ZLSPR WHERE
  BUKRS = IT_BSIK-BUKRS AND LIFNR = IT_BSIK-LIFNR AND
  GJAHR = IT_BSIK-GJAHR AND REBZG = IT_BSIK-BELNR.
  IF BSIK-ZLSPR <> ' '.
          MOVE IT_BSIK TO IT_ERROR-BUKRS.
        MOVE IT_BSIK-BELNR TO IT_ERROR-BELNR.
        MOVE IT_BSIK-GJAHR TO IT_ERROR-GJAHR.
        MOVE 'B' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_bsik.
ENDIF.
ENDLOOP.
sort it_bsik by lifnr.
loop at it_bsik.
    ON CHANGE OF IT_BSIK-LIFNR.
      MOVE IT_BSIK-LIFNR TO IT_LFA1-LIFNR.
      APPEND IT_LFA1.
      CLEAR IT_LFA1.
    ENDON.
endloop.
SORT IT_LFA1 BY LIFNR.
LOOP AT IT_LFA1.
      SELECT SINGLE SPERZ FROM LFA1 INTO LFA1-SPERZ WHERE
      LIFNR = IT_LFA1-LIFNR.
      IF LFA1-SPERZ = 'X'.
        MOVE IT_LFA1-LIFNR TO IT_ERROR-LIFNR.
        MOVE 'C' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_lfa1.
      ENDIF.
ENDLOOP.
sort it_bsik by belnr.
sort it_tab by belnr.
loop at it_bsik.
    read table it_tab with key belnr = it_bsik-belnr binary search.
     if sy-subrc = 0.
         move it_tab-wrbtr to it_bsik-partl.
         modify it_bsik transporting partl.
     endif.
endloop.
SORT IT_BSIK BY BUKRS LIFNR GJAHR BELNR.
LOOP AT IT_BSIK.
    SELECT SINGLE XPORE INTO IT_BSIK-XPORE FROM LFB1
    WHERE LIFNR = IT_BSIK-LIFNR.
    MODIFY IT_BSIK TRANSPORTING XPORE.
    CLEAR : M_WRBTR_H,M_WRBTR_S,M_WRBTR_NET.
    SELECT WRBTR SHKZG INTO (BSIK-WRBTR,BSIK-SHKZG) FROM BSIK
    WHERE BUKRS = IT_BSIK-BUKRS AND
          LIFNR = IT_BSIK-LIFNR AND
          GJAHR = IT_BSIK-GJAHR AND
          REBZG = IT_BSIK-BELNR.
     IF BSIK-SHKZG = 'H'.
          M_WRBTR_H = M_WRBTR_H + BSIK-WRBTR.
     ELSEIF BSIK-SHKZG = 'S'.
          M_WRBTR_S = M_WRBTR_S + BSIK-WRBTR.
     ENDIF.
   ENDSELECT.
   M_WRBTR_NET = IT_BSIK-WRBTR + M_WRBTR_H - M_WRBTR_S.
   IF M_WRBTR_NET LT 0.
        MOVE IT_BSIK TO IT_ERROR-BUKRS.
        MOVE IT_BSIK-BELNR TO IT_ERROR-BELNR.
        MOVE IT_BSIK-GJAHR TO IT_ERROR-GJAHR.
        MOVE 'D' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_bsik.
   ELSEIF M_WRBTR_NET GT '100000000.00'.
        MOVE IT_BSIK TO IT_ERROR-BUKRS.
        MOVE IT_BSIK-BELNR TO IT_ERROR-BELNR.
        MOVE IT_BSIK-GJAHR TO IT_ERROR-GJAHR.
        MOVE 'E' TO IT_ERROR-REJ.
        APPEND IT_ERROR.
        CLEAR IT_ERROR.
        delete it_bsik.
   ELSE.
      MOVE M_WRBTR_NET TO IT_BSIK-NTAMT.
     MODIFY IT_BSIK TRANSPORTING NTAMT.
   ENDIF.
ENDLOOP.
concatenate 'CITI/RTGS/NEFT/' sy-datum6(2) '.' sy-datum4(2) '.'
sy-datum(4) into str.
SORT IT_BSIK BY XPORE.
LOOP AT IT_BSIK.
  IF IT_BSIK-XPORE = 'X'.
      MOVE-CORRESPONDING IT_BSIK TO IT_INVN.
      APPEND IT_INVN.
      CLEAR : IT_INVN.
      DELETE IT_BSIK.
  ENDIF.
ENDLOOP.
if px_move = 'X'.
    perform file_move.
endif.
IF PX_TEST = 'X'.
    perform sub_output_run.
ELSE.
SORT IT_LFA1 BY LIFNR.
SORT IT_BSIK BY LIFNR.
SORT IT_INVN BY LIFNR.
concatenate sy-datum6(2) '.' sy-datum4(2) '.' sy-datum(4) into dat.
LOOP AT IT_LFA1.
SELECT SINGLE XPORE FROM LFB1 INTO LFB1-XPORE WHERE
LIFNR = IT_LFA1-LIFNR.
IF LFB1-XPORE = ' '.
clear : m_amnt,M_PAMNT, M_NTAMNT,FLAG.
    LOOP AT IT_BSIK WHERE LIFNR = IT_LFA1-LIFNR.
        IF IT_BSIK-XPORE = ' '.
            M_PAMNT = M_PAMNT + IT_BSIK-PARTL.
            m_amnt = m_amnt + it_bsik-ntamt.
        endif.
    ENDLOOP.
   perform populate_bdc_tab using: '1' 'SAPMF05A' '0103',
                                   ' ' 'BKPF-BLDAT' dat,
                                   ' ' 'BKPF-BLART' 'BR',
                                   ' ' 'BKPF-BUKRS' P_CMCD,
                                   ' ' 'RF05A-AUGTX' STR,
                                   ' ' 'RF05A-KONTO' '632118',
                                   ' ' 'BSEG-GSBER' 'T100'.
      IF M_PAMNT <> '0.00'.
          FLAG = 'X'.
          M_AMOUNT = M_PAMNT.
          condense m_amount.
          PERFORM POPULATE_BDC_TAB USING: ' ' 'BSEG-WRBTR' M_AMOUNT.
      ELSE.
          M_AMOUNT = M_AMNT.
          condense m_amount.
          PERFORM POPULATE_BDC_TAB USING: ' ' 'BSEG-WRBTR' M_AMOUNT.
      ENDIF.
      PERFORM POPULATE_BDC_TAB USING: ' ' 'RF05A-AGKON' it_LFA1-LIFNR,
                                      ' ' 'BDC_OKCODE' '/00'.
    loop at it_bsik where lifnr = it_lfa1-lifnr.
      PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                     ' ' 'BDC_OKCODE' '=OSU'.
           PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '2000',
                                     ' ' 'RF05A-XPOS1(03)' 'X',
                                     ' ' 'BDC_OKCODE' '=GO'.
             PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '0731',
                                    ' ' 'RF05A-SEL01(01)' it_bsik-belnr,
                                    ' ' 'BDC_OKCODE' '=GO'.
            PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=OMK'.
              PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=Z+'.
          PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=OSE'.
    endloop.
            if FLAG = 'X'.
                m_ntamnt = m_amnt - m_pamnt.
                mt_ntamnt = m_ntamnt.
                condense mt_ntamnt.
                PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'RF05A-AKOBT' mt_ntamnt,
                                    ' ' 'BDC_CURSOR' 'RF05A-AKOBT',
                                    ' ' 'BDC_SUBSCR' 'SAPDF05X',
                                    ' ' 'BDC_OKCODE' '=BU'.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPMF05A' '0700',
                                    ' ' 'BDC_CURSOR' 'RF05A-AZEI1(02)',
                                    ' ' 'BDC_OKCODE' '=PI'.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPMF05A' '0302',
                                  ' ' 'BSEG-SGTXT' 'CUMULATIVE PAYMENT',
                                    ' ' 'BDC_OKCODE' '=BU'.
            else.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=BU'.
            endif.
       CALL TRANSACTION 'F-53' USING T_BDC_TAB MODE 'A'.
if sy-subrc = 0.
  refresh T_BDC_TAB.
endif.
   else.
    loop at it_INVN where lifnr = it_lfa1-lifnr.
    CLEAR : FLAGE.
   perform populate_bdc_tab using: '1' 'SAPMF05A' '0103',
                                   ' ' 'BKPF-BLDAT' dat,
                                   ' ' 'BKPF-BLART' 'BR',
                                   ' ' 'BKPF-BUKRS' P_CMCD,
                                   ' ' 'RF05A-AUGTX' STR.
      IF IT_INVN-XPORE = 'X' AND IT_INVN-PARTL <> '0.00'.
        SELECT SINGLE XBLNR BSCHL INTO (BSIK-XBLNR,BSIK-BSCHL) FROM
                BSIK WHERE
                 BUKRS = IT_INVN-BUKRS AND
                 LIFNR = IT_INVN-LIFNR AND
                 GJAHR = IT_INVN-GJAHR AND
                 BELNR = IT_INVN-BELNR.
      IF BSIK-BSCHL = '31'.
            perform populate_bdc_tab using: ' ' 'BKPF-BKTXT' BSIK-XBLNR.
      ELSE.
          SELECT SINGLE BKTXT FROM BKPF INTO BKPF-BKTXT WHERE
              BUKRS = IT_INVN-BUKRS AND
              BELNR = IT_INVN-BELNR AND
              GJAHR = IT_INVN-GJAHR.
            perform populate_bdc_tab using: ' ' 'BKPF-BKTXT' BKPF-BKTXT.
      ENDIF.
    ENDIF.
        PERFORM POPULATE_BDC_TAB USING: ' ' 'RF05A-KONTO' '632118'.
        PERFORM POPULATE_BDC_TAB USING: ' ' 'BSEG-GSBER' 'T100'.
      IF IT_INVN-XPORE = 'X' AND IT_INVN-PARTL <> '0.00'.
          FLAGE = 'X'.
          M_PARTL = IT_INVN-PARTL.
          CONDENSE m_partl.
          PERFORM POPULATE_BDC_TAB USING: ' ' 'BSEG-WRBTR' M_PARTL.
      ELSE.
          M_PARTL = IT_INVN-NTAMT.
          condense m_partl.
          PERFORM POPULATE_BDC_TAB USING: ' ' 'BSEG-WRBTR' M_PARTL.
      ENDIF.
       PERFORM POPULATE_BDC_TAB USING: ' ' 'RF05A-AGKON' it_LFA1-LIFNR,
                                       ' ' 'BDC_OKCODE' '/00'.
           PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                     ' ' 'BDC_OKCODE' '=OSU'.
           PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '2000',
                                     ' ' 'RF05A-XPOS1(03)' 'X',
                                     ' ' 'BDC_OKCODE' '=GO'.
             PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '0731',
                                    ' ' 'RF05A-SEL01(01)' it_INVN-belnr,
                                    ' ' 'BDC_OKCODE' '=GO'.
            PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=OMK'.
              PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=Z+'.
             if FLAGE = 'X'.
                m_Pntamnt = IT_INVN-NTAMT - IT_INVN-PARTL.
                mt_Pntamnt = m_Pntamnt.
                condense mt_pntamnt.
                PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'RF05A-AKOBT' mt_Pntamnt,
                                    ' ' 'BDC_CURSOR' 'RF05A-AKOBT',
                                    ' ' 'BDC_SUBSCR' 'SAPDF05X',
                                    ' ' 'BDC_OKCODE' '=BU'.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPMF05A' '0700',
                                    ' ' 'BDC_CURSOR' 'RF05A-AZEI1(02)',
                                    ' ' 'BDC_OKCODE' '=PI'.
            IF BSIK-BSCHL = '31'.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPMF05A' '0302',
                                  ' ' 'BSEG-SGTXT' BSIK-XBLNR,
                                    ' ' 'BDC_OKCODE' '=BU'.
            ELSE.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPMF05A' '0302',
                                  ' ' 'BSEG-SGTXT' BKPF-BKTXT,
                                    ' ' 'BDC_OKCODE' '=BU'.
            ENDIF.
            else.
               PERFORM POPULATE_BDC_TAB USING: '1' 'SAPDF05X' '3100',
                                    ' ' 'BDC_OKCODE' '=BU'.
            endif.
      CALL TRANSACTION 'F-53' USING T_BDC_TAB MODE 'A'.
if sy-subrc = 0.
  refresh T_BDC_TAB.
endif.
    endloop.
ENDIF.
wait  up to 3 seconds.
ENDLOOP.
clear : count, counter.
SORT IT_BSIK BY BUKRS LIFNR GJAHR BELNR.
wait up to 60 seconds.
loop at it_bsik.
count = count + 1.
    select SINGLE augbl from bsak into bsak-augbl
where
          bukrs = it_bsik-bukrs and
          lifnr = it_bsik-lifnr and
          AUGBL <> IT_BSIK-BELNR AND
          gjahr = it_bsik-gjahr and
          belnr = it_bsik-belnr.
              move bsak-augbl to it_bsak-augbl.
              append it_bsak.
              clear it_bsak.
endloop.
SORT IT_INVN BY BUKRS LIFNR GJAHR BELNR.
loop at it_INVN.
count = count + 1.
    select single augbl from bsak into bsak-augbl
where
          bukrs = it_invn-bukrs and
          lifnr = it_invn-lifnr and
          gjahr = it_invn-gjahr and
          belnr = it_invn-belnr AND
          SHKZG = 'H'.
              move bsak-augbl to it_bsak-augbl.
              append it_bsak.
              clear it_bsak.
endloop.
SORT IT_BSAK BY AUGBL.
delete ADJACENT DUPLICATES from it_bsak comparing augbl.
DESCRIBE TABLE it_bsak LINES counter.
SORT IT_BSAK BY AUGBL.
PERFORM get_file_name.
CALL FUNCTION 'GUI_DOWNLOAD'
     EXPORTING
          FILENAME                = file_path
         FILETYPE                = 'ASC'
     TABLES
          DATA_TAB                = it_bsak
format color col_heading intensified off.
uline.
Write : /50 'F-53 BDC Run Successfully'.
format color off.
uline.
format color col_normal intensified off.
write : /20 'Payment Document File is store in following Path'.
write : /35 'C:\CITIBANK\PAYDOC_IMPORT\'.
uline.
format color off.
uline.
format color col_total.
write : /20 'Total No of Liability Documents Processed ', count no-zero.
write : /20 'Total No of Payment Documents Generated   ', counter
no-zero.
format color off.
uline.
ENDIF.
*&      Form  SUB_OUTPUT_RUN
      text
-->  p1        text
<--  p2        text
FORM SUB_OUTPUT_RUN.
data : SRNO type i value 0,
       srno1 type i value 0,
       srno2 TYPE i value 0,
       srno3 TYPE i value 0,
       srno4 TYPE i value 0,
       srno5 type i value 0.
  FORMAT COLOR col_heading intensified off .
  ULINE.
  WRITE:/35 'TEST RUN'.
  ULINE.
  FORMAT COLOR 5 INTENSIFIED OFF.
SORT IT_ERROR BY REJ.
LOOP AT IT_ERROR.
    ON CHANGE OF IT_ERROR-REJ.
      IF IT_ERROR-rej = 'A'.
      FORMAT COLOR col_heading INTENSIFIED OFF.
      ULINE.
WRITE : /'Following Documents are already cleared or do not exist in'.
write : 'current financial year'.   "MOD01 +
    uline.
     format color off.
      elseif it_error-rej = 'B'.
            FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      ULINE.
WRITE : /'Following Documents are Blocked for Payment'
    uline.
     format color off.
      elseif it_error-rej = 'C'.
            FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      ULINE.
WRITE : /'Following Vendors are Blocked for Payment'
    uline.
     format color off.
      elseif it_error-rej = 'D'.
            FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      ULINE.
WRITE : /'Amount is less than 0 for following Documents'
    uline.
     format color off.
      elseif it_error-rej = 'E'.
            FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      ULINE.
WRITE : /'Amount is greater than 10 crores for following Documents'
    uline.
     format color off.
      elseif it_error-rej = 'E'.
            FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      ULINE.
WRITE : /'One Time Vendor'.
    uline.
     format color off.
   endif.
   endon.
   if it_error-rej = 'A'.
    srno = srno + 1.
    format color COL_NORMAL.
    write : /10 srno,35 it_error-belnr.
    format color off.
   elseif it_error-rej = 'B'.
    srno1 = srno1 + 1.
    format color COL_NORMAL.
    write : /10 srno1,35 it_error-belnr.
    format color off.
   elseif it_error-rej = 'C'.
    srno2 = srno2 + 1.
    format color COL_NORMAL.
    write : /10 srno2,35 it_error-lifnr.
    format color off.
   elseif it_error-rej = 'D'.
    srno3 = srno3 + 1.
    format color COL_NORMAL.
    write : /10 srno3,35 it_error-belnr.
    format color off.
   elseif it_error-rej = 'E'.
    srno4 = srno4 + 1.
    format color COL_NORMAL.
    write : /10 srno4,35 it_error-belnr.
    format color off.
   elseif it_error-rej = 'G'.
    srno5 = srno5 + 1.
    format color COL_NORMAL.
    write : /10 srno5,35 it_error-lifnr.
    format color off.
   endif.
endloop.
if it_error is initial.
     FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      ULINE.
WRITE : /'Test Run not find any Document with Error'
    uline.
     format color off.
endif.
clear : srno,srno1,srno2,srno3,srno4,srno5.
ENDFORM.                    " SUB_OUTPUT_RUN
*&      Form  POPULATE_BDC_TAB
      text
     -->P_0217   text
     -->P_0218   text
     -->P_0219   text
form populate_bdc_tab using    value(flag)
                               value(var1)
                               value(var2).
  clear t_bdc_tab.
  if flag = '1'.
    t_bdc_tab-program = var1.          " Program Name
    t_bdc_tab-dynpro = var2.           " Screen Number
    t_bdc_tab-dynbegin = 'X'.          " Starting of new screen
  else.
    t_bdc_tab-fnam = var1.             " Field Name
    t_bdc_tab-fval = var2.             " Field Value
  endif.
  append t_bdc_tab.
   endform.                               " POPULATE_BDC_TAB
*&      Form  FILE_MOVE
      text
-->  p1        text
<--  p2        text
FORM FILE_MOVE.
file_path = 'c:\citibank\paydoc_import\'.
dest_path = 'c:\citibank\paydoc_processed\'.
    CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
      EXPORTING
        directory  = file_path
        filter     = '.'
      IMPORTING
        file_count = file_count
        dir_count  = dir_count
      TABLES
        file_table = file_table
        dir_table  = dir_table
      EXCEPTIONS
        cntl_error = 1
        OTHERS     = 2.
    IF sy-subrc = 0.
      LOOP AT file_table.
        CONCATENATE dest_path file_table-pathname
        INTO destination.
        CONCATENATE file_path file_table-pathname
        INTO source.
        CALL FUNCTION 'WS_FILE_COPY'
          EXPORTING
            destination = destination
            SOURCE      = SOURCE
          importing
            return      = return.
        CALL FUNCTION 'WS_FILE_DELETE'
          EXPORTING
            file   = source
          IMPORTING
            return = return.
      ENDLOOP.
      CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
        EXPORTING
          directory  = file_path
          filter     = '.'
        IMPORTING
          file_count = file_count
          dir_count  = dir_count
        TABLES
          file_table = file_table
          dir_table  = dir_table
        EXCEPTIONS
          cntl_error = 1
          OTHERS     = 2.
      IF file_count > 0.
      write : /'Error copying', source, 'to', destination.
       CONCATENATE 'Error copying' source 'to' destination
       INTO i_error SEPARATED BY space.
       APPEND i_error.
      ENDIF.
    ENDIF.
ENDFORM.                    " FILE_MOVE
*&      Form  GET_FILE_NAME
      text
-->  p1        text
<--  p2        text
FORM GET_FILE_NAME.
file_path = 'c:\citibank\paydoc_import\'.
  CLEAR : zcitibank2.
  SELECT SINGLE * FROM zcitibank2 INTO zcitibank2
                  WHERE citi_field = 'FNAME'.
  id1 = zcitibank2-citi_val .
  IF zcitibank2-sap_val <> sy-datum .
    zcitibank2-sap_val = sy-datum .
    UPDATE zcitibank2 SET citi_val = '001'
                          sap_val  = sy-datum
                          WHERE citi_field = 'FNAME'.
*sap_val = sy-datum.
  ELSE.
    id1 = id1 + 1.
    UPDATE zcitibank2 SET citi_val = id1
                                    WHERE citi_field = 'FNAME' AND
                                             sap_val = sy-datum.
  ENDIF.
  CLEAR : zcitibank2.
  SELECT SINGLE * FROM zcitibank2 WHERE citi_field = 'FNAME'.
CONCATENATE SY-DATUM SY-UZEIT INTO M_FILE SEPARATED BY SPACE.
  CONCATENATE zcitibank2-sap_val zcitibank2-citi_val INTO m_file
SEPARATED  BY '_'.
  CONCATENATE file_path m_file '.'
  'txt' INTO file_path.
ENDFORM.                    " GET_FILE_NAME