Ejemplo Ampliación extractor

FUNCTION ZBW_extractor1.
*"----------------------------------------------------------------------
*"*"Interfase local
*" TABLES
*" C_T_DATA
*"----------------------------------------------------------------------
tables: impr, imzo, prps.
data: zobjnr like prps-objnr,
zposnr like imzo-posnr,
zPSPHI like prps-PSPHI,
zstufe like prps-stufe,
z_data like ICWBSCST.

LOOP AT C_T_DATA.
z_data = C_T_DATA.
select objnr stufe psphi into (zobjnr, zstufe, zpsphi) from prps
where posid = z_data-posid.
exit.
endselect.
if sy-subrc = 0 and zstufe > 1.
select objnr into zobjnr from prps
where psphi = zpsphi and stufe = 1.
exit.
endselect.
endif.
select posnr into zposnr from imzo
where objnr = zobjnr.
select prnam gjahr into (z_data-IP_PRNAM, z_data-IP_GNJHR)
from impr
where posnr = zposnr.
exit.
endselect.
exit.
endselect.

c_t_data = z_data.
MODIFY C_T_DATA.
ENDLOOP.

ENDFUNCTION.