METHOD get_prod_order_status.
DATA: lt_status TYPE TABLE OF j_status,
lt_text TYPE TABLE OF tj02t,
lv_id LIKE iv_prod_order_id,
ls_result LIKE LINE OF rt_status_in_s4_format.
lv_id = iv_prod_order_id.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = lv_id
IMPORTING
output = lv_id.
SELECT stat INTO TABLE lt_status FROM vsaufk WHERE inact = space AND
aufnr = lv_id.
CHECK sy-subrc = 0.
SELECT * INTO TABLE lt_text FROM tj02t FOR ALL ENTRIES IN lt_status
WHERE istat = lt_status-table_line AND spras = 'EN'.
LOOP AT lt_text ASSIGNING FIELD-SYMBOL().
CLEAR: ls_result.
ls_result-status_id = -istat.
ls_result-status_code = -txt04.
ls_result-status_text = -txt30.
APPEND ls_result TO rt_status_in_s4_format.
ENDLOOP.
ENDMETHOD.
