topic Re: bdc in Application Development and Automation Discussions

bdc

Former Member — Tue, 06 Mar 2007 11:54:20 GMT

any body can plz execute this program and tell me the changes to be done and plz send me the code for this

ZKA_SCREENPAINTER program

plz tell me everything in detail

REPORT ZKA_BDC .

TABLES: ZKA_EMP.

DATA: ITAB LIKE ZKA_EMP OCCURS 0 WITH HEADER LINE.

DATA: BDCITAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: ITAB_COMMA LIKE ITAB OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'UPLOAD'

EXPORTING

CODEPAGE = ' '

FILENAME = ' '

FILETYPE = ' '

ITEM = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
LINE_EXIT = ' '
USER_FORM = ' '
USER_PROG = ' '
SILENT = 'S'
IMPORTING
FILESIZE =
CANCEL =
ACT_FILENAME =
ACT_FILETYPE =

TABLES

DATA_TAB = ITAB

EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 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.

LOOP AT ITAB.

WRITE:/ ITAB.

ENDLOOP.

LOOP AT ITAB.

SPLIT ITAB AT ',' INTO

ITAB_COMMA-EMPNO

ITAB_COMMA-EMPNAME

ITAB_COMMA-EMPPHONE

ITAB_COMMA-EMPID.

APPEND ITAB_COMMA.

CLEAR ITAB_COMMA.

ENDLOOP.

LOOP AT ITAB_COMMA.

BDCITAB-PROGRAM = 'ZKA_SCREENPAINTER'.

BDCITAB-DYNPRO = '0001'.

BDCITAB-DYNBEGIN = 'X'.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPNO'.

BDCITAB-FVAL = ITAB_COMMA-EMPNO.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPNAME'.

BDCITAB-FVAL = ITAB_COMMA-EMPNAME.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPPHONE'.

BDCITAB-FVAL = ITAB_COMMA-EMPPHONE.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPID'.

BDCITAB-FVAL = ITAB_COMMA-EMPID.

APPEND BDCITAB.

CLEAR BDCITAB.

ENDLOOP.

CALL TRANSACTION 'ZKA_TRNEMP' USING BDCITAB MODE 'A'.

Re: bdc

Former Member — Tue, 06 Mar 2007 12:06:25 GMT

Are you: -

Mad

Lazy

Useless

Please select any or all of the above.

Re: bdc

Former Member — Tue, 06 Mar 2007 12:06:59 GMT

hi,

In your program everything looks good. but u r not mentioning the File name and file type in 'UPLOAD' Function module.. File type should be 'ASC' or 'BIN' depends on your requirement and uncomment the Exceptions.

Re: bdc

Former Member — Tue, 06 Mar 2007 12:11:41 GMT

LOOP AT ITAB.

WRITE:/ ITAB.

ENDLOOP.

this piece of code is waste,what do you want to do with this?to print the value of an itab you should write its fields

Re: bdc

Former Member — Tue, 06 Mar 2007 12:13:17 GMT

Hi,

Seems u r new to sap. U need to remove the comments on the required places in order to execute the program.

Below is your modified code.

REPORT ZKA_BDC .

TABLES: ZKA_EMP.

DATA: ITAB LIKE ZKA_EMP OCCURS 0 WITH HEADER LINE.

DATA: BDCITAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: ITAB_COMMA LIKE ITAB OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'UPLOAD'

EXPORTING

CODEPAGE = ' '

FILENAME = ' ' “Specify a path for the file .

FILETYPE = ' ' “ specify the file type such as Asc, Txt, etc.

ITEM = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
LINE_EXIT = ' '
USER_FORM = ' '
USER_PROG = ' '
SILENT = 'S'
IMPORTING
FILESIZE =
CANCEL =
ACT_FILENAME =
ACT_FILETYPE =

TABLES

DATA_TAB = ITAB

EXCEPTIONS “ Provide any exceptions if required as per the program and requirement
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 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.

LOOP AT ITAB.

WRITE:/ ITAB.

ENDLOOP.

LOOP AT ITAB.

SPLIT ITAB AT ',' INTO

ITAB_COMMA-EMPNO

ITAB_COMMA-EMPNAME

ITAB_COMMA-EMPPHONE

ITAB_COMMA-EMPID.

APPEND ITAB_COMMA.

CLEAR ITAB_COMMA.

ENDLOOP.

LOOP AT ITAB_COMMA.

BDCITAB-PROGRAM = 'ZKA_SCREENPAINTER'.

BDCITAB-DYNPRO = '0001'.

BDCITAB-DYNBEGIN = 'X'.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPNO'.

BDCITAB-FVAL = ITAB_COMMA-EMPNO.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPNAME'.

BDCITAB-FVAL = ITAB_COMMA-EMPNAME.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPPHONE'.

BDCITAB-FVAL = ITAB_COMMA-EMPPHONE.

APPEND BDCITAB.

CLEAR BDCITAB.

BDCITAB-FNAM = 'ZKA_EMP-EMPID'.

BDCITAB-FVAL = ITAB_COMMA-EMPID.

APPEND BDCITAB.

CLEAR BDCITAB.

ENDLOOP.

CALL TRANSACTION 'ZKA_TRNEMP' USING BDCITAB MODE 'A'.

Hope this is Helpful to resolve ur problem.

Reward if ur problem is solved and also close the thread if solved.

Regards.

Re: bdc

Former Member — Fri, 25 May 2007 13:54:44 GMT

Are you really nuts or are you doing this just to annoy people?