PARAMETERS: run AS CHECKBOX DEFAULT space.
DATA: lt_index TYPE STANDARD TABLE OF crmd_order_index-header.
DATA: lt_order TYPE STANDARD TABLE OF crmd_orderadm_h-object_id,lt_status TYPE STANDARD TABLE OF crm_jest.SELECT DISTINCT crmd_order_index~header INTO TABLE @lt_indexFROM crmd_order_index INNER JOIN crm_jest ON crm_jest~objnr = crmd_order_index~headerWHERE crmd_order_index~process_type_ix = 'SRVO' ANDcrmd_order_index~stat_open = 'X' ANDcrm_jest~inact = @abap_false AND crm_jest~stat = 'I1054' ANDcrmd_order_index~object_type = 'BUS2000116'.CHECK lt_index IS NOT INITIAL.SELECT object_id INTO TABLE lt_order FROM crmd_orderadm_h FOR ALL ENTRIES IN lt_indexWHERE guid = lt_index-table_line.CHECK lt_order IS NOT INITIAL.WRITE:/ 'The following orders will be set transferred.' COLOR COL_GROUP.
LOOP AT lt_order ASSIGNING FIELD-SYMBOL(<id>).WRITE: / <id> COLOR COL_NEGATIVE.
ENDLOOP.IF run = abap_true.SELECT * INTO TABLE lt_status FROM crm_jest FOR ALL ENTRIES IN lt_indexWHERE objnr = lt_index-table_line AND stat = 'I1054' AND inact = abap_false.CHECK sy-subrc = 0.DELETE crm_jest FROM TABLE lt_status.assert sy-subrc = 0.LOOP AT lt_status ASSIGNING FIELD-SYMBOL(<item>).<item>-stat = 'I1006'.ENDLOOP.INSERT crm_jest FROM TABLE lt_status.ASSERT sy-subrc = 0.COMMIT WORK AND WAIT.WRITE: / 'Service Order status updated successful.' COLOR COL_POSITIVE.
ENDIF.