Distribution of password from master client to other clients
hi,
I have created a small program to distribute the password from one client to other clients by using a function module SUSR_USER_CHANGE. It works fine though I have a little problem . The explanation comes here. The function module looks different from kernel-release 701. It has an extra import parameter "Productive_pwd" and if this parameter is "checked" it means that you don't have/force to change the password when you try to logon on the sap system.
But from kernel-release 700 and below the parameter "productive_pwd" doesn't exist and after distribution of password you force/have to change the password again when logon to sap system.
How can I change/distribute the password without changing it when logging to the system for kernel-release 700 and below?
From SAP Kernel-relese 700
*FUNCTION susr_user_change.
*"----
""Lokale Schnittstelle:
*" IMPORTING
*" VALUE(USER_NAME) LIKE USR02-BNAME
*" VALUE(USER_LOGONDATA) LIKE USLOGOND STRUCTURE USLOGOND
*" OPTIONAL
*" VALUE(PASSWORD) LIKE XU400-NEWCODE OPTIONAL
*" VALUE(DELETE_PASSWORD) TYPE XUMARK OPTIONAL
*" VALUE(USER_DEFAULTS) LIKE USDEFAULTS STRUCTURE USDEFAULTS
*" OPTIONAL
*" VALUE(USER_ADDRESS) LIKE USADDRESS STRUCTURE USADDRESS
*" OPTIONAL
*" VALUE(REF_USER) LIKE BAPIREFUS STRUCTURE BAPIREFUS OPTIONAL
*" VALUE(ALIAS) LIKE BAPIALIAS STRUCTURE BAPIALIAS OPTIONAL
*" VALUE(UCLASS) LIKE BAPIUCLASS STRUCTURE BAPIUCLASS OPTIONAL
*" REFERENCE(CHANGE_UCLASS) TYPE CHAR01 DEFAULT SPACE
*" VALUE(MAINT_FOR_OWN_USER_ONLY) TYPE CHAR01 DEFAULT SPACE
From kernel-release 701 and 702FUNCTION susr_user_change.
*"----
""Local Interface:
*" IMPORTING
*" VALUE(USER_NAME) LIKE USR02-BNAME
*" VALUE(USER_LOGONDATA) LIKE USLOGOND STRUCTURE USLOGOND
*" OPTIONAL
*" VALUE(PASSWORD) LIKE XU400-NEWCODE OPTIONAL
*" VALUE(DELETE_PASSWORD) TYPE XUMARK OPTIONAL
*" VALUE(USER_DEFAULTS) LIKE USDEFAULTS STRUCTURE USDEFAULTS
*" OPTIONAL
*" VALUE(USER_ADDRESS) LIKE USADDRESS STRUCTURE USADDRESS
*" OPTIONAL
*" VALUE(REF_USER) LIKE BAPIREFUS STRUCTURE BAPIREFUS OPTIONAL
*" VALUE(ALIAS) LIKE BAPIALIAS STRUCTURE BAPIALIAS OPTIONAL
*" VALUE(UCLASS) LIKE BAPIUCLASS STRUCTURE BAPIUCLASS OPTIONAL
*" REFERENCE(CHANGE_UCLASS) TYPE CHAR01 DEFAULT SPACE
*" VALUE(MAINT_FOR_OWN_USER_ONLY) TYPE CHAR01 DEFAULT SPACE
*" VALUE(PRODUCTIVE_PWD) TYPE BAPIFLAG-BAPIFLAG DEFAULT SPACE
Best regards
LinhNg