Willkommen Gast! Um alle Funktionen zu aktivieren müssen Sie sich Anmelden oder Registrieren.

Mitteilung

Icon
Error

Optionen
Gehe zum aktuellsten Beitrag Gehe zum letzten Ungelesenen
Offline dpiacun  
#1 Geschrieben : Dienstag, 12. März 2019 14:48:19(UTC)
dpiacun

Beiträge: 2
Austria
Wohnort: Wien
Hallo zusammen,

mich würde es interessieren, ob es eine nicht manuelle Möglichkeit gibt, die bestehenden User aus einem SAP System in das andere zu verteilen, jedoch OHNE Rollen?Confused

Vielen Dank,

Lg

Bearbeitet vom Benutzer Dienstag, 12. März 2019 14:51:30(UTC)  | Grund: Nicht angegeben

Nehmen Sie an dieser Diskussion teil! SAP FORUM - SAP Community LoginHier registrieren.

Offline SanduhrAnzeigeProgramm  
#2 Geschrieben : Dienstag, 12. März 2019 15:56:55(UTC)
SanduhrAnzeigeProgramm

Beiträge: 944
Eine Möglichkeit wäre SCC8 mit Profil SAP_UONL
"Wenn man keine Ahnung hat: Einfach mal Fresse halten"
(Dieter Nuhr)
Offline Tron  
#3 Geschrieben : Sonntag, 7. April 2019 07:25:06(UTC)
Tron

Beiträge: 82
Moin.
Einen elgante Methode zum User kopieren/Ändern/Anlegen bieten eingentlich nur die BAPI Funktionsbausteine:
BAPI_USER_CREATE1
BAPI_USER_GETDETAIL
BAPI_USER_CHANGE
Man kann genau bestimmen, welche User kopiert werden sollen und das Ganze als Job laufen lassen.
Rollen kopieren ginge dann separat mit BAPI_USER_ACTGROUPS_ASSIGN.

Beispiel USER COPY System A nach System B per RFC ohne Rollen.
Code:
*&---------------------------------------------------------------------*
*& Report  ZCOPY_USER
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zcopy_user2.
TABLES: sscrfields,usr02.

TYPE-POOLS: icon.
* Info Destinationen
DATA: des1_info TYPE rfcsi,
      des2_info TYPE rfcsi.

START-OF-SELECTION.
  SELECTION-SCREEN FUNCTION KEY 1.

  SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-001.
  PARAMETERS p_des1 TYPE rfcdes-rfcdest OBLIGATORY DEFAULT 'NONE'.
  SELECTION-SCREEN END OF BLOCK b.

  SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-002.
  PARAMETERS p_des2 TYPE rfcdes-rfcdest OBLIGATORY DEFAULT 'NONE'.
  SELECTION-SCREEN END OF BLOCK a.

  SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-003.
  PARAMETERS password TYPE bapipwd OBLIGATORY LOWER CASE DEFAULT 'Berlin4$'.
  SELECT-OPTIONS bname FOR usr02-bname NO INTERVALS.
  SELECTION-SCREEN END OF BLOCK c.


END-OF-SELECTION.

  CALL FUNCTION 'Y_BAL_LOG'
    EXPORTING
      i_display             = ' '
      i_refresh             = 'X'
      i_repid               = sy-repid
    EXCEPTIONS
      error_create          = 1
      error_add_message     = 2
      error_refresh         = 3
      error_display_profile = 4
      error_display         = 5
      OTHERS                = 6.

  LOOP AT bname.
    PERFORM copy_user USING bname-low.
  ENDLOOP.

  CALL FUNCTION 'Y_BAL_LOG'
    EXPORTING
      i_display             = 'X'
      i_refresh             = 'X'
      i_repid               = sy-repid
    EXCEPTIONS
      error_create          = 1
      error_add_message     = 2
      error_refresh         = 3
      error_display_profile = 4
      error_display         = 5
      OTHERS                = 6.

  EXIT.
*  PERFORM check_avail.

