user 생성 bdc 프로그램

sapjoy 2006.12.20 23:13 조회 수 : 4622 추천:32

REPORT YUSERMOD .

TABLES: USR02.
DATA: BEGIN OF BDC_TAB1 OCCURS 5.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDC_TAB1.
DATA: USER(12) VALUE 'DDDDDDDD',
      INI_PWD(8) VALUE 'INIT',
      DIALOG VALUE 'X',
      PROFILE1(12) VALUE 'SAP_ALL',
      PROFILE2(12) VALUE 'SAP_NEW',
      FULL_NAME(30) VALUE 'Full name',
      PRINT_IMMED VALUE 'X',
      PRINTER_NAME(4) VALUE 'SISK',
      PARAMETER(3) VALUE 'RID',
      PAR_VAL(18) VALUE 'YUSERADD'.

START-OF-SELECTION.

  PERFORM CREATE_USER.
  CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.
  PERFORM ADD_ADDRESS_DATA.
  CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.
  PERFORM ADD_DEFAULTS.
  CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.
  PERFORM ADD_PARAMS.
  CALL TRANSACTION 'SU01' USING BDC_TAB1 MODE 'N' UPDATE 'S'.

*---------------------------------------------------------------------*
*       FORM CREATE_USER                                              *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM CREATE_USER.

  REFRESH BDC_TAB1.
  CLEAR BDC_TAB1.
**************************************************1
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,
         USER TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/6' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************2
  MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,
        '0705' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU213-BCODE' TO BDC_TAB1-FNAM,
          INI_PWD  TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU213-BCODE2' TO BDC_TAB1-FNAM,
          INI_PWD TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU213-DIA' TO BDC_TAB1-FNAM,
          DIALOG TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU213-PROFILE(1)' TO BDC_TAB1-FNAM,
          PROFILE1 TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU213-PROFILE(2)' TO BDC_TAB1-FNAM,
          PROFILE2 TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/5' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************3
  MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,
        '701' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         'CONT' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************4
  MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,
        '702' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         'CONT' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************5
  MOVE: 'SAPLSUSB' TO BDC_TAB1-PROGRAM,
        '703' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/12' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************6
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM GENERATE_BDC_DATA_CR                                     *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM ADD_ADDRESS_DATA.

  REFRESH BDC_TAB1.
  CLEAR BDC_TAB1.
**************************************************1
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,
         USER TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/18' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************2
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '320' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'USR03-NAME1' TO BDC_TAB1-FNAM,
          FULL_NAME TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
          '/11' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '320' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
          '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************3
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM ADD_ADDRESS_DATA                                         *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM ADD_DEFAULTS.

  REFRESH BDC_TAB1.
  CLEAR BDC_TAB1.
**************************************************1
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,
         USER TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/17' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************2
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '310' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'USR01-SPLD' TO BDC_TAB1-FNAM,
          PRINTER_NAME TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU310-SPDB1' TO BDC_TAB1-FNAM,
          PRINT_IMMED TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
          '/11' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '320' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
          '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************3
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM ADD_DEFAULTS                                             *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM ADD_PARAMS.

  REFRESH BDC_TAB1.
  CLEAR BDC_TAB1.
**************************************************1
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU200-XUSER' TO BDC_TAB1-FNAM,
         USER TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/19' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************2
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '350' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU350-PARID(1)' TO BDC_TAB1-FNAM,
          PARAMETER  TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'XU350-PARVA(1)' TO BDC_TAB1-FNAM,
          PAR_VAL TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
          '/11' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '320' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
          '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
**************************************************3
  MOVE: 'SAPMS01J' TO BDC_TAB1-PROGRAM,
        '200' TO BDC_TAB1-DYNPRO,
        'X' TO BDC_TAB1-DYNBEGIN.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
  MOVE: 'BDC_OKCODE' TO BDC_TAB1-FNAM,
         '/3' TO BDC_TAB1-FVAL.
  APPEND BDC_TAB1.CLEAR BDC_TAB1.
ENDFORM.

이 게시물을

수정 삭제 목록

체인지

2007.11.20 20:49

좋은 자료 감사합니다^^

댓글 수정 삭제
희망사항

2008.02.27 23:19

전 syntax 체크는 이상이 없는데... 실행이 안되네요...???

댓글 수정 삭제
indianhead

2009.12.23 22:06

오... 필요했습니다~

댓글 수정 삭제
Top쵸파

2011.11.11 02:33

감사합니다.

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
48	진행상황 보여주기(PROGRESS BAR) [2]	sapjoy	2006.12.22	6152
47	운영서버 프로그램 소스를 직접 변경하는 프로그램 [6]	sapjoy	2006.12.21	8687
46	CBO 테이블 데이터 UPLOAD 프로그램 [5]	sapjoy	2006.12.21	7970
45	Difference Between User Exits, Screen Exits and Field Exits [1]	sapjoy	2006.12.21	3929
44	ABAP/4 Development Code Efficiency Guidelines [1]	sapjoy	2006.12.21	6002
43	SAMPLE OLE 프로그램 [2]	sapjoy	2006.12.20	6114
42	T-CODE 별 USER EXTI 찾는 프로그램 [15]	sapjoy	2006.12.20	5407
41	Lock/Unlock the ABAP Editor Lock Field [1]	sapjoy	2006.12.20	3906
40	PDF 변환 소스 [5]	sapjoy	2006.12.20	5497
39	유용한 System 관리자 Transactions [5]	sapjoy	2006.12.20	5588
38	CT ABAP EDITOR소개 [1]	sapjoy	2006.12.20	3444
»	user 생성 bdc 프로그램 [4]	sapjoy	2006.12.20	4622
36	Convert any internal table to a comma separated file [1]	sapjoy	2006.12.20	4476
35	ftp [3]	sapjoy	2006.12.20	4387
34	Lock objects [3]	sapjoy	2006.12.20	4071
33	ALPHA Conversion [4]	sapjoy	2006.12.19	5428
32	Difference Between Select-Options & Ranges [3]	sapjoy	2006.12.19	6106
31	TABLE, DEIVERY CLASS 정보 테이블 [1]	sapjoy	2006.12.14	3985
30	[re] TABLE, DEIVERY CLASS 정보 테이블	궁그미	2008.09.02	4188
29	SAP Service Marketplace, SDN에 클릭한번으로 로그인 하는 방법 [1]	sapjoy	2006.12.14	4207

쓰기 태그

첫 페이지 19 20 21 22 23 24 25 26 27 28 끝 페이지

SAP 한국 커뮤니티

로그인

user 생성 bdc 프로그램

댓글 4

체인지

희망사항

indianhead

Top쵸파