Urgent plz help me.error fixing--full marks given

Question

Hi..this is regarding error fixing for prgm below in ecc 6.0
*& Report  ZCLEAREM
REPORT  ZCLEAREM.
TABLES: LFA1, LFB1, BSIK.
PARAMETERS: CLRDATE LIKE BSIK-AUGDT.
SELECT-OPTIONS:  ALLOCATE FOR BSIK-ZUONR,
                 CLIENT   FOR BSIK-MANDT.
DATA:  BEGIN OF CLEARING OCCURS 3000,
       LIFNR  LIKE BSIK-LIFNR,
       BUKRS  LIKE BSIK-BUKRS,
       BUDAT  LIKE BSIK-BUDAT,
       ZUONR  LIKE BSIK-ZUONR.
DATA:  END OF CLEARING.
DATA: SESSION(12) VALUE 'CLEARVENDORS'.
DATA: BEGIN OF BDC_TAB OCCURS 10.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDC_TAB.
DATA: FROM_DATE(10), TO_DATE(10), COMPANY_CODE LIKE KOST1-BUKRS.
DATA: CTR(4) TYPE N VALUE 0, HOLD_LIFNR LIKE BSIK-LIFNR.
DATA: HOLD_BUKRS LIKE BSIK-BUKRS.
CALL FUNCTION 'BDC_OPEN_GROUP'
     EXPORTING
          CLIENT   = SY-MANDT
          GROUP    = SESSION
          HOLDDATE = '07/01/96'
          USER     = SY-UNAME
          KEEP     = 'X'.
CONCATENATE: CLRDATE4(2) '/' CLRDATE6(2) '/'
  CLRDATE+0(4) INTO FROM_DATE.
WRITE : / 'CLEARING DATE USED IS ', CLRDATE.
START-OF-SELECTION.
GET BSIK LATE.
  CHECK CLIENT.
  CHECK ALLOCATE.
  IF ( BSIK-QSSHB GT 0 ) AND ( BSIK-AUGBL EQ '          ' ).
    MOVE-CORRESPONDING BSIK TO CLEARING.
    APPEND CLEARING.
  ENDIF.
END-OF-SELECTION.
  WRITE : / 'SELECTED ', CTR, ' RECORDS FOR CLEARING...'.
  SORT CLEARING BY LIFNR BUKRS BUDAT.
  DELETE ADJACENT DUPLICATES FROM CLEARING COMPARING LIFNR BUKRS.
  LOOP AT CLEARING.
    WRITE : / CLEARING-LIFNR, ' ', CLEARING-BUKRS, ' CLEARED. '.
    PERFORM GENERATE_BDC_DATA.
    CTR = CTR + 1.
    CALL FUNCTION 'BDC_INSERT'
         EXPORTING
              TCODE     = 'F-44'
         TABLES
              DYNPROTAB = BDC_TAB.
  ENDLOOP.
  CALL FUNCTION 'BDC_CLOSE_GROUP'.
  WRITE: /'end of generation of bdc session - ', SESSION, SY-MANDT,
         SY-UNAME, SY-UZEIT.
  WRITE: / 'WILL CLEAR A TOTAL OF ', CTR, ' RECORDS.'.
      FORM GENERATE_BDC_DATA                                        *
FORM GENERATE_BDC_DATA.
  REFRESH BDC_TAB.
  PERFORM DYNPRO USING:
       'X' 'SAPMF05A' '0131',
       '' 'RF05A-AGKON' CLEARING-LIFNR,
       '' 'BKPF-BUKRS'  CLEARING-BUKRS,
       '' 'BKPF-BUDAT'  FROM_DATE,
       '' 'RF05A-XPOS1(2)' 'X',
       '' 'BDC_OKCODE' '/16',
       'X' 'SAPMF05A'  '0731',
       '' 'RF05A-SEL01(1)' CLEARING-ZUONR,
       '' 'BDC_OKCODE' '/16',
LOOP AT
       'X' 'SAPDF05X' '1102',
       ''  'BDC_OKCODE'  'BU'.
ENDFORM.
      FORM DYNPRO                                                   *
-->  DYNBEGIN                                                      *
-->  NAME                                                          *
-->  VALUE                                                         *
FORM DYNPRO USING DYNBEGIN NAME VALUE.
  IF DYNBEGIN = 'X'.
    CLEAR BDC_TAB.
    MOVE: NAME TO BDC_TAB-PROGRAM,
    VALUE TO BDC_TAB-DYNPRO,
    'X' TO BDC_TAB-DYNBEGIN.
    APPEND BDC_TAB.
  ELSE.
    CLEAR BDC_TAB.
    MOVE: NAME TO BDC_TAB-FNAM,
        VALUE TO BDC_TAB-FVAL.
    APPEND BDC_TAB.
  ENDIF.
ENDFORM.

Answer 1

In abap editor menu path
Goto-->Attributes
here in Logical Database name define KDF.
It will work.
regards
shiba dutta