topic Re: Sample code for CS01 using BDC recording in Application Development and Automation Discussions

Sample code for CS01 using BDC recording

Former Member — Fri, 19 Sep 2008 05:39:14 GMT

Hi,

Can anybody give me sample code for CS01 using BDC recording.

I m working on it,but i had errors.

Re: Sample code for CS01 using BDC recording

Former Member — Fri, 19 Sep 2008 06:14:59 GMT

Please put ur codes here..the errors will be rectified.

Regards,

Vishwa.

Re: Sample code for CS01 using BDC recording

Former Member — Fri, 19 Sep 2008 06:31:26 GMT

Hi,

I want the flat file records to be displayed vertically under one Alternative BOM .

Now wen i execute, the records r replaced one by one with one Alternative BOM .I dont know how to overcome with this.

Code:

report ZBOM1

no standard page heading line-size 255.

*include bdcrecx1.

DATA: BEGIN OF bdc OCCURS 0,

matnr(18),

werks(4),

stlan(1),

END OF BDC.

DATA: BEGIN OF BDC1 OCCURS 0,

posnr(4),

idnrk(18),

MENGE(18),

MEINS(3),

postp(1),

END OF bdc1.

DATA: BEGIN OF BDCDATA OCCURS 0,

matnr(18),

werks(4),

stlan(1),

posnr(4),

idnrk(18),

MENGE(18),

MEINS(3),

postp(1),

END OF BDCDATA.

data ibdcdata type standard table of bdcdata WITH header line.

*start-of-selection.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:\Documents and Settings\dilipkumar.b\Desktop\soft.txt'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = ','

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = BDCDATA

EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*perform open_group.

loop at bdcdata.

move: bdcdata-matnr to bdc-matnr,

bdcdata-werks to bdc-werks,

bdcdata-stlan to bdc-stlan.

append bdc.

*endloop.

perform bdc_dynpro using 'SAPLCSDI' '0100'.

perform bdc_field using 'BDC_CURSOR'

'RC29N-STLAN'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RC29N-MATNR'

'SOFTDRINKS'.

perform bdc_field using 'RC29N-WERKS'

'WIND'.

perform bdc_field using 'RC29N-STLAN'

'1'.

perform bdc_field using 'RC29N-DATUV'

'16.09.2008'.

perform bdc_dynpro using 'SAPLCSDI' '0110'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RC29K-BMENG'

'1'.

perform bdc_field using 'RC29K-STLST'

'1'.

perform bdc_field using 'BDC_CURSOR'

'RC29K-EXSTL'.

perform bdc_dynpro using 'SAPLCSDI' '0111'.

perform bdc_field using 'BDC_CURSOR'

'RC29K-LABOR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

data:field(11),

indx(3),

final(17).

loop at bdcdata where matnr eq bdc-matnr and

werks eq bdc-werks and

stlan eq bdc-stlan.

perform bdc_dynpro using 'SAPLCSDI' '0140'.

perform bdc_field using 'BDC_CURSOR'

'RC29P-POSTP(01)'.

perform bdc_field using 'BDC_OKCODE'

'=FCBU'.

perform bdc_field using 'RC29P-IDNRK(001)'

BDCDATA-IDNRK.

perform bdc_field using 'RC29P-MENGE(001)'

BDCDATA-MENGE.

perform bdc_field using 'RC29P-MEINS(001)'

BDCDATA-MEINS.

perform bdc_field using 'RC29P-POSTP(001)'

BDCDATA-POSTP.

perform bdc_dynpro using 'SAPLCSDI' '0130'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'RC29P-POSNR'.

perform bdc_field using 'RC29P-POSNR'

BDCDATA-POSNR. "'0010'.

perform bdc_field using 'RC29P-IDNRK'

BDCDATA-IDNRK. "'15'.

perform bdc_field using 'RC29P-MENGE'

BDCDATA-MENGE. "'1'.

perform bdc_field using 'RC29P-MEINS'

BDCDATA-MEINS. "'ml'.

perform bdc_dynpro using 'SAPLCSDI' '0131'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'BDC_CURSOR'

'RC29P-POTX1'.

perform bdc_field using 'RC29P-SANKA'

