BDC ( Call Session Method)

Question

how to make bdc using call session method.

Answer 1

Hi,
Use this code,you can easily understand which u want to know
DATA: BEGIN OF itab OCCURS 0,
      str(255),
      END OF itab.
DATA: BEGIN OF itab1 OCCURS 0,
      lifnr LIKE lfa1-lifnr,
      name1 LIKE lfa1-name1,
      ort01 LIKE lfa1-ort01,
      END OF itab1.
DATA: jtab LIKE bdcdata OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'WS_UPLOAD'
  EXPORTING
    filename                = 'D:\ABAP EVE\ffile5.txt'
    filetype                = 'ASC'
  TABLES
    data_tab                = itab
  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
    no_authority            = 10
    OTHERS                  = 11.
IF sy-subrc <> 0.
  WRITE:/ 'no file exist'.
ENDIF.
LOOP AT itab.
  SPLIT itab-str AT ',' INTO itab1-lifnr itab1-name1 itab1-ort01.
  APPEND itab1.
ENDLOOP.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
   client                    = sy-mandt
  DEST                      = FILLER8
   group                     = 'ZCSSESSIONM1'
  HOLDDATE                  = FILLER8
   keep                      = 'X'
   user                      = sy-uname
  RECORD                    = FILLER1
  PROG                      = SY-CPROG
IMPORTING
  QID                       =
EXCEPTIONS
   client_invalid            = 1
   destination_invalid       = 2
   group_invalid             = 3
   group_is_locked           = 4
   holddate_invalid          = 5
   internal_error            = 6
   queue_error               = 7
   running                   = 8
   system_lock_error         = 9
   user_invalid              = 10
   OTHERS                    = 11.
LOOP AT itab1.
  PERFORM prginfo USING 'SAPMZBDCCT' '123'.
  PERFORM fldinfo USING 'i01' itab1-lifnr.
  PERFORM fldinfo USING 'i02' itab1-name1.
  PERFORM fldinfo USING 'i03' itab1-ort01.
CALL TRANSACTION 'ZCSBDCCT' USING jtab.
  CALL FUNCTION 'BDC_INSERT'
   EXPORTING
     tcode                  = 'ZCSBDCCT'
    POST_LOCAL             = NOVBLOCAL
    PRINTING               = NOPRINT
    SIMUBATCH              = ' '
    CTUPARAMS              = ' '
    TABLES
      dynprotab              = jtab
   EXCEPTIONS
     internal_error         = 1
     not_open               = 2
     queue_error            = 3
     tcode_invalid          = 4
     printing_invalid       = 5
     posting_invalid        = 6
     OTHERS                 = 7.
ENDLOOP.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
*&      Form  prginfo
      text
     -->PRGNAME    text
     -->SCRNUMBER  text
FORM prginfo USING prgname scrnumber.
  CLEAR jtab.
  REFRESH jtab.
  jtab-program = prgname.
  jtab-dynpro = scrnumber.
  jtab-dynbegin = 'X'.
  APPEND jtab.
ENDFORM.                    "prginfo
*&      Form  fldinfo
      text
     -->FLDNM      text
     -->FLDVAL     text
FORM fldinfo USING fldnm fldval.
  CLEAR jtab.
  jtab-fnam = fldnm.
  jtab-fval = fldval.
  APPEND jtab.
ENDFORM.                    "fldinfo
MPP CODE.
TOP-INCLUDE.
DATA: OK_CODE TYPE SY-UCOMM.
DATA: I01(10),I02(20),I03(26).
DATA: WA TYPE LFA1.
PAI
CASE OK_CODE.
   WHEN 'INSERT'.
     MOVE I01 TO WA-LIFNR.
     MOVE I02 TO WA-NAME1.
     MOVE I03 TO WA-ORT01.
     INSERT INTO LFA1 VALUES WA.
     IF SY-SUBRC = 0.
       MESSAGE I001(ZCSMSG).
     ELSE.
       MESSAGE I002(ZCSMSG).
     ENDIF.
   WHEN 'EXIT'.
     LEAVE PROGRAM.
ENDCASE.
Create the 3 io's in layout and 2 pushbuttons(exit,insert).
Open SM35 TCode -> select the session -> Click on "Process" from application toolbar
-> select mode of execution(foreground/background) -> click on "process".
Flatfile data:
300001,Yogesh,Secundrabad
320003,Wreline,Mexico
320004,Alexme,New York
And store this in "D:\ABAP EVE\ffile5.txt" path
Reward,if it is useful.
Thanks,
Chandu.