data : gt_out       type aufk occurs 0 with header line,
       lv_gunfarki  type d.
data :  es_header   like bapi_alm_order_header_e,
        sys_status(40)  type c,
        USR_STATUS      like  BAPI_STATUS.
data:   bret    like table of bapiret2,
        bretrec like bapiret2,
        ordnum  like aufk-aufnr .
        USR_STATUS-INTERN       = 'ACIK'.
        USR_STATUS-EXTERN       = 'GECK'.
        USR_STATUS-LANGU        = 'TR'.
        lv_gunfarki = sy-datum - 7.
 select * from aufk
   into corresponding fields of table gt_out
   where auart = 'ZPMP' and erdat ge  lv_gunfarki.
loop at gt_out.
  call function 'BAPI_ALM_ORDER_GET_DETAIL'
    exporting
      number    = gt_out-aufnr
    IMPORTING
      es_header = es_header
    tables
      return    = bret.
    sys_status  = es_header-sys_status.
    if sy-subrc eq 0.
        if sys_status CN 'KTYT' or sys_status CN   'TYT '.
          CALL FUNCTION 'BAPI_ISUSMORDER_USERSTATUSSET'
              EXPORTING
                NUMBER   = gt_out-AUFNR
                STATUS   = USR_STATUS.
*             IMPORTING
*                RETURN   = WA_RETURN.
        ENDIF.
      ENDIF.
  endloop.
 
 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com