**&---------------------------------------------------------------------*
**&      Form  Check_avail
**&---------------------------------------------------------------------*
**       text
**----------------------------------------------------------------------*
**      -->DEST       text
**----------------------------------------------------------------------*
*FORM check_avail.
*  DATA:
*"  info LIKE rfcsi,
*  msg_text(80) TYPE c. "Message text
*
*  CALL FUNCTION 'RFC_SYSTEM_INFO'
*    DESTINATION p_des1
*    IMPORTING
*      rfcsi_export          = des1_info
*    EXCEPTIONS
*      communication_failure = 1  MESSAGE msg_text
*      system_failure        = 2  MESSAGE msg_text.
*
*  CALL FUNCTION 'RFC_SYSTEM_INFO'
*    DESTINATION p_des2
*    IMPORTING
*      rfcsi_export          = des2_info
*    EXCEPTIONS
*      communication_failure = 1  MESSAGE msg_text
*      system_failure        = 2  MESSAGE msg_text.
*
*ENDFORM.                    "Check_avail
*&---------------------------------------------------------------------*
*&      Form  write_for_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM write_for_display.
  DATA: t1(80),t2(80).
  DATA: info LIKE rfcsi,
        msg_text(80) TYPE c. "Message text

  FORMAT COLOR COL_HEADING.
  WRITE: / '*** STATUS RFC-Erreichbarkeit ***' , AT sy-linsz space.
  ULINE.
  FORMAT COLOR OFF.

  CLEAR msg_text.
  CALL FUNCTION 'RFC_PING'
    DESTINATION p_des2
    EXCEPTIONS
      communication_failure = 1  MESSAGE msg_text
      system_failure        = 2  MESSAGE msg_text.


  t1 = p_des2.
  CONDENSE t1.

  IF msg_text IS INITIAL.
    CONCATENATE 'Destination :' t1 'erreichbar.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: / icon_led_green AS ICON,
                t2 COLOR COL_POSITIVE.

  ELSE.
    CONCATENATE 'Destination :' t1 'nicht erreichbar.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: /      icon_led_red AS ICON,
                  t2 COLOR COL_NEGATIVE.

  ENDIF.

  CLEAR msg_text.
  CALL FUNCTION 'RFC_PING'
    DESTINATION p_des1
    EXCEPTIONS
      communication_failure = 1  MESSAGE msg_text
      system_failure        = 2  MESSAGE msg_text.


  t1 = p_des1.
  CONDENSE t1.

  IF msg_text IS INITIAL.
    CONCATENATE 'Destination :' t1 'erreichbar.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: / icon_led_green AS ICON,
                t2 COLOR COL_POSITIVE.

  ELSE.
    CONCATENATE 'Destination :' t1 'nicht erreichbar.' INTO t2 SEPARATED BY space.
    FORMAT INTENSIFIED OFF.

    WRITE: /      icon_led_red AS ICON,
                  t2 COLOR COL_NEGATIVE.

  ENDIF.

ENDFORM.                    "write_for_display


INITIALIZATION.

  sscrfields-functxt_01 = '@38@ Check RFC-Desitinations'.

AT SELECTION-SCREEN.
  IF sy-ucomm = 'FC01'." n = 1 up to 5
* Teste Erreichbarkeit

    PERFORM write_for_display.

    CALL FUNCTION 'C14A_POPUP_LIST_DISPLAY'
      EXPORTING
        i_callback                    = 'WRITE_FOR_DISPLAY'
        i_callback_program            = sy-repid
        i_title                       = 'RFC-Verbindungen'
        i_col                         = 4
        i_row                         = 4
        i_width                       = 84
        i_height                      = 10
*   I_TEXT_WIDTH                  =
*   I_FLG_SHOW_PRINT_BUTTON       = ESP1_FALSE
     EXCEPTIONS
       no_callback_specified         = 1
       OTHERS                        = 2.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDIF.


