Como extraer la clasificación del lote

Si sacaramos esto con código tendría que ser algo así:
* DATA:
* ld_tabix LIKE sy-tabix,
* v_matlot(28) TYPE c,
* v_atwrt LIKE ausp-atwrt,
* v_cuobj LIKE inob-cuobj,
* v_atinn LIKE cabn-atinn,
* v_clint LIKE klah-clint.

clear: v_atwrt, v_matlot, v_cuobj, v_atinn.
if not r_mc12vc0itm-charg is initial.
if not r_mc12vc0itm-matnr is initial.

CONCATENATE r_mc12vc0itm-matnr r_mc12vc0itm-charg INTO v_matlot.

SELECT SINGLE cuobj FROM inob INTO v_cuobj
WHERE klart = '023'
AND objek = v_matlot.

CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'
EXPORTING
input = 'CENTRO'
IMPORTING
output = v_atinn.

SELECT atwrt FROM ausp INTO v_atwrt UP TO 1 ROWS
WHERE objek = v_cuobj
AND atinn = v_atinn
AND klart = '023'
AND atzhl = 1.
ENDSELECT.

r_mc12vc0itm-zzwerks_fb = v_atwrt.
endif.
endif.


Se trata de evitar todo esto y sacar estos datos utilizando el standar:
Bases:
Datos del maestro del lote: MCH1.
Datos de clase maesro para el lote (023): CL03.

A diferencia del material, el lote no tiene el correspondiente extractor _ATTR.
Entonces:
Paso 1) crear un extractor de atributos para el lote en la RSO2, si se quiere derectamente sobre la tabla (MCH1 o MCHA) o se puede hacer una vista más personal
Paso 2) crear el extractor para la clasificación en la CTBW
Paso 3) crear el correspondiente infoobjeto en BW