'X'.

*perform bdc_transaction using 'CS01'.

*perform close_group.

CALL TRANSACTION 'CS01' USING IBDCDATA MODE 'A' UPDATE 'S'.

REFRESH IBDCDATA.

clear ibdcdata.

endloop.

----

Start new screen *

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR iBDCDATA.

iBDCDATA-PROGRAM = PROGRAM.

iBDCDATA-DYNPRO = DYNPRO.

iBDCDATA-DYNBEGIN = 'X'.

APPEND ibDCDATA .

ENDFORM.

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL <> NODATA.

CLEAR iBDCDATA.

iBDCDATA-FNAM = FNAM.

iBDCDATA-FVAL = FVAL.

APPEND iBDCDATA .

ENDIF.

ENDFORM.

Re: Sample code for CS01 using BDC recording

Former Member — Fri, 19 Sep 2008 06:38:39 GMT

hii

diwakar., please check this code for PO. I think the table BDCdata should not be used the way ur using it... just check this code:

REPORT  ZZPO_BDC no standard page heading line-size 255.


tables: zzpo_staging.
DATA  id type string..
DATA: fnam(20) type c,
       matnr type bstmg.
data: quan(13) type c,
      netpr(15) type c,
      qty(13) type c,
      gp(15) type c.
DATA  idx type string.
data: i_bdcdata like bdcdata occurs 1 with header line,
      i_msg like bdcmsgcoll occurs 1 with header line.
DATA  W_STR type string.
DATA: IT_STAGING TYPE STANDARD TABLE OF ZZPO_STAGING WITH HEADER LINE,
      ti_staging type standard table of zzpo_staging with header line,
      KT_STAGING TYPE STANDARD TABLE OF ZZPO_STAGING WITH HEADER LINE.




*
*CALL FUNCTION 'BDC_OPEN_GROUP'
* EXPORTING
*   CLIENT                    = SY-MANDT
*   DEST                      = 'zzpo'
*   GROUP                     =  'zzpo'
**   HOLDDATE                  = FILLER8
*   KEEP                      = 'X'
*   USER                      =  sy-uname
**   RECORD                    = FILLER1
**   PROG                      = SY-CPROG
**   DCPFM                     = '%'
**   DATFM                     = '%'
** 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
*          .
*IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
**         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.

start-of-selection.
*perform open_group.

  SELECT * FROM ZZPO_STAGING INTO TABLE IT_STAGING.
  select * from zzpo_staging into table ti_staging.
  SELECT * fROM ZZPO_STAGING INTO TABLE KT_sTAGING.

    delete adjacent duplicates from it_staging comparing vendor docdate.


  loop at IT_STAGING.


    perform bdc_dynpro      using 'SAPMM06E' '0100'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'EKKO-EKGRP'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'EKKO-LIFNR'
                                   IT_STAGING-vendor.
    perform bdc_field       using 'RM06E-BSART'
                                  'NB'.
    perform bdc_field       using 'RM06E-BEDAT'
                                   IT_STAGING-docdate.
    perform bdc_field       using 'EKKO-EKORG'
                                   IT_STAGING-purorg.
    perform bdc_field       using 'EKKO-EKGRP'
                                   IT_STAGING-purgrp.
    perform bdc_field       using 'RM06E-LPEIN'
                                  'T'.

