Re: IW32 user status update

srilikhitha

Use this code in include ZXQQMU20   ( F/Exit EXIT_SAPMIWO0_020    of  user-exit QQMA0014 )

IF sy-tcode = 'IW52'.

 

   DATA:i_stat  LIKE jstat OCCURS 0 WITH HEADER LINE,

        l_objnr TYPE j_objnr.

 

   SELECT SINGLE objnr FROM aufk INTO l_objnr WHERE aufnr = i_viqmel-aufnr.

 

   CALL FUNCTION 'STATUS_READ'

     EXPORTING

       objnr       = i_viqmel-objnr

       only_active = 'X'

     TABLES

       status      = i_stat.

 

   LOOP AT i_stat.

     IF i_stat-stat = 'I0158'.

 

       CALL FUNCTION 'STATUS_CHANGE_EXTERN'

         EXPORTING

           objnr       = l_objnr

           user_status = 'E0004'

           set_inact   = ' '.

 

     ENDIF.

   ENDLOOP.

 

ENDIF.

NOTE

• All required inputs to be taken from the previous reply.
• Hope this is your expected solution.
• Please note that this thread went so long because you have not been clear since the initial query.
• Let not things be repeated which have been already explained in detail in the previous reply.
• Also expect quick feedback from you. It is seen that you respond very late to received replies.

BTW,The right Subject line for your query should be

"Order user-status update during IW52 Save"

Good luck

KJogeswaraRao