user 생성 bdc 프로그램

sapjoy 2006.12.20 14:13 조회 수 : 4610 추천: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 11:49

좋은 자료 감사합니다^^

댓글 수정 삭제
희망사항

2008.02.27 14:19

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

댓글 수정 삭제
indianhead

2009.12.23 13:06

오... 필요했습니다~

댓글 수정 삭제
Top쵸파

2011.11.10 17:33

감사합니다.

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
547	ABAP TUNNING	sapjoy	2012.03.12	234722
546	New function vs Old function(obsolete)	sapjoy	2014.03.31	127544
545	테이블Active시 (Warnings Occurred During Activation) 안나오게하는방법 [6]	양키	2012.03.29	99695
544	자주 사용하는 String 조작 명령어 [7]	양키(이경환)	2015.01.13	34619
543	collect 구문 [4]	sapjoy	2006.12.03	27028
542	사용자 패스워드 변경 함수, 창 [11]	sapjoy	2009.12.21	25767
541	R/3 용어 정의 Definitions [4]	sapjoy	2007.01.23	23898
540	BAPI_PR_CREATE 구매요청 생성시에 사용하세요 [2]	노름마치	2007.12.10	23697
539	SELECT statement	D.Y.Kim	2007.07.20	23646
538	문자열에 있는 값이 숫자만으로 되어있는지 문자가 포함됐는지 체크하는 함수 [3]	꿀단지	2011.10.11	19875
537	LIKE와 TYPE의 차이 [13]	sapjoy	2006.12.06	19702
536	숫자입력 체크(Numeric character check) [1]	양키(이경환)	2014.01.28	19580
535	SDN -> SCN 변경되면서 Contents별로 바뀐 LINK 모음 [13]	Wise 멘토	2012.07.06	19045
534	ABAP 핵심정리 [23]	SARA	2007.03.14	17332
533	ALV LIST 진행시 LAYOUT 속성값 [18]	kwon09	2007.04.11	17299
532	ABAP 구문 총정리 [39]	Wise 멘토	2008.11.24	17152
531	인터널 테이블 라인수 lines [8]	sapjoy	2014.01.20	17101
530	FOR ALL ENTRIES IN 구문 사용시 select 필드 선택시 주의사항. [7]	나침반친구	2007.03.13	16972
529	SYST 시스템 변수 정리 [5]	아밥뽀	2014.08.23	16919
528	프로그램 정보(프로그램 리스트, PROGRAM LIST, PROGRAM TABLE) [3]	sapjoy	2007.02.23	16720

쓰기 태그

첫 페이지 1 2 3 4 5 6 7 8 9 10 끝 페이지

SAP 한국 커뮤니티

로그인

user 생성 bdc 프로그램

댓글 4

체인지

희망사항

indianhead

Top쵸파