Re: Standar report to set system status on notifications

Jesus

Try this code

REPORT zkjr_set_osts.

TABLES: qmel.

 

SELECT-OPTIONS:so_qmnum FOR qmel-qmnum.

 

TYPES: BEGIN OF ty_so,

          objnr TYPE qmel-objnr,

        END OF ty_so.

 

DATA: it_so TYPE TABLE OF ty_so,

       wa_so LIKE LINE OF it_so,

       v_num TYPE i,

       vchar TYPE char5,

       msg   TYPE string.

 

SELECT objnr FROM qmel INTO TABLE it_so WHERE qmnum IN so_qmnum.

 

DATA: it_stat TYPE TABLE OF jstat,

       wa_stat TYPE jstat.

 

LOOP AT it_so INTO wa_so.

   wa_stat-stat =  'I0158'.

   wa_stat-inact = ' '.

   APPEND wa_stat TO it_stat.

   CALL FUNCTION 'STATUS_CHANGE_INTERN'

     EXPORTING

       objnr  = wa_so-objnr

     TABLES

       status = it_stat.

 

   COMMIT WORK.

 

   v_num = v_num + 1.

 

   REFRESH: it_stat.

   CLEAR: wa_stat, wa_so.

ENDLOOP.

 

vchar = v_num.

CONCATENATE: vchar 'Notifications have been set ''OSTS'' status' INTO msg SEPARATED BY space.

WRITE msg.

Try this in DEV server if found OK then you can make use of it.