Skip to Content
0
Former Member
Feb 29, 2008 at 03:11 PM

bdc_open_group invalid user name error

1054 Views

hai ,

the given below is my bdc programming. while am executing(F8) these program it depicts the message in one dilaog box like as bdc_open_group , user name is invalid. or say this program is correct or not.

if any error .recover it

plz resolve this problem.

REPORT YSUSBDC5.

DATA: BDC_TAB LIKE BDCDATA OCCURS 6 WITH HEADER LINE.

START-OF-SELECTION.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

  • DEST = FILLER8

GROUP = 'SURENDER'

  • HOLDDATE = FILLER8

  • KEEP = FILLER1

  • USER = FILLER12

  • RECORD = FILLER1

PROG = SY-CPROG.

  • 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.

PERFORM FILL_BDC_TAB.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'FK02'

  • POST_LOCAL = NOVBLOCAL

  • PRINTING = NOPRINT

  • SIMUBATCH = ' '

  • CTUPARAMS = ' '

TABLES

DYNPROTAB = BDC_TAB.

  • 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.

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.

FORM FILL_BDC_TAB.

REFRESH BDC_TAB.

PERFORM POPULATE_BDC_TAB USING:

'1' 'SAPMF02K' '0106',

' ' 'RF02K-LIFNR' 'SUREN',

' ' 'RF02K_D0110' 'X',

'1' 'SAPMF02K' '0111',

' ' 'LFA1-NAME1' 'SURENDER',

' ' 'LFA1-STRAS' '69 abass ali',

' ' 'SZA1_D0100-SMTP_ADDR' 'SUREN_ACCET@EXCITE.COM'.

ENDFORM.

FORM POPULATE_BDC_TAB USING FLAG VAR1 VAR2.

CLEAR BDC_TAB.

IF FLAG = '1'.

BDC_TAB-PROGRAM = VAR1.

BDC_TAB-DYNPRO = VAR2.

BDC_TAB-DYNBEGIN = 'X'.

ELSE.

BDC_TAB-FNAM = VAR1.

BDC_TAB-FVAL = VAR2.

ENDIF.

APPEND BDC_TAB.

ENDFORM.

regards

SURENDER