*  endloop.

    perform bdc_dynpro      using 'SAPMM06E' '0120'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RM06E-EPSTP(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=DETA'.
    perform bdc_dynpro      using 'SAPMM06E' '0120'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'EKPO-WERKS(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.

    move 1 to id.
*
    loop at TI_STAGING WHERE VENDOR = IT_STAGING-VENDOR AND DOCDATE = IT_STAGING-DOCDATE.

      concatenate 'RM06E-EPSTP(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-itmcategory.

      concatenate 'EKPO-KNTTP(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-accassignment.

      concatenate 'EKPO-EMATN(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-material.

      concatenate 'EKPO-TXZ01(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-shortxt.

      quan = ti_staging-poqty.
      concatenate 'EKPO-MENGE(0' id ')' into fnam.
      perform bdc_field       using fnam quan.

      concatenate 'RM06E-EEIND(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-deliverydate.

      netpr = ti_staging-netpr.

      concatenate 'EKPO-NETPR(0' id ')' into fnam.
      perform bdc_field       using fnam netpr.

      concatenate 'EKPO-MATKL(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-mategroup.

      concatenate 'EKPO-WERKS(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-plant.

      ID = ID + 1.
*
    ENDLOOP.
*
*    perform bdc_dynpro      using 'SAPMM06E' '0111'.
*    perform bdc_field       using 'BDC_CURSOR'
*                                  'EKPO-MENGE'.
*    perform bdc_field       using 'BDC_OKCODE'
*                                  '/00'.
*perform bdc_field       using 'EKPO-KNTTP'
*                              'N'.
*perform bdc_field       using 'EKPO-TXZ01'
*                              'Office Supplies'.
*perform bdc_field       using 'EKPO-MENGE'
*                              '2'.
*    perform bdc_field       using 'EKPO-SPINF'
*                                  'B'.
*    perform bdc_field       using 'EKPO-BPUMN'
*                                  '1'.
*    perform bdc_field       using 'EKPO-BPUMZ'
*                                  '1'.
*    perform bdc_field       using 'EKPO-PRSDR'
*                                  'X'.
*perform bdc_field       using 'RM06E-EEIND'
*                              '06/24/2008'.
*perform bdc_field       using 'RM06E-LPEIN'
*                              'D'.
*    perform bdc_field       using 'EKPO-WEPOS'
*                                  'X'.
*    perform bdc_field       using 'EKPO-REPOS'
*                                  'X'.
    loop at TI_STAGING where vendor = it_staging-vendor and docdate = it_staging-docdate.

      perform bdc_dynpro      using 'SAPMM06E' '0511'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=ENTE'.


      perform bdc_field       using 'EKKN-SAKTO'
                                     TI_STAGING-glaccount.
      perform bdc_field       using 'BDC_CURSOR'
                                    'DKACB-FMORE'.
      perform bdc_field       using 'DKACB-FMORE'
                                    'X'.

      perform bdc_dynpro      using 'SAPLKACB' '0002'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'COBL-VORNR'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=ENTE'.
      perform bdc_field       using 'COBL-NPLNR'
                                     TI_STAGING-networkid.
      perform bdc_field       using 'COBL-VORNR'
                                     TI_STAGING-activity.






*    perform bdc_dynpro      using 'SAPMM06E' '0120'.
*    perform bdc_field       using 'BDC_CURSOR'
*                                  'RM06E-EPSTP(02)'.
*    perform bdc_field       using 'BDC_OKCODE'
*                                  '=DETA'.
*    perform bdc_field       using 'RM06E-EBELP'
*                                  '10'.
*
*    perform bdc_dynpro      using 'SAPMM06E' '0120'.
*    perform bdc_field       using 'BDC_CURSOR'
*                                  'EKPO-WERKS(02)'.
*    perform bdc_field       using 'BDC_OKCODE'
*                                  '/00'.
*    perform bdc_field       using 'RM06E-EBELP'
*                                  '10'.
*perform bdc_field       using 'RM06E-EPSTP(02)'
*                              'd'.
*perform bdc_field       using 'EKPO-KNTTP(02)'
*                              'n'.
*perform bdc_field       using 'EKPO-TXZ01(02)'
*                              'adage artwork'.
*perform bdc_field       using 'EKPO-MENGE(02)'
*                              '                1'.
*perform bdc_field       using 'RM06E-EEIND(02)'
*                              '06242008'.
*perform bdc_field       using 'EKPO-MATKL(02)'
*                              'm1'.
*perform bdc_field       using 'EKPO-WERKS(02)'
*                              'a001'.
*    perform bdc_field       using 'BDC_OKCODE'
*                                  '/00'.
*
*
      perform bdc_dynpro      using 'SAPMM06E' '0111'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'EKPO-MENGE'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '/00'.
*    perform bdc_field       using 'EKPO-MATKL'
*                                  'M1'.
*    perform bdc_field       using 'EKPO-TXZ01'
*                                   wa_jtab-j4.
*    perform bdc_field       using 'EKPO-PRSDR'
*                                  'X'.
*    perform bdc_field       using 'RM06E-EEIND'
*                                   wa_jtab-j6.
*
*
      perform bdc_field       using 'RM06E-LPEIN'
                                    'D'.
      perform bdc_field       using 'EKPO-WEPOS'
                                    'X'.
      perform bdc_field       using 'EKPO-UEBTK'
                                    'X'.
      perform bdc_field       using 'EKPO-WEBRE'
                                    'X'.

      perform bdc_field       using 'BDC_OKCODE'
                                   '/00'.
      perform bdc_field       using 'BDC_OKCODE'
                                     '=ENTE'.



      move 1 to idx.



      perform bdc_dynpro      using 'SAPLMLSP' '0200'.

      perform bdc_field       using 'BDC_OKCODE'
                                   '/00'.
      perform bdc_field       using 'BDC_OKCODE'
                                     '=ENTE'.



      perform bdc_field       using 'BDC_OKCODE'
                                    '/00'.

      perform bdc_field       using 'RM11P-HEADTEXT'
                                      'adage'.
      perform bdc_field       using  'BDC_CURSOR' 'ESLL-TBTWR(01)'.
      perform bdc_field       using 'RM11P-NEW_ROW'
                                     '10'.


*      concatenate 'ESLL-KTEXT1(0' idx ')' into fnaml.
*      perform bdc_field       using fnaml wa_ktab-k1.
*
*      concatenate 'ESLL-MENGE(0' idx ')' into fnaml.
*      perform bdc_field       using fnaml wa_ktab-k2.
*
*      concatenate 'ESLL-MEINS(0' idx ')' into fnaml.
*      perform bdc_field       using fnaml wa_ktab-k3.
*
*      concatenate 'ESLL-TBTWR(0' idx ')' into fnaml.
*      perform bdc_field       using fnaml wa_ktab-k4.

*
*      IDX = IDX + 1.

*      loop at KT_STAGING where vendor = it_staging-vendor and docdate = it_staging-docdate and itmcategory is not initial.
        IF TI_STAGING-ITMCATEGORY IS NOT INITIAL.
        qty = ti_staging-serqty.
        gp  = ti_staging-sergrossprice.

        perform bdc_field       using 'ESLL-KTEXT1(01)' TI_STAGING-sertext.
        perform bdc_field       using 'ESLL-MENGE(01)'  qty.
        perform bdc_field       using 'ESLL-MEINS(01)'  TI_STAGING-seruom.
        perform bdc_field      using 'ESLL-TBTWR(01)'   gp.


*    endloop.

*    move 1 to cnt.
*
*    loop at KT_STAGING WHERE VENDOR = IT_STAGING-VENDOR AND DOCDATE = IT_STAGING-DOCDATE and itmcategory is not initial.

        perform bdc_dynpro      using 'SAPLMLSK' '0200'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'RM11K-VORNR(01)'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '/00'.
        perform bdc_field       using 'VRTKZ1'
                                      'X'.


*      concatenate 'ESKN-SAKTO(0' IDX ')' into fnamk.
*      perform bdc_field       using fnam wa_ktab-k5.
*
*      concatenate 'ESKN-NPLNR(0' IDX ')' into fnamk.
*      perform bdc_field       using fnam wa_ktab-k6.
*
*      concatenate 'RM11K-VORNR(0' IDX ')' into fnamk.
*      perform bdc_field       using fnam wa_ktab-k7.

*      cnt = cnt + 1.

        PERFORM BDC_FIELD USING 'ESKN-SAKTO(01)' TI_STAGING-serglaccount.
        PERFORM BDC_FIELD USING 'ESKN-NPLNR(01)' TI_STAGING-sernetwork.
        PERFORM BDC_FIELD USING 'RM11K-VORNR(01)' TI_STAGING-seractivity.


*      endloop.


      perform bdc_dynpro      using 'SAPLKACB' '0002'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'COBL-NPLNR'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=ENTE'.
      perform bdc_field       using 'COBL-NPLNR'
                                     kt_STAGING-sernetwork.
      perform bdc_field       using 'COBL-VORNR'
                                     kt_STAGING-seractivity.

      perform bdc_dynpro      using 'SAPLMLSK' '0200'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'ESLL-INTROW'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '/00'.
      perform bdc_field       using 'VRTKZ1'
                                    'X'.




    perform bdc_dynpro      using 'SAPMM06E' '0200'.
    perform bdc_field       using 'BDC_CURSOR'
                              'RM06E-EBELP'.
    perform bdc_field       using 'BDC_OKCODE'
                              '=BACK'.
    perform bdc_dynpro      using 'SAPLMLSP' '0200'.
    perform bdc_field       using 'BDC_OKCODE'
                                     '=SAV'.
  ELSE.
    perform bdc_dynpro      using 'SAPMM06E' '0100'.
    perform bdc_field       using 'BDC_OKCODE'
                                     '=SAV'.
  ENDIF.


 endloop.








*perform bdc_field       using 'RM11P-HEADTEXT'
*                              'adage artwork'.
*    perform bdc_field       using 'BDC_CURSOR'
*                                  'ESLL-KTEXT1(01)'.
*perform bdc_field       using 'RM11P-NEW_ROW'
*                              '10'.
*perform bdc_transaction using 'ME21'.

CALL TRANSACTION 'ME21' USING I_BDCDATA MODE 'A' messages into i_msg.

*clear: kt_staging,ti_staging,it_staging,i_bdcdata.

  endloop.


*
*    CALL FUNCTION 'BDC_INSERT'
*     EXPORTING
*       TCODE                  = 'ME21'
**    POST_LOCAL             = NOVBLOCAL
**    PRINTING               = NOPRINT
**    SIMUBATCH              = ' '
**    CTUPARAMS              = ' '
*      TABLES
*        DYNPROTAB              = I_BDCDATA
**  EXCEPTIONS
**    INTERNAL_ERROR         = 1
**    NOT_OPEN               = 2
**    QUEUE_ERROR            = 3
**    TCODE_INVALID          = 4
**    PRINTING_INVALID       = 5
**    POSTING_INVALID        = 6
**    OTHERS                 = 7
*              .
*    IF SY-SUBRC <> 0.
*      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*    ENDIF.


*-------------------------------------------------------------------------------------------*
*Using Call Transaction Statement Call the transaction in back ground mode/fore ground mode
*-------------------------------------------------------------------------------------------*

*
  LOOP AT I_MSG.

    CALL FUNCTION 'FORMAT_MESSAGE'
     EXPORTING
       ID              = I_MSG-MSGID
       LANG            = SY-LANGU
       NO              = I_MSG-MSGNR
       V1              = I_MSG-MSGV1
       V2              = I_MSG-MSGV2
       V3              = I_MSG-MSGV3
       V4              = I_MSG-MSGV4
     IMPORTING
       MSG             = W_STR
*  EXCEPTIONS
*    NOT_FOUND       = 1
*    OTHERS          = 2
              .
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    WRITE:/ i_msg-msgnr,w_str.




  endloop.




*
*  CALL FUNCTION 'BDC_CLOSE_GROUP'.
*** EXCEPTIONS
***   NOT_OPEN          = 1
***   QUEUE_ERROR       = 2
***   OTHERS            = 3
**            .
**  IF SY-SUBRC <> 0.
*** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
***         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
**  ENDIF.
**
**

*perform close_group.

*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR I_BDCDATA.
  I_BDCDATA-PROGRAM  = PROGRAM.
  I_BDCDATA-DYNPRO   = DYNPRO.
  I_BDCDATA-DYNBEGIN = 'X'.
  APPEND I_BDCDATA.
ENDFORM.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
*  IF FVAL <> SPACE.
  CLEAR I_BDCDATA.
  I_BDCDATA-FNAM = FNAM.
  I_BDCDATA-FVAL = FVAL.
  APPEND I_BDCDATA.
*  ENDIF.
ENDFORM.                    "BDC_FIELD

Re: Sample code for CS01 using BDC recording

Former Member — Fri, 19 Sep 2008 10:06:48 GMT

Hi Vishwa,

i m checking with ur code.It s very useful to me.

Once i got clear i come back to u.

Thanks .