*&---------------------------------------------------------------------*
*&      Form  copy_user
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM copy_user USING uname TYPE usr02-bname.
  DATA  msg_text(80) TYPE c. "Message text
  DATA  dummy(80) TYPE c. "Message text

* Input
  DATA username TYPE bapibname-bapibname.

* Output
  DATA:
  logondata LIKE bapilogond,
  defaults LIKE	bapidefaul,
  address LIKE bapiaddr3,
  company LIKE bapiuscomp,
  snc LIKE bapisncu,
  ref_user LIKE bapirefus,
  alias LIKE bapialias,
  uclass TYPE bapiuclass,
  lastmodified TYPE bapimoddat,
  islocked TYPE bapislockd.

*Tables
  DATA:
  parameter TYPE TABLE OF bapiparam,
  profiles TYPE TABLE OF bapiprof,
  activitygroups TYPE TABLE OF bapiagr,
  return TYPE TABLE OF bapiret2,
  addtel TYPE TABLE OF bapiadtel,
  addfax TYPE TABLE OF bapiadfax,
  addttx TYPE TABLE OF bapiadttx,
  addtlx TYPE TABLE OF bapiadtlx,
  addsmtp TYPE TABLE OF bapiadsmtp,
  addrml TYPE TABLE OF bapiadrml,
  addx400 TYPE TABLE OF bapiadx400,
  addrfc TYPE TABLE OF bapiadrfc,
  addprt TYPE TABLE OF bapiadprt,
  addssf TYPE TABLE OF bapiadssf,
  adduri TYPE TABLE OF bapiaduri,
  addpag TYPE TABLE OF bapiadpag,
  addcomrem TYPE TABLE OF bapicomrem,
  parameter1 TYPE TABLE OF bapiparam1,
  groups TYPE TABLE OF bapigroups,
  uclasssys TYPE TABLE OF bapiuclasssys,
  extidhead TYPE TABLE OF bapiusextidhead,
  extidpart TYPE TABLE OF bapiusextidpart,
  systems TYPE TABLE OF bapircvsys.

* RC
  DATA lret1 TYPE bapiret2.

  username = uname.

  CALL FUNCTION 'BAPI_USER_GET_DETAIL' DESTINATION p_des2
    EXPORTING
      username             = username
*       CACHE_RESULTS        = 'X'
   IMPORTING
     logondata            = logondata
     defaults             = defaults
     address              = address
     company              = company
     snc                  = snc
     ref_user             = ref_user
     alias                = alias
     uclass               = uclass
     lastmodified         = lastmodified
     islocked             = islocked
    TABLES
     parameter            = parameter
     profiles             = profiles
     activitygroups       = activitygroups
     return               = return
     addtel               = addtel
     addfax               = addfax
     addttx               = addttx
     addtlx               = addtlx
     addsmtp              = addsmtp
     addrml               = addrml
     addx400              = addx400
     addrfc               = addrfc
     addprt               = addprt
     addssf               = addssf
     adduri               = adduri
     addpag               = addpag
     addcomrem            = addcomrem
     parameter1           = parameter1
     groups               = groups
     uclasssys            = uclasssys
     extidhead            = extidhead
     extidpart            = extidpart
     systems              = systems
  EXCEPTIONS
    communication_failure = 1  MESSAGE msg_text
    system_failure        = 2  MESSAGE msg_text.

  IF sy-subrc NE 0.
    EXIT.
  ENDIF.

  LOOP AT return INTO lret1.
    lret1-number = '398'.
    lret1-id = '00'.
    lret1-message_v1 = username.
    lret1-message_v2 = ' - '.
    lret1-message_v3 = lret1-message.

*message i398(00) into dummy  with lret1-MESSAGE ' ' ' ' ' ' .

