Deactivate password from users by admin

ABAP, Data, System September 29th, 2008

When you have to deactivate the pasword of a large list of userts, you could use this script. For a smaller set of users you can also use Trx SU10.

First of all you need a list of all users…

Then you can copy paste all values of BNAME into this report.

  1. REPORT  Z_USERS_DEACTIVATE.
  2.  
  3. TABLES: USR02.
  4. DATA: lv_username TYPE BAPIBNAME-BAPIBNAME,
  5. wa_logondata TYPE BAPILOGOND,
  6. wa_logondatax TYPE BAPILOGONX,
  7. lt_return TYPE BAPIRET2_T,
  8. lt_usr02 TYPE TABLE OF USR02,
  9. wa_usr02 TYPE USR02.
  10.  
  11. SELECT-OPTIONS: p_usids FOR USR02-BNAME.
  12.  
  13.  
  14. SELECT * FROM USR02 INTO TABLE lt_usr02 WHERE BNAME IN p_usids.
  15.  
  16. LOOP AT  lt_usr02 INTO  wa_usr02.
  17.  
  18.   lv_username = wa_usr02-BNAME.
  19.   wa_logondata-codvn  = 'X'.
  20.   wa_logondatax-codvn = 'X'.
  21.   CALL FUNCTION 'BAPI_USER_CHANGE'
  22.     EXPORTING
  23.       username   = lv_username
  24.       logondata  = wa_logondata
  25.       logondatax = wa_logondatax
  26.     TABLES
  27.       return     = lt_return.
  28.  
  29.   DELETE lt_return WHERE TYPE <> 'E'.
  30.   IF lt_return IS INITIAL.
  31.     WRITE: / 'Deactivated password:' , lv_username .
  32.  ELSE.
  33.     WRITE: / 'ERROR:' , lv_username  .
  34.   ENDIF.
  35. ENDLOOP.
No Comments

How to empty a table and repopulate it using a locking mechanisme by admin

ABAP May 15th, 2008

Sometimes it’s just easier and more performant to delete all rows from a table and repopulate it.

I used this scenario for a weekly sheduled job to refresh a custom table,containing all the email adresses from our employes.

In the first step, i populate an internal table with the type of the database table.

  1. LOOP AT INPUT-MT_adusers_CRM-RECORD-ROW into ls_adusers_data.
  2.     IF ls_adusers_data-email CA '@'.
  3.       MOVE sy-mandt TO wa_admails_data-mandt.
  4.       MOVE ls_adusers_data-userid TO wa_admails_data-userid.
  5.       MOVE ls_adusers_data-fullname TO wa_admails_data-fullname.
  6.       MOVE ls_adusers_data-email TO wa_admails_data-email.
  7.       APPEND wa_admails_data TO it_admails_data.
  8.    ENDIF.
  9. ENDLOOP.
  1. *enqueue table
  2.     CALL FUNCTION 'ENQUEUE_E_TABLEE'
  3.     EXPORTING
  4.     mode_rstable = 'E'
  5.     tabname = '/G/ADMAILS'
  6.     EXCEPTIONS
  7.     foreign_lock = 1
  8.     system_failure = 2
  9.     OTHERS = 3.
  1. *delete all mails
  2.     DELETE FROM /G/ADMAILS.
  1. *insert
  2.     insert /G/ADMAILS from table it_admails_data.
  1. *dequeue table
  2.    CALL FUNCTION 'DEQUEUE_E_TABLEE'
  3.    EXPORTING
  4.      mode_rstable = 'E'
  5.      tabname = '/G/ADMAILS'.
  1.  
No Comments

create a report using a group by query in sql by aRo

ABAP May 9th, 2008

To make sure we have the right syntax in our WHERE variable we create it as a reference to a data table field and make it obligatory.

We will group our results using a group by function and print them as plain text on our screen.

  1.  parameters: p_dat like SCMG_T_CASE_ATTR-CREATE_TIME obligatory.
  2.             .
  3. TYPES:            BEGIN OF mytext,
  4.                                    PRODUCT     TYPE SCMG_T_CASE_ATTR-CASE_TYPE,
  5.                                    TOTAL  TYPE I,
  6.                        END OF mytext.
  7.  
  8. TYPES mytab TYPE STANDARD TABLE OF mytext WITH DEFAULT KEY.
  9.  
  10. DATA text TYPE mytext.
  11. DATA itab TYPE mytab.
  12.  
  13.  
  14.  
  15. select  CASE_TYPE count(*)
  16.                  from ( SCMG_T_CASE_ATTR as a INNER JOIN CRMD_CMG_CASE_AT as b ON  a~CASE_GUID  =  b~CASE_GUID ) INTO  text WHERE  CREATE_TIME &gt;= p_dat GROUP BY  CASE_TYPE ORDER BY CASE_TYPE.
  17.                  APPEND text to itab.
  18.                 ENDSELECT.
  19.  
  20.  
  21. WRITE: / 'product','Total'.
  22. LOOP AT itab INTO text.
  23.   WRITE: / text-product, text-totaal.
  24. ENDLOOP.
