Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
Former Member
0 Kudos

Replace use of USR03 table

 

SELECT * FROM usr03.

    CLEAR w_usr03.

    MOVE-CORRESPONDING usr03 TO w_usr03.

I start with that, and then I have the this requirement

"Due usr03 table is considered obsolete, but we can use it already, we have to change this select sentence and replace it for a non-obsolete table, I dont want none reference to usr03."

what do I do if the 28 fields of usr03 table are used in a specific task?

where do I find that 28 fields now?

How do I prepare the information to use it in the new specification?

So I start to investigate and I only find some references but the information was dispersed, with the suggestion for using ADRC, ADCP, ADCR , USR02, and so on of options, after several discussions I could try this:

I learned I could use the   CALL FUNCTION 'BAPI_USER_GET_DETAIL' and using returned tables with that Call function, I could specify fields that I need to my processes.

the substitution was this way:

this is the CALL FUNCTION 'BAPI_USER_GET_DETAIL' definition

  CALL FUNCTION 'BAPI_USER_GET_DETAIL'

    EXPORTING

      USERNAME             =

*     CACHE_RESULTS        = 'X'

*   IMPORTING

*     LOGONDATA            =

*     DEFAULTS             =

*     ADDRESS              =

*     COMPANY              =

*     SNC                  =

*     REF_USER             =

*     ALIAS                =

*     UCLASS               =

*     LASTMODIFIED         =

*     ISLOCKED             =

*     IDENTITY             =

*     ADMINDATA            =

    TABLES

*     PARAMETER            =

*     PROFILES             =

*     ACTIVITYGROUPS       =

      RETURN               =

*     ADDTEL               =

*     ADDFAX               =

*     ADDTTX               =

*     ADDTLX               =

*     ADDSMTP              =

*     ADDRML               =

*     ADDX400              =

*     ADDRFC               =

*     ADDPRT               =

*     ADDSSF               =

*     ADDURI               =

*     ADDPAG               =

*     ADDCOMREM            =

*     PARAMETER1           =

*     GROUPS               =

*     UCLASSSYS            =

*     EXTIDHEAD            =

*     EXTIDPART            =

*     SYSTEMS              =

            .

So I need an username value, I going to use selveral of the return tables listed above

First I did the next declarations:

DATA:  F_USERNAME    TYPE BAPIBNAME-BAPIBNAME, " this value will be used as call function parameter

                                              

       USRMANDT      TYPE USR21-MANDT,         " usr03 used mandt as a field

       USRBNAME      TYPE USR21-BNAME,         " we need this field as part of 28 fields of usr03

       USRKOSTL      TYPE USR21-KOSTL,         " we need this field as part of 28 fields of usr03

       S_ADDRESS     TYPE BAPIADDR3,           " we need this type of structure to retain importing address values

       S_LOGON       TYPE BAPILOGOND,          " we need this type of structure to retain importing logon values

       S_DEFFAULT    TYPE BAPIDEFAUL,          " we need this type of structure to retain importing deffault values

                                              

       TAB_RETURN    TYPE BAPIRET2 OCCURS 1.   " we need this type of structure to retain table return values

                                              

DATA: BEGIN OF WT_BNAME,                       " to manipulate into a usr21 table loop

      F_BNAME TYPE USR21-BNAME,               

      END OF WT_BNAME.

DATA: BEGIN OF TAB_TELEFS OCCURS 0.            " to use several values for this bapiadtel structure

      INCLUDE STRUCTURE bapiadtel.            

DATA: END OF TAB_TELEFS.

DATA: BEGIN OF TAB_TELTEX OCCURS 0.            " to use several values for this bapiadttx structure

      INCLUDE STRUCTURE bapiadttx.            

DATA: END OF TAB_TELTEX.

DATA: BEGIN OF TAB_TELEX OCCURS 0.             " to use several values for this bapiadtlx structure

      INCLUDE STRUCTURE bapiadtlx.            

DATA: END OF TAB_TELEX.