*MESSAGE ID lret1-id TYPE lret1-type NUMBER lret1-number
*                INTO dummy
*                WITH 'TEST' sy-msgv2 sy-msgv3 sy-msgv4.

    CALL FUNCTION 'Y_BAL_LOG'
      EXPORTING
        i_msgty               = lret1-type
        i_msgid               = lret1-id
        i_msgno               = lret1-number
        i_msgv1               = lret1-message_v1
        i_msgv2               = lret1-message_v2
        i_msgv3               = lret1-message_v3
        i_msgv4               = lret1-message_v4
*    I_DISPLAY             = 'X'
*    I_REFRESH             = 'X'
        i_repid               = sy-repid
      EXCEPTIONS
        error_create          = 1
        error_add_message     = 2
        error_refresh         = 3
        error_display_profile = 4
        error_display         = 5
        OTHERS                = 6.
  ENDLOOP.


  CLEAR lret1.
  LOOP AT return INTO lret1 WHERE type = 'E'.
    EXIT.
  ENDLOOP.

  CHECK lret1 IS INITIAL.


  CLEAR logondata-class.
  DELETE parameter  WHERE parid(1) = 'Z' OR parid(1) = 'Y'.
  DELETE parameter1 WHERE parid(1) = 'Z' OR parid(1) = 'Y'.

  CALL FUNCTION 'BAPI_USER_CREATE1' DESTINATION p_des1
    EXPORTING
      username                      = username
*   NAME_IN                       =
      logondata                     = logondata
      password                      = password
      defaults                      = defaults
      address                       = address
     company                       = company
     snc                           = snc
     ref_user                      = ref_user
     alias                         = alias
*   EX_ADDRESS                    =
      uclass                        = uclass
    force_system_assignment       = 'X'
*   SELF_REGISTER                 = ' '
   TABLES
       parameter            = parameter
       return               = return
       addtel               = addtel
       addfax               = addfax
       addttx               = addttx
       addtlx               = addtlx
       addsmtp              = addsmtp
       addrml               = addrml
       addx400              = addx400
       addrfc               = addrfc
       addprt               = addprt
       addssf               = addssf
       adduri               = adduri
       addpag               = addpag
       addcomrem            = addcomrem
*       groups               = groups
       parameter1           = parameter1
       extidhead            = extidhead
       extidpart            = extidpart
    EXCEPTIONS
      communication_failure = 1  MESSAGE msg_text
      system_failure        = 2  MESSAGE msg_text.


  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

  LOOP AT return INTO lret1.
    lret1-number = '398'.
    lret1-id = '00'.
    lret1-message_v1 = username.
    lret1-message_v2 = ' - '.
    lret1-message_v3 = lret1-message.

    CALL FUNCTION 'Y_BAL_LOG'
      EXPORTING
        i_msgty               = lret1-type
        i_msgid               = lret1-id
        i_msgno               = lret1-number
        i_msgv1               = lret1-message_v4
        i_msgv2               = lret1-message_v1
        i_msgv3               = lret1-message_v2
        i_msgv4               = lret1-message_v3
*    I_DISPLAY             = 'X'
*    I_REFRESH             = 'X'
        i_repid               = sy-repid
      EXCEPTIONS
        error_create          = 1
        error_add_message     = 2
        error_refresh         = 3
        error_display_profile = 4
        error_display         = 5
        OTHERS                = 6.
  ENDLOOP.


ENDFORM.                    "copy_user

(Y_BAL_LOG gegen message befehle austauschen)
gruß Jens

Bearbeitet vom Benutzer Sonntag, 7. April 2019 08:05:52(UTC)  | Grund: Nicht angegeben

Offline dpiacun  
#4 Geschrieben : Montag, 8. April 2019 11:03:22(UTC)
dpiacun

Beiträge: 2
Austria
Wohnort: Wien
Vielen Dank!
Benutzer, die gerade dieses Thema lesen
Das Forum wechseln  
Du kannst keine neue Themen in diesem Forum eröffnen.
Du kannst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge nicht löschen.
Du darfst deine Beiträge nicht editieren.
Du kannst keine Umfragen in diesem Forum erstellen.
Du kannst nicht an Umfragen teilnehmen.

- Impressum / Datenschutz -