topic Re: Sample BDC pgm in Application Development and Automation Discussions

Sample BDC pgm

Former Member — Tue, 20 Nov 2007 12:30:15 GMT

Hi all,

Can u please provide a sample BDC program where the selection screen is not used and is used for call transaction. Thanks

Re: Sample BDC pgm

Former Member — Tue, 20 Nov 2007 12:33:16 GMT

hi,

here both the method

REPORT zbdc_prds

NO STANDARD PAGE HEADING LINE-SIZE 255.

*INCLUDE bdcrecx1.

***************************************************************************************************

Call Transaction Method--

***************************************************************************************************

PARAMETERS: p_file TYPE rlgrap-filename.

DATA : BEGIN OF record OCCURS 0,

matnr_001(018),

maktx_003(040),

END OF record.

DATA : bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

file_name = p_file.

START-OF-SELECTION.

PERFORM data_upload.

PERFORM bdcdata.

CALL TRANSACTION 'MM02' USING bdcdata MODE 'A' UPDATE 'A'.

&----

*& Form data_upload

&----

text

----

FORM data_upload.

DATA : flnam TYPE string.

flnam = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = flnam

filetype = 'ASC'

has_field_separator = 'X'

TABLES

data_tab = record

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.

ENDFORM. "data_upload

&----

*& Form bdcdata

&----

text

----

FORM bdcdata.

LOOP AT record.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1-MATNR'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=AUSW'.

PERFORM bdc_field USING 'RMMG1-MATNR'

record-matnr_001.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=BU'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MAKT-MAKTX'.

PERFORM bdc_field USING 'MAKT-MAKTX'

record-maktx_003.

ENDLOOP.

ENDFORM. "bdcdata

----

Start new screen *

----

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. "BDC_DYNPRO

----

Insert field *

----

FORM bdc_field USING fnam fval.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

ENDFORM. "BDC_FIELD

***************************************************************************************************

Session Method--

***************************************************************************************************

*DATA : BEGIN OF record OCCURS 0,

matnr_001(018),
maktx_003(040),
END OF record.

*DATA : bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

*PARAMETER : p_file TYPE rlgrap-filename.

*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = p_file.

*START-OF-SELECTION.

PERFORM upload_file.
PERFORM open_group.
PERFORM bdcdata.
PERFORM close_group.

*&----

**& Form upload_file

*&----

text

*----

*FORM upload_file.

DATA : loc_fil TYPE string.

loc_fil = p_file.

CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = loc_fil
filetype = 'ASC'
has_field_separator = 'X'
TABLES
data_tab = record
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.

*ENDFORM. "upload_file

*&----

**& Form open_group

*&----

text

*----

*FORM open_group.

CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
client = sy-mandt
group = 'ZTEST_DS'
keep = 'X'
user = sy-uname
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.

*ENDFORM. "open_group

*&----

**& Form bdcdata

*&----

text

*----

*FORM bdcdata.

LOOP AT record.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RMMG1-MATNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=AUSW'.
PERFORM bdc_field USING 'RMMG1-MATNR'
record-matnr_001.
PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX'
record-maktx_003.
PERFORM bdc_insert.

ENDLOOP.

*ENDFORM. "bdcdata

*&----

**& Form close_group

*&----

text

*----

*FORM close_group.

CALL FUNCTION 'BDC_CLOSE_GROUP'.
CALL TRANSACTION 'SM35'.

*ENDFORM. "close_group

*----

Start new screen *

*----

*FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.

*ENDFORM. "BDC_DYNPRO

*----

Insert field *

*----

*FORM bdc_field USING fnam fval.

CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.

*ENDFORM. "BDC_FIELD

*&----

**& Form bdc_insert

*&----

text

*----

*FORM bdc_insert.

CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = 'MM02'
TABLES
dynprotab = bdcdata.

*ENDFORM. "bdc_insert

Re: Sample BDC pgm

Former Member — Tue, 20 Nov 2007 12:37:07 GMT

*ASSIGNMENT – READING DATA FROM NOTE PAD INTO ITAB THEN INTO APPLICATION SERVER & DISPLAYING THE SAME IN TH ALV GRID DISPLAY.

USING SPLIT.

TYPE-POOLS SLIS.

DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV.

DATA: WA_FIELDCATALOG TYPE SLIS_FIELDCAT_ALV.

DATA: BEGIN OF I_VBAK OCCURS 0.

DATA: MANDT LIKE VBAK-MANDT,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

ERZET LIKE VBAK-ERZET,

ERNAM LIKE VBAK-ERNAM,

ANGDT LIKE VBAK-ANGDT,

END OF I_VBAK.

DATA: BEGIN OF ITAB OCCURS 0,

DATA TYPE STRING,

END OF ITAB.

DATA: FILE TYPE STRING .

*DATA DATA TYPE STRING.

START-OF-SELECTION.

FILE = 'C:\Documents and Settings\ams03\Desktop\NOTE.TXT'.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = FILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = ITAB

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.

LOOP AT ITAB.

SPLIT ITAB-DATA AT ',' INTO I_VBAK-MANDT I_VBAK-VBELN I_VBAK-ERDAT I_VBAK-ERZET I_VBAK-ERNAM I_VBAK-ANGDT.

APPEND I_VBAK.

CLEAR I_VBAK.

ENDLOOP.

*--OPEN DATASET.

OPEN DATASET 'ZDANTEST' FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF SY-SUBRC NE 0 .

EXIT.

ENDIF.

IF SY-SUBRC EQ 0.

LOOP AT I_VBAK.

TRANSFER I_VBAK TO 'ZDANTEST'.

ENDLOOP.

*--CLOSE DATASET.

CLOSE DATASET 'ZDANTEST'.

WRITE : / 'FILE SUCCESSFULLY CREATED IN APPLICATION SERVER.'.

ENDIF.

*SPLIT NAMES AT ',' INTO ONE TWO THREE.

LOOP AT I_VBAK.

WRITE : / I_VBAK-MANDT, I_VBAK-VBELN, I_VBAK-ERDAT,

I_VBAK-ERZET, I_VBAK-ERNAM,I_VBAK-ANGDT.

ENDLOOP.

INCLUDE ZFIELDCATLOG.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = FIELDCATALOG

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = I_VBAK

EXCEPTIONS
PROGRAM_ERROR = 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.

INCLUDE PROGRAM

&----

*& Include ZFIELDCATLOG *

&----

WA_FIELDCATALOG-FIELDNAME = 'MANDT'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.