SELECT * FROM usr21.                   " we do the select into usr21

MOVE-CORRESPONDING USR21 TO WT_BNAME.

F_USERNAME = USR21-BNAME.               " we assign bname to be used into call function 'BAPI_USER_GET_DETAIL'

CALL FUNCTION 'BAPI_USER_GET_DETAIL'

  EXPORTING

    USERNAME = F_USERNAME

  IMPORTING

    DEFAULTS = S_DEFFAULT               " We assign this "work structure" for the imported tables

    ADDRESS  = S_ADDRESS               " We assign this "work structure" for the imported tables

    LOGONDATA = S_LOGON                   " We assign this "work structure" for the imported tables

  TABLES

    RETURN   = TAB_RETURN               " We assign this "work structure" for the imported tables

    ADDTEL   = TAB_TELEFS               " We assign this "work structure" for the imported tables

    ADDTTX   = TAB_TELTEX               " We assign this "work structure" for the imported tables

    ADDTLX   = TAB_TELEX.               " We assign this "work structure" for the imported tables

*------------------------- we need declare fields for the values with the data type specific we want to use.

data: begin of w_usr21,

USRMANDT TYPE usr21-mandt,

*...,

*...,

*... and so on,

HUSHOR TYPE BAPIADDR3-TIME_ZONE,

end of w_usr21.

* total: 28 field declarations

*-------------------------after that we asigned the next values located inside structures declared above. ( any name can be declared)

W_USR21-USRMANDT = USR21-MANDT.

W_USR21-USRBNAME = USR21-BNAME.

W_USR21-FIRSTNAME = S_ADDRESS-FIRSTNAME.

W_USR21-LASTNAME = S_ADDRESS-LASTNAME.

W_USR21-MIDDLENAME = S_ADDRESS-MIDDLENAME.

W_USR21-SECONDNAME = S_ADDRESS-SECONDNAME.

W_USR21-TITLEP = S_ADDRESS-TITLE_P.

W_USR21-DEPARTMT = S_ADDRESS-DEPARTMENT.

W_USR21-USRKOSTL = USR21-KOSTL.

W_USR21-BUILDING = S_ADDRESS-BUILDING_P.

W_USR21-FLOOR = S_ADDRESS-FLOOR_P.

CONCATENATE S_ADDRESS-STREET S_ADDRESS-ROOM_NO_P INTO W_USR21-S_STRNUM SEPARATED BY SPACE.

W_USR21-APPOSTAL = S_ADDRESS-POSTL_COD2.

W_USR21-CODPOSTAL = S_ADDRESS-POSTL_COD1.

W_USR21-CITY = S_ADDRESS-CITY.

W_USR21-REGION = S_ADDRESS-REGION.

W_USR21-COUNTRY = S_ADDRESS-COUNTRY.

W_USR21-LANG = S_ADDRESS-LANGU.

W_USR21-NTELEF = S_ADDRESS-TEL1_NUMBR.

W_USR21-TELNR = '--'.     " there is no value for that field

W_USR21-TEL01 = '--'.     " there is no value for that field

W_USR21-TEL02 = '--'.     " there is no value for that field

W_USR21-NTELEX = TAB_TELEX-TELEX_NO.

W_USR21-NFAX = S_ADDRESS-FAX_NUMBER.

W_USR21-NTELTEX = TAB_TELTEX-TELETEX.

W_USR21-POBOXCIT = S_ADDRESS-PO_BOX_CIT.

W_USR21-POBOXBARR = S_ADDRESS-PBOXCIT_NO.

W_USR21-HUSHOR = S_ADDRESS-TIME_ZONE.

*- so we have 28 assigned values.

*-------------------------then we do several operations with the fields

do.

*---

*----

*---

*---

*------------------------- and finally.

ENDSELECT.

*------------

*- Then we can migrate or forget of the use of usr03.

*- I´am working to find out and solve the 3 fields phone problem, because I did'nt find this fields,but this code help me with the problem.

Labels in this area