No Comments

declaration of variables in abap by aRo

ABAP May 9th, 2008

 

declaration of variables: 

DATA:  time TYPE T.

A variable can be from the following data types:

 

Data Type

Initial

field length

Valid

field length

Initial value

Meaning

Numeric types

I

4

4

0

Integer (whole number)

F

8

8

0

Floating point number

P

8

1 - 16

0

Packed number

Character types

C

1

1 - 65535

'   …   '

Text field

(alphanumeric characters)

D

8

8

'00000000'

Date field

(Format: YYYYMMDD)

N

1

1 - 65535

'0 … 0'

Numeric text field

(numeric characters)

T

6

6

'000000'

Time field

(format: HHMMSS)

Hexadecimal type

X

1

1 - 65535

X'0 … 0'

Hexadecimal field

 

declaration of constants:

CONSTANTS: pi TYPE P DECIMALS 10 VALUE '3.1415926536'.

 

declaration of parameters: 

This is when you create a parameter field onscreen. The variable is checked for the right syntax.

It's also possible to refer to a field by using "tablename-field". If that field is a date then u can select the date using a standard SAP popup.

PARAMETERS: x as checkbox.

PARAMETERS DATUM LIKE SY-DATUM DEFAULT '19931224' .  

No Comments

writing a language specific long date by aRo

ABAP May 9th, 2008

How to generate a long date like “2 januari 2007″ from “20070102″.

  1. DATA my_date TYPE DATUM.
  2. my_date = '20070502'.
  3.  
  4. DATA wa_dates LIKE TABLE OF T247 WITH HEADER LINE.
  5. DATA wa_date LIKE TABLE OF T247 WITH HEADER LINE.
  6. DATA long_date TYPE STRING.
  7.  
  8. CALL FUNCTION 'MONTH_NAMES_GET'
  9.  EXPORTING
  10.    LANGUAGE                    = SY-LANGU
  11.   TABLES
  12.     month_names                 = wa_dates.
  13.  
  14.           .
  15. IF sy-subrc eq 0.
  16.   READ TABLE wa_dates INTO wa_date
  17.   WITH KEY MNR = my_date+4(2).
  18.   CONCATENATE: my_date+6(2) wa_date-ltx my_date+0(4)  INTO long_date SEPARATED BY SPACE.
  19. ENDIF.
  20.  
  21.    write: long_date.
No Comments

how to create a business partner( BP ) by aRo

ABAP May 9th, 2008

The following code can be used to create business partner.

  1. DATA:
  2. ls_centraldata TYPE bapibus1006_central,
  3. ls_centraldata_person TYPE bapibus1006_central_person,
  4. ls_addressdata TYPE bapibus1006_address,
  5. lv_businesspartner LIKE bapibus1006_head-bpartner,
  6. lt_return TYPE TABLE OF bapiret2 ,
  7. lv_return TYPE bapiret2,
  8. lv_insz TYPE zbu_00000000,
  9. lv_mutatie_error TYPE /genesys/mutatie_error.
  10.  
  11. CONSTANTS: gc_partnercategory LIKE bapibus1006_head-partn_cat VALUE '1',
  12. gc_partnertype_nanb TYPE bu_bpkind VALUE 'NANB',
  13. gc_dataorigintype_rr TYPE bu_source VALUE 'RR',
  14. gc_wait LIKE bapita-wait VALUE 'X'.
  15.  
  16. MOVE gc_partnertype_nanb TO ls_centraldata-partnertype.
  17. MOVE '' TO ls_centraldata-dataorigintype.
  18. MOVE '' TO ls_centraldata_person-firstname.
  19. MOVE '' TO ls_centraldata_person-lastname.
  20. MOVE '' TO ls_centraldata_person-birthdate.
  21. MOVE '' TO ls_centraldata_person-birthplace.
  22.  
  23. MOVE '' TO ls_centraldata_person-nationality.
  24. *MOVE 'X' TO ls_addressdata-standardaddress.
  25. *MOVE '' TO ls_addressdata-street.
  26. *MOVE '' TO ls_addressdata-house_no.
  27. *MOVE '' TO ls_addressdata-house_no2.
  28. *MOVE '' TO ls_addressdata-house_no3.
  29. *MOVE '' TO ls_addressdata-postl_cod1.
  30. *MOVE '' TO ls_addressdata-city.
  31. *MOVE '' TO ls_addressdata-country.
  32.  
  33. CALL FUNCTION 'BAPI_BUPA_CREATE_FROM_DATA'
  34. EXPORTING
  35. partnercategory = gc_partnercategory
  36. centraldata = ls_centraldata
  37. centraldataperson = ls_centraldata_person
  38. addressdata = ls_addressdata
  39. IMPORTING
  40. businesspartner = lv_businesspartner
  41. TABLES
  42. return = lt_return.
  43.  
  44. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
No Comments