SESSION method

[Former Member]

hi can any one give me the BDC of session methos with screen shorts

r any web site for session method

[Former Member]

hi,

go through the below link you will get complete guide regarding BDC.

http://www.sapbrainsonline.com/TUTORIALS/TECHNICAL/BDC_tutorial.html

Regards

Suprith

[Former Member]

hi

&----

---

& Include MZSANKET_BDC_1TOP Module poo

*& *

&----

---

PROGRAM SAPMZSANKET_BDC_1 .

TABLES: VBAK,VBAP,VBKD.

DATA: F_PLANT TYPE RV45A-DWERK,

L_QUANT(6).

DATA: T_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: T_MSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

DATA: OK_CODE TYPE SY-DYNNR.

DATA: BEGIN OF T_DATA OCCURS 0,

LINE(225),

END OF T_DATA.

DATA: SCR TYPE SY-DYNNR VALUE '0110'.

&----

---

*& Module STATUS_0100 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'SANKET'.

SET TITLEBAR 'MAIN'.

ENDMODULE. " STATUS_0100 OUTPUT

MODULE USER_COMMAND_0100 INPUT.

DATA: L_DATE(10).

CASE OK_CODE.

WHEN 'CREA'.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = '
vikalp-020\Shared\SANKET\ZTEST.TXT'

FILETYPE = 'ASC'

TABLES

DATA_TAB = T_DATA

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.

LOOP AT T_DATA.

SPLIT T_DATA-LINE AT SPACE INTO

VBAK-AUART VBAK-VKORG VBAK-VTWEG

VBAK-SPART VBAK-KUNNR F_PLANT VBKD-BSTKD L_DATE VBAP-MATNR L_QUANT.

PERFORM BDC_DYNPRO USING 'SAPMV45A' '0101'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'VBAK-AUART'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'VBAK-AUART'

VBAK-AUART.

PERFORM BDC_FIELD USING 'VBAK-VKORG'

VBAK-VKORG.

PERFORM BDC_FIELD USING 'VBAK-VTWEG'

VBAK-VTWEG.

PERFORM BDC_FIELD USING 'VBAK-SPART'

VBAK-SPART.

PERFORM BDC_DYNPRO USING 'SAPMV45A' '4001'.

PERFORM BDC_FIELD USING 'VBKD-BSTKD'

VBKD-BSTKD.

PERFORM BDC_FIELD USING 'VBKD-BSTDK'

L_DATE.

*.................

PERFORM BDC_FIELD USING 'KUAGV-KUNNR'

'3002'.

PERFORM BDC_FIELD USING 'KUWEV-KUNNR'

'3002'.

*..........

PERFORM BDC_FIELD USING 'RV45A-DWERK'

F_PLANT.

PERFORM BDC_FIELD USING 'RV45A-DWERK'

F_PLANT.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'RV45A-MABNR(01)'.

PERFORM BDC_FIELD USING 'RV45A-MABNR(01)'

'MAT1'.

PERFORM BDC_FIELD USING 'RV45A-KWMENG(01)'

L_QUANT.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_DYNPRO USING 'SAPMV45A' '4001'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=SICH'.

CALL TRANSACTION 'VA01' USING T_BDCDATA

MODE 'E'

UPDATE 'A'

MESSAGES INTO T_MSG.

ENDLOOP.

WHEN 'EXIT'.

LEAVE TO SCREEN 0110.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

if helpful reward points.