Copy User mit RFC X-System
Posted: Sun Jan 26, 2020 2:58 pm
ZCOPY_USER
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- *&---------------------------------------------------------------------*
- *& Report ZCOPY_USER
- *&
- *&---------------------------------------------------------------------*
- *&
- *&
- *&---------------------------------------------------------------------*
- REPORT zcopy_user2.
- * Info Destinationen
- des2_info TYPE rfcsi.
- SELECT-OPTIONS bname FOR usr02-bname NO INTERVALS.
- 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.
- 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.
- msg_text(80) TYPE c. "Message text
- CLEAR msg_text.
- CALL FUNCTION 'RFC_PING'
- DESTINATION p_des2
- EXCEPTIONS
- t1 = p_des2.
- CONDENSE t1.
- t2 COLOR COL_POSITIVE.
- ELSE.
- t2 COLOR COL_NEGATIVE.
- CLEAR msg_text.
- CALL FUNCTION 'RFC_PING'
- DESTINATION p_des1
- EXCEPTIONS
- t1 = p_des1.
- CONDENSE t1.
- t2 COLOR COL_POSITIVE.
- ELSE.
- t2 COLOR COL_NEGATIVE.
- sscrfields-functxt_01 = '@38@ Check RFC-Desitinations'.
- AT SELECTION-SCREEN.
- * 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.
- WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
- *&---------------------------------------------------------------------*
- *& Form copy_user
- *&---------------------------------------------------------------------*
- * text
- *----------------------------------------------------------------------*
- * Input
- * 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,
- 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
- 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
- parameter = parameter
- profiles = profiles
- activitygroups = activitygroups
- 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
- EXIT.
- lret1-number = '398'.
- lret1-id = '00'.
- lret1-message_v1 = username.
- lret1-message_v2 = ' - '.
- *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.
- CLEAR lret1.
- EXIT.
- 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 = ' '
- parameter = parameter
- 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
- CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
- lret1-number = '398'.
- lret1-id = '00'.
- lret1-message_v1 = username.
- lret1-message_v2 = ' - '.
- 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.
- GeSHi ©