Hi,
You have not defined work area.
In data part under inernal table declaration
wa_temp type /bic/pz_entmap.
READ TABLE INT_T_Z_ENTMAP INTO wa_temp
<RESULT_FIELDS>-/bic/z_invcomp = INT_T_Z_ENTMAP-/bic/zcompany.
ELSE
<RESULT_FIELDS>-/bic/zpcompany = INT_T_Z_ENTMAP-/bic/zcompany.
Replace INT_T_Z_ENTMAP with wa_temp.
This will solve your issue.
Hope this helps.
Regards,
AL