Session method

Former Member — Sat, 21 Apr 2007 04:46:08 GMT

HI without going into the SM35 how to run session method ?

Re: Session method

Former Member — Sat, 21 Apr 2007 05:49:54 GMT

hi,

u can exe the prog which run this session try out like that way i am not sure abt that ust a guess..u can find the pgm name by going to sm35 and there is some part in bottom right part when u click ther it wil display u the name of the pgm which it is using,....

ravi

Re: Session method

Former Member — Sat, 21 Apr 2007 05:52:00 GMT

HI,

use SUBMIT RSBDCSUB VIA SELECTION-SCREEN. after bdc_close_group

also check this program,very useful.

report ZBHBDC_DIRECT no standard page heading line-size 255.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE RF02K-LIFNR,

EKORG LIKE RF02K-EKORG,

KTOKK LIKE RF02K-KTOKK,

NAME1 LIKE LFA1-NAME1,

SORTL LIKE LFA1-SORTL,

LAND1 LIKE LFA1-LAND1,

WAERS LIKE LFM1-WAERS,

INCO1 LIKE LFM1-INCO1,

INCO2 LIKE LFM1-INCO2,

END OF ITAB.

DATA:BDCTAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA:X,Y,N TYPE I.

N = 0.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'C:/BHARAT/VEND.TXT'

FILETYPE = 'ASC'

TABLES

DATA_TAB = ITAB.

LOOP AT ITAB.

N = N + 1.

ENDLOOP.

X = N / 2.

Y = X + 1.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = 'SESSION'

HOLDDATE = SY-DATUM

KEEP = 'X'

USER = SY-UNAME.

LOOP AT ITAB FROM 1 TO X.

REFRESH BDCTAB.

perform bdc_dynpro using 'SAPMF02K' '0107'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-LIFNR'.

perform bdc_field using 'RF02K-LIFNR'

ITAB-LIFNR.

perform bdc_field using 'RF02K-EKORG'

ITAB-EKORG.

perform bdc_field using 'RF02K-KTOKK'

ITAB-KTOKK.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-NAME1'.

perform bdc_field using 'LFA1-NAME1'

ITAB-NAME1.

perform bdc_field using 'LFA1-SORTL'

ITAB-SORTL.

perform bdc_field using 'LFA1-LAND1'

ITAB-LAND1.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0120'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-KUNNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0310'.

perform bdc_field using 'BDC_CURSOR'

'LFM1-WAERS'.

perform bdc_field using 'LFM1-WAERS'

ITAB-WAERS.

perform bdc_field using 'LFM1-INCO1'

ITAB-INCO1.

perform bdc_field using 'LFM1-INCO2'

ITAB-INCO2.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0320'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-LIFNR'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MK01'

TABLES

DYNPROTAB = BDCTAB.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = 'DIRECT'

KEEP = 'X'

USER = SY-UNAME.

LOOP AT ITAB FROM Y TO N.

REFRESH BDCTAB.

perform bdc_dynpro using 'SAPMF02K' '0107'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-LIFNR'.

perform bdc_field using 'RF02K-LIFNR'

ITAB-LIFNR.

perform bdc_field using 'RF02K-EKORG'

ITAB-EKORG.

perform bdc_field using 'RF02K-KTOKK'

ITAB-KTOKK.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-NAME1'.

perform bdc_field using 'LFA1-NAME1'

ITAB-NAME1.

perform bdc_field using 'LFA1-SORTL'

ITAB-SORTL.

perform bdc_field using 'LFA1-LAND1'

ITAB-LAND1.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0120'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-KUNNR'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0310'.

perform bdc_field using 'BDC_CURSOR'

'LFM1-WAERS'.

perform bdc_field using 'LFM1-WAERS'

ITAB-WAERS.

perform bdc_field using 'LFM1-INCO1'

ITAB-INCO1.

perform bdc_field using 'LFM1-INCO2'

ITAB-INCO2.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_dynpro using 'SAPMF02K' '0320'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-LIFNR'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_dynpro using 'SAPLSPO1' '0300'.

perform bdc_field using 'BDC_OKCODE'

'=YES'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MK01'

TABLES

DYNPROTAB = BDCTAB.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

SUBMIT RSBDCSUB VIA SELECTION-SCREEN.

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCTAB.

BDCTAB-PROGRAM = PROGRAM.

BDCTAB-DYNPRO = DYNPRO.

BDCTAB-DYNBEGIN = 'X'.

APPEND BDCTAB.

ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.

CLEAR BDCTAB.

BDCTAB-FNAM = FNAM.

BDCTAB-FVAL = FVAL.

APPEND BDCTAB.

ENDFORM.

rgds,

bharat.

topic Session method in Application Development and Automation Discussions

Session method

Re: Session method

